library(lpSolve) #precisa instalar o pacote caso não tenha
coef.objetivo = c(2, 3)
R1 = c(1, 1)
R2 = c(10, 8)
R3 = c(5, 8)
restricoes = rbind(R1,R2,R3)
b = c(24, 200, 150)
sinal = c("<=","<=","<=")
solucao = lpSolve::lp(direction = "max",
objective.in = coef.objetivo,
const.mat = restricoes, const.dir = sinal,
const.rhs = b, all.int = F)
solucaoSuccess: the objective function is 57.5
[1] 10.0 12.5