#Defino las variables del problema #Ci:cantidad de manteles a comprar el día i (con i = 1,2,3,4,5,6,7) [u] #Ei:mantel lavado estándar (2 días) del día i (con i = 1,2,3,4) [u] #Ri:mantel lavado rápido (1 día) del día i (con i = 1,2,3,4,5) [u] #Defino el funcional o función objetivo que estoy buscando minimizar #[MIN] Z= 250.(C1+C2+C3+C4+C5+C6+C7)+100.(E1+E2+E3+E4)+150.(R1+R2+R3+R4+R5) z<-c(250,250,250,250,250,250,250,100,100,100,100,150,150,150,150,150) #Sujeto a: #Armo la matriz de coeficientes tecnológicos A A<-read_csv("~/Documents/FIUBA/IO/Tabla_2.8.csv") #Defino el vector de términos independientes b<-c(5,6,7,8,7,9,10,5,6,7,8,7) dir<-c("=","=","=","=","=","=","=","<=","<=","<=","<=","<=") library(linprog) library(lpSolve) Sol<-lp("min",z,A,dir,b) Detalle<-lp("min",z,A,dir,b)$solution print(Sol) print(Detalle)