LATIHAN 1

permintaan <- c(50, 60, 70, 80, 90)
frekuensi <- c(10, 20, 40, 20, 10)

prob <- frekuensi / sum(frekuensi)

#Nilai ekspektasi
ekspektasi <- sum(permintaan * prob)

cat("Nilai ekspektasi permintaan per hari:", ekspektasi, "\n")
## Nilai ekspektasi permintaan per hari: 70
permintaan <- c(50, 60, 70, 80, 90)
frekuensi <- c(10, 20, 40, 20, 10)

total <- sum(frekuensi)

prob <- frekuensi / total


# a. Prediksi 5 hari ke depan

set.seed(123)
simulasi_5 <- sample(permintaan, size = 5, replace = TRUE, prob = prob)

cat("Simulasi permintaan 5 hari ke depan:\n")
## Simulasi permintaan 5 hari ke depan:
print(simulasi_5)
## [1] 70 80 60 90 50
cat("Total permintaan 5 hari:", sum(simulasi_5), "\n\n")
## Total permintaan 5 hari: 350
# b. Prediksi 20 hari ke depan

simulasi_20 <- sample(permintaan, size = 20, replace = TRUE, prob = prob)

cat("Simulasi permintaan 20 hari ke depan:\n")
## Simulasi permintaan 20 hari ke depan:
print(simulasi_20)
##  [1] 70 60 90 60 60 50 60 80 60 70 90 70 70 70 50 90 80 80 50 80
cat("Total permintaan 20 hari:", sum(simulasi_20), "\n")
## Total permintaan 20 hari: 1390

LATIHAN 2

# Bangkitkan data

set.seed(123)

permintaan <- rexp(10, rate = 0.05)

frekuensi <- round(abs(rnorm(10, mean = 50, sd = 10)))

data <- data.frame(permintaan, frekuensi)
print(data)
##    permintaan frekuensi
## 1  16.8691452        46
## 2  11.5322054        62
## 3  26.5810974        54
## 4   0.6315472        54
## 5   1.1242195        51
## 6   6.3300243        44
## 7   6.2845458        68
## 8   2.9053361        55
## 9  54.5247293        30
## 10  0.5830689        57
# Hitung probabilitas

prob <- frekuensi / sum(frekuensi)


# a. 5 hari
sim_5 <- sample(permintaan, size = 5, replace = TRUE, prob = prob)
cat("Permintaan 5 hari:\n")
## Permintaan 5 hari:
print(sim_5)
## [1]  0.5830689 11.5322054 11.5322054  2.9053361  2.9053361
cat("Total:", sum(sim_5), "\n\n")
## Total: 29.45815
# b. 20 hari
sim_20 <- sample(permintaan, size = 20, replace = TRUE, prob = prob)
cat("Permintaan 20 hari:\n")
## Permintaan 20 hari:
print(sim_20)
##  [1]  2.9053361 11.5322054 11.5322054 11.5322054 26.5810974  0.5830689
##  [7] 16.8691452  6.2845458  2.9053361 16.8691452  6.2845458 26.5810974
## [13] 11.5322054  6.2845458  1.1242195  6.3300243  2.9053361  0.6315472
## [19]  6.2845458  2.9053361
cat("Total:", sum(sim_20), "\n\n")
## Total: 178.4577
# c. 100 hari
sim_100 <- sample(permintaan, size = 100, replace = TRUE, prob = prob)
cat("Permintaan 100 hari:\n")
## Permintaan 100 hari:
cat("Total:", sum(sim_100), "\n\n")
## Total: 1085.338
# d. 1000 hari
sim_1000 <- sample(permintaan, size = 1000, replace = TRUE, prob = prob)
cat("Permintaan 1000 hari:\n")
## Permintaan 1000 hari:
cat("Total:", sum(sim_1000), "\n")
## Total: 10590.37