library(lpSolve)

kita akan memecahkan masalah linear menggunakan library IpSolve ada dua variabel yang akan digunakan biaya untuk membuat meja dan kursi diinisialisasi dengan variabel f.obj

f.obj=c(70,50)

mendefinisikan masalah dengan matriks

f.con=matrix(c(4,3,2,1),nrow=2,byrow=TRUE)

mengatur tanda tanda dalam operasi yang akan dilakukan

f.dir=c("<=","<=")
f.rhs=c(240,100)

batas waktu mesin yang pertama adalah 240 dan yang kedua adalah 100 dan untuk mencari fungsi memaksimalkan keuntungan digunakan fungsi sebagai berikut

lp("max",f.obj,f.con,f.dir,f.rhs)
## Success: the objective function is 4100

disini kita mengetahui bahwa profit yang kita dapatkan adalah 4100

lp("max",f.obj,f.con,f.dir,f.rhs)$solution
## [1] 30 40

untuk produk pertama menghasilkan 30 dan untuk produk kedua menghasilkan 40