#Objetivo : minimizar el costo 
#Pi= unidades de píldoras i = 1 a 7 

#objetivo = minimizar el costo de las pildoras 

obj<-c(4,1,5,0.6,3.5,0.7,4)

rest<-c(5,0,2,0,3,1,2,
        3,1,5,0,2,0,1,
        1,0,3,1,2,0,6,
        1,0,3,1,2,0,6)

MAT<-matrix(rest,4,7,byrow=TRUE)
print(MAT)

dir<-c("=","=","<=",">=")

rhs<-c(100,80,160,120)

library(lpSolve)

SOL<-lp("min",obj,MAT,dir,rhs)
print(SOL)

PILDORAS<-SOL$solution
print(PILDORAS)