Eu estou tentando otimizar o lucro por 4 produtos diferentes, um que lucra 600reais/unidade outro que lucra 550/unidade outro que lucra 400/unidade e outro que lucra 300/unidade. Porem a demanda pelo x1 = 50 pelo x2 = 50 pelo x3 = 80 e pelo x4 = 120.
Como eu especifico a demanda individual de cada dentro do lpSolveAPI??
library(lpSolveAPI)
lprec <- make.lp(0,4) #numero de linhas e de variaveis de decisao
lp.control(lprec,sense='max') #maximzar ou minimizar
set.objfn(lprec, c(600, 550, 400, 300)) # funcao objetivo
add.constraint(lprec, c(31540, 40000, 29600, 14700), "<=", 108000) #restricao 1
add.constraint(lprec, c(36290,22500,42550,7350), "<=", 110000) #restricao 2
add.constraint(lprec, c(19000, 11250,11840,16800), "<=", 60000) #restricao 3
solve(lprec) #resolver ppl
get.objective(lprec) #funcao objetivo resolvida
get.variables(lprec) #qto de cada variavel otimiza o sistema
get.constraints(lprec)
lprec