INFSCI0510 Extra Credit

install.packages("lpSolve")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/
Installing package into ‘C:/Users/alice/AppData/Local/R/win-library/4.3’
(as ‘lib’ is unspecified)
trying URL 'https://cran.rstudio.com/bin/windows/contrib/4.3/lpSolve_5.6.19.zip'
Content type 'application/zip' length 359981 bytes (351 KB)
downloaded 351 KB

package ‘lpSolve’ successfully unpacked and MD5 sums checked

The downloaded binary packages are in
    C:\Users\alice\AppData\Local\Temp\RtmpiiyeNM\downloaded_packages

library(lpSolve)
obj.fun = c(12, 15)
constr = matrix(c(4, 3, 2, 5), ncol=2, byrow=TRUE)
constr.dir = c("<=","<=")
rhs = c(12, 10)
belt.sol = lp("max",obj.fun,constr,constr.dir,rhs)
belt.sol

Success: the objective function is 42.85714 

belt.sol$solution

[1] 2.142857 1.142857