Modelo-Simplex.R

library(lpSolve)

## Warning: package 'lpSolve' was built under R version 4.0.3

library("ggplot2")

## Warning: package 'ggplot2' was built under R version 4.0.3

Objetivo <- c(-1, -3)
Coef_Restricciones <-matrix(c(1, 5, 5, 1), 
                            nrow = 2, 
                            ncol = 2, 
                            byrow = TRUE)
Coef_Restricciones 

##      [,1] [,2]
## [1,]    1    5
## [2,]    5    1

Sol_Restricciones <- c(15, 15)
Sol_Restricciones 

## [1] 15 15

Dir_Restricciones <- c("<=", "<=")
Dir_Restricciones 

## [1] "<=" "<="

Solucion <- lp(direction = "min", 
               objective.in = Objetivo, 
               const.mat = Coef_Restricciones, 
               const.dir = Dir_Restricciones, 
               const.rhs = Sol_Restricciones)

Sol<-c(Solucion$objval, Solucion$solution)
Sol

## [1] -10.0   2.5   2.5