PSS Latihan 2

set.seed(123)  # Supaya hasil tetap sama setiap dijalankan
permintaan <- rexp(10, rate = 1/5)
permintaan

##  [1]  4.2172863  2.8830514  6.6452743  0.1578868  0.2810549  1.5825061
##  [7]  1.5711365  0.7263340 13.6311823  0.1457672

frekuensi <- rnorm(10, mean = 10, sd = 2)
frekuensi

##  [1]  9.108676 12.448164 10.719628 10.801543 10.221365  8.888318 13.573826
##  [8] 10.995701  6.066766 11.402712

mean_permintaan <- mean(permintaan)
mean_permintaan

## [1] 3.184148

prediksi_5_hari <- mean_permintaan * 5
prediksi_5_hari

## [1] 15.92074

prediksi_20_hari <- mean_permintaan * 20
prediksi_20_hari

## [1] 63.68296

prediksi_100_hari <- mean_permintaan * 100
prediksi_100_hari

## [1] 318.4148

prediksi_1000_hari <- mean_permintaan * 1000
prediksi_1000_hari

## [1] 3184.148

cat("Prediksi permintaan selama 5 hari: ", prediksi_5_hari, "\n")

## Prediksi permintaan selama 5 hari:  15.92074

cat("Prediksi permintaan selama 20 hari: ", prediksi_20_hari, "\n")

## Prediksi permintaan selama 20 hari:  63.68296

cat("Prediksi permintaan selama 100 hari: ", prediksi_100_hari, "\n")

## Prediksi permintaan selama 100 hari:  318.4148

cat("Prediksi permintaan selama 1000 hari: ", prediksi_1000_hari, "\n")

## Prediksi permintaan selama 1000 hari:  3184.148