http://jcarroll.com.au/2016/04/27/solving-inequality-the-math-kind/

]]>” cost=f.con%*%c(a,b,k,d)-f.rhs

if (max(cost)<=0){ gain=f.obj%*%c(a,b,k,d) if"

AND a simple insepction of that code shows you have 3 open curly brackets, {, and only 2 close, },.

Would appreciate some help. Thanks.

Just a quick note on the right hand side vector should be f.rhs<-c(100,0,1,8,4) ]]>