library(lpSolve)

jika memecahkan suatu masalah linier, maka menggunakan library lpSolve. lpSolve ada dua variabel yang digunakan. Diinisialisasikan dengan variabel f.obj=c(70,50).

f.obj=c(70,50)

mendefinisikan suatu masalah tentang matriks.

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

mengatur tanda dalam suatu operasi.

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

mendefinisikan suatu batas waktu mesin yang pertama yaitu 240 dan yang kedua yaitu 100, serta untuk mencari fungsi dengan memaksimalkan keuntungan yang digunakan fungsi sebagai berikut :

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

fungsi di atas untuk mengetahui suatu profit yang didapatkan.

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

fungsi di ata untuk menghasilkan suatu produk pertama dan kedua.