permintaan_hist <- c(20, 22, 25, 21, 23, 22, 24, 25, 27, 26,
24, 23, 25, 28, 30, 29, 28, 26, 24, 23,
22, 24, 26, 27, 25, 23, 22, 21, 20, 19,
22, 23, 24, 26, 28, 30, 31, 29, 27, 25,
23, 22, 21, 22, 24, 25, 26, 27, 28, 29,
30, 28, 26, 24, 22, 21, 23, 25, 27, 29,
28, 27, 26, 25, 23, 21, 20, 22, 24, 26,
28, 29, 30, 32, 31, 30, 28, 26, 24, 22,
21, 20, 22, 23, 24, 25, 26, 27, 28, 29,
30, 31, 32, 33, 31, 29, 27, 25, 23, 21)
set.seed(1)
prediksi_hist_5 <- sum(sample(permintaan_hist, 5, replace = TRUE))
cat("Latihan 1 - Prediksi 5 Hari:", prediksi_hist_5, "\n")
## Latihan 1 - Prediksi 5 Hari: 121
set.seed(2)
prediksi_hist_20 <- sum(sample(permintaan_hist, 20, replace = TRUE))
cat("Latihan 1 - Prediksi 20 Hari:", prediksi_hist_20, "\n")
## Latihan 1 - Prediksi 20 Hari: 514
set.seed(3)
prediksi_hist_100 <- sum(sample(permintaan_hist, 100, replace = TRUE))
cat("Latihan 1 - Prediksi 100 Hari:", prediksi_hist_100, "\n")
## Latihan 1 - Prediksi 100 Hari: 2570
set.seed(4)
prediksi_hist_1000 <- sum(sample(permintaan_hist, 1000, replace = TRUE))
cat("Latihan 1 - Prediksi 1000 Hari:", prediksi_hist_1000, "\n")
## Latihan 1 - Prediksi 1000 Hari: 25458
set.seed(5)
permintaan_exp <- rexp(1000, rate = 1/25) # Rata-rata = 25
set.seed(6)
prediksi_exp_5 <- sum(sample(permintaan_exp, 5, replace = TRUE))
cat("Latihan 2 - Prediksi 5 Hari:", prediksi_exp_5, "\n")
## Latihan 2 - Prediksi 5 Hari: 100.1222
set.seed(7)
prediksi_exp_20 <- sum(sample(permintaan_exp, 20, replace = TRUE))
cat("Latihan 2 - Prediksi 20 Hari:", prediksi_exp_20, "\n")
## Latihan 2 - Prediksi 20 Hari: 341.8776
set.seed(8)
prediksi_exp_100 <- sum(sample(permintaan_exp, 100, replace = TRUE))
cat("Latihan 2 - Prediksi 100 Hari:", prediksi_exp_100, "\n")
## Latihan 2 - Prediksi 100 Hari: 2910.117
set.seed(9)
prediksi_exp_1000 <- sum(sample(permintaan_exp, 1000, replace = TRUE))
cat("Latihan 2 - Prediksi 1000 Hari:", prediksi_exp_1000, "\n")
## Latihan 2 - Prediksi 1000 Hari: 24386.77