#Defino el funcional o función objetivo que estoy buscando minimizar
z<-c(500,800,600,750,1200,1800,1000,800)
#Sujeto a:
#Armo la matriz de coeficientes tecnológicos A
A<-read_csv("~/Documents/FIUBA/IO/Tabla2.5_2.csv")
#Defino el vector de términos independientes
b<-c(1200,3600,5000,3000,3000,4000,3000,8000,5000)
dir<-c("<=","<=","<=","<=","<=","=","=","=","=")
library(linprog)
library(lpSolve)
lp("min",z,A,dir,b)
lp("min",z,A,dir,b)$solution