#Defino el funcional o función objetivo que estoy buscando minimizar
z<-c(4,1,5,0.6,3.5,0.7,4)
#Sujeto a:
#Armo la matriz de coeficientes tecnológicos A
library(readr)
A<-read_csv("~/Documents/FIUBA/IO/tabla2.3.csv")
#Defino el vector de términos independientes
b<-c(100,100,80,80,160,120,0,0,0,0,0,0)
dir<-c("<=",">=","<=",">=","<=","<=","=","=","=","=","=","=")
library(linprog)
library(lpSolve)
solucion<-lp("max",z,A,dir,b)$solucion
print(solucion)