Email             : nikitaindriyni.com
RPubs            : https://https://rpubs.com/nikitaindriyani/

1 Buatlah project dengan contoh kasus Optimisasi Program Linear dalam Industri atau bisnis!

Produsen motor memproduksi 2 model, model A dan model B. Proyeksi jangka panjang menunjukkan permintaan yang diharapkan untuk setidaknya 100 motor Model A dan 60 motor Model B setiap hari. Karena kapasitas produksi yang terbatas, setiap hari tidak lebih dari 200 unit motor Model A dan 150 unit motor Model B yang dapat diproduksi. Total pengiriman setidaknya 180 suku cadang motor setiap hari untuk memenuhi kontrak pasokan. Jika setiap motor Model A dijual merugi 3.000 USD , tetapi setiap motor Model B mendapat untung 6.000 USD, berapa banyak masing-masing jenis harus diproduksi setiap hari untuk memaksimalkan laba bersih?

1.1 Penyelesaian

Pertama kita perlu membuat fungsi tujuan terlebih dahulu. Model B misalkan x dan Model A adalah y

Fungsi tujuannya adalah :

$ z = 6000x - 3000y $

lalu kita memaksimalkan untung mencari keuntungannya.

dari soal diatas kita bisa membuat

$ x+y = 100x >= 60y >= 100 $

selanjutnya kita menghitung nilai x dan y untuk memaksimalkan fungsi tujuan z

library(lpSolve) #Loading lpSolve library


obj.fun=c(6000,-3000) #Loading the objective function in obj.fun

constr=matrix(c(1,1,1,0,0,1),ncol = 2, byrow = TRUE) #Loading the constraints
constr.dir=c("=",">=",">=")
constr.rhs=c(180,60,100)

mod=lp("max",obj.fun,constr,constr.dir,constr.rhs,compute.sens = TRUE) #Using lp() to solve our problem

mod$solution #Displaying the values of x and y
## [1]  80 100

Dari perhitungan diatas kita mendapatkan solusi yait x = 80 dan y = 100. Untuk memperoleh keuntungan maksimum perusahaan harus menjual 100 motor Model A (x) dan 100 motor Model b (y)

Selanjutnya kita menghitung keuntungannya

x=80
y=100
z = (6000*x)-(3000*y) #Puting the values of x and y in the objective function

options("scipen"=100, "digits"=4)
cat("Net profit =", z) #Displaying the maximum profitx=100
## Net profit = 180000

Dari perhitungan kita dapat menyimpulkan bahwa keuntungan maksimumnya adalah 180000