Operasi Riset

Tugas Program Linear Maksimasi

Email             : naufal.fadhlullah@student.matanauniversity.ac.id
Instagram     : https://www.instagram.com/naaufald
RPubs            : https://rpubs.com/naaufaldd/
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

install.packages("lpSolve", repos = "https://cloud.r-project.org", type = "binary")

## Installing package into 'C:/Users/Upank/AppData/Local/R/win-library/4.3'
## (as 'lib' is unspecified)

## package 'lpSolve' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\Upank\AppData\Local\Temp\RtmpIzEasB\downloaded_packages

library(lpSolve)

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

keputusan1 <- c(12, 8)
N <- matrix(c(3, 2,
              2, 1,
              2, 4), nrow = 3, byrow = TRUE)

Maks_tersedia <- c(42, 30, 48)
arahnya <- c("<=", "<=", "<=")

hasil <- lp("max", keputusan1, N, arahnya, Maks_tersedia)
names(hasil$solution)<- c("Produk 1", "produk 2")
print(hasil$solution)

## Produk 1 produk 2 
##       14        0

hasil$objval

## [1] 168