Maximização de Lucros no R

Uma empresa fabrica dois tipos de brinquedos, Barbie e Ken, que utilizam dois recursos: plástico (até 1.000 quilos estão disponíveis) e horas de produção (até 40 horas estão disponíveis).

O Departamento de Marketing colocou algumas restrições: não fabricar mais de 700 dúzias do total de brinquedos (Barbie e Ken), o número de dúzias de Barbie fabricadas não deve exceder em 350 o número de dúzias do brinquedo Ken.

O gerente de produção passou as seguintes informações: cada dúzia do brinquedo Barbie usa 2 quilos de plástico e 3 minutos de produção e cada dúzia do brinquedo Ken usa 1 quilo de plástico e 4 minutos de produção. O lucro estimado na venda do Barbie é $8,00/dúzia e para o Ken é $5,00/dúzia.

Script no R

#Modelagem 

#Max 8x1+5x2 (Lucro semanal) 

#Sujeito a

#2x1+1x2≤1000 (Plástico)

#3x1+4x2≤2400 (Tempo de Produção - Minutos)

#x1+x2≤700 (Produção Total)

#x1−x2≤350 (Mix) - diferença entre Barbie e Ken

#x1,x2≥0 (Não-negatividade)

#Problema de maximização de lucro

library (lpSolve)

#informa lucro

f.obj <- c(8, 5)

#informa as restrições

f.con <- matrix (c(

  2, 1,

  3, 4,

  1, 1,

  1,-1),

  nrow=4, byrow=TRUE)

f.dir <- c("<=", "<=","<=","<=")

f.rhs <- c(1000, 2400,700,350)

# função lp

modelo<-lp ("max", f.obj, f.con, f.dir, f.rhs)

#qual será o lucro?

modelo

#quanto fabricar?

modelo$solution