permintaan_gelas <- c(50,60,70,80,90)
frekuensi <- c(10,20,40,20,10)dist.prob=frekuensi/sum(frekuensi)
dist.prob## [1] 0.1 0.2 0.4 0.2 0.1dist.kum=cumsum(dist.prob)
dist.kum## [1] 0.1 0.3 0.7 0.9 1.0interval_bawah <- c(0, head(round(dist.kum * 100), -1) + 1)
interval_atas <- round(dist.kum * 100)
interval <- paste(interval_bawah, "-", interval_atas)Keterangan untuk menyusun dan menganalisis ” prediksi permintaan es teh ” dengan distribusi probabilitas dari data permintaan berdasarkan frekuensi yang diberikan. 1. menghitung distribusi probabilitas dari setiap nilai permintaan menggunakan proporsi frekuensinya terhadap total frekuensi. 2. menghitung distribusi probabilitas kumulatif untuk mengetahui akumulasi peluang hingga titik tertentu. Proses ini penting dalam analisis statistik untuk memahami bagaimana data tersebar dan bagaimana peluang terdistribusi di antara nilai-nilai permintaan. 3. membuat interval acak (random interval) yang dapat digunakan untuk keperluan simulasi Monte Carlo untuk membuat pemodelan permintaan masa depan berdasarkan distribusi historis.
tabel_distribusi <- data.frame(
Permintaan = permintaan_gelas,
Frekuensi_Observasi = frekuensi,
Probabilitas = round(dist.prob, 2),
Probabilitas_Kumulatif = round(dist.kum, 2),
Interval = interval
)Keterangan Keterangan:
Penggabungan data frame ini bertujuan untuk menyusun seluruh informasi
yang telah dihitung—seperti permintaan, frekuensi observasi,
probabilitas, probabilitas kumulatif, dan interval—ke dalam satu tabel
yang terstruktur dan mudah dianalisis. Dengan menyatukan data tersebut,
proses analisis distribusi menjadi lebih efisien, jelas, dan siap
digunakan untuk visualisasi maupun pengambilan keputusan statistik
lanjutan seperti simulasi atau prediksi.
print(tabel_distribusi)## Permintaan Frekuensi_Observasi Probabilitas Probabilitas_Kumulatif Interval
## 1 50 10 0.1 0.1 0 - 10
## 2 60 20 0.2 0.3 11 - 30
## 3 70 40 0.4 0.7 31 - 70
## 4 80 20 0.2 0.9 71 - 90
## 5 90 10 0.1 1.0 91 - 100Keterangan Tabel Distribusi pada soal 1
###a. prediksi permintaan es teh selama 5 hari # Membangkitkan bilangan random
set.seed(122)
n <- 5
bil_random=runif(n) #simulasi 100 hari kedepan
bil_random## [1] 0.90502058 0.90685080 0.19055496 0.04091233 0.57907347permintaan <- numeric(n)for (i in 1:n) {
if (bil_random[i] <= dist.kum[1]) {
permintaan[i] <- 50
} else if (bil_random[i] <= dist.kum[2]) {
permintaan[i] <- 60
} else if (bil_random[i] <= dist.kum[3]) {
permintaan[i] <- 70
} else if (bil_random[i] <= dist.kum[4]) {
permintaan[i] <- 80
} else {
permintaan[i] <- 90
}
}tabel_simulasi <- data.frame(
Hari = 1:n,
Bilangan_Acak = round(bil_random, 4),
Permintaan = permintaan
)
print(tabel_simulasi)## Hari Bilangan_Acak Permintaan
## 1 1 0.9050 90
## 2 2 0.9069 90
## 3 3 0.1906 60
## 4 4 0.0409 50
## 5 5 0.5791 70###b. prediksi permintaan es teh selama 20 hari # Membangkitkan bilangan random
set.seed(124)
n <- 20
bil_random=runif(n) #simulasi 100 hari kedepan
bil_random## [1] 0.08301544 0.40879466 0.51528499 0.39688235 0.22272271 0.29234964
## [7] 0.58406590 0.49091149 0.92299912 0.27979485 0.77170687 0.85685036
## [13] 0.75810797 0.85030203 0.40929666 0.05501699 0.57812295 0.74505186
## [19] 0.88631354 0.03078879permintaan <- numeric(n)for (i in 1:n) {
if (bil_random[i] <= dist.kum[1]) {
permintaan[i] <- 50
} else if (bil_random[i] <= dist.kum[2]) {
permintaan[i] <- 60
} else if (bil_random[i] <= dist.kum[3]) {
permintaan[i] <- 70
} else if (bil_random[i] <= dist.kum[4]) {
permintaan[i] <- 80
} else {
permintaan[i] <- 90
}
}tabel_simulasi <- data.frame(
Hari = 1:n,
Bilangan_Acak = round(bil_random, 4),
Permintaan = permintaan
)
print(tabel_simulasi)## Hari Bilangan_Acak Permintaan
## 1 1 0.0830 50
## 2 2 0.4088 70
## 3 3 0.5153 70
## 4 4 0.3969 70
## 5 5 0.2227 60
## 6 6 0.2923 60
## 7 7 0.5841 70
## 8 8 0.4909 70
## 9 9 0.9230 90
## 10 10 0.2798 60
## 11 11 0.7717 80
## 12 12 0.8569 80
## 13 13 0.7581 80
## 14 14 0.8503 80
## 15 15 0.4093 70
## 16 16 0.0550 50
## 17 17 0.5781 70
## 18 18 0.7451 80
## 19 19 0.8863 80
## 20 20 0.0308 50###c. Prediksi permintaan es teh selama 100 hari # Membangkitkan bilangan random
set.seed(123)
n <- 100
bil_random=runif(n) #simulasi 100 hari kedepan
bil_random## [1] 0.2875775201 0.7883051354 0.4089769218 0.8830174040 0.9404672843
## [6] 0.0455564994 0.5281054880 0.8924190444 0.5514350145 0.4566147353
## [11] 0.9568333453 0.4533341562 0.6775706355 0.5726334020 0.1029246827
## [16] 0.8998249704 0.2460877344 0.0420595335 0.3279207193 0.9545036491
## [21] 0.8895393161 0.6928034062 0.6405068138 0.9942697766 0.6557057991
## [26] 0.7085304682 0.5440660247 0.5941420204 0.2891597373 0.1471136473
## [31] 0.9630242325 0.9022990451 0.6907052784 0.7954674177 0.0246136845
## [36] 0.4777959711 0.7584595375 0.2164079358 0.3181810076 0.2316257854
## [41] 0.1428000224 0.4145463358 0.4137243263 0.3688454509 0.1524447477
## [46] 0.1388060634 0.2330340995 0.4659624503 0.2659726404 0.8578277153
## [51] 0.0458311667 0.4422000742 0.7989248456 0.1218992600 0.5609479838
## [56] 0.2065313896 0.1275316502 0.7533078643 0.8950453592 0.3744627759
## [61] 0.6651151946 0.0948406609 0.3839696378 0.2743836446 0.8146400389
## [66] 0.4485163414 0.8100643530 0.8123895095 0.7943423211 0.4398316876
## [71] 0.7544751586 0.6292211316 0.7101824014 0.0006247733 0.4753165741
## [76] 0.2201188852 0.3798165377 0.6127710033 0.3517979092 0.1111354243
## [81] 0.2436194727 0.6680555874 0.4176467797 0.7881958340 0.1028646443
## [86] 0.4348927415 0.9849569800 0.8930511144 0.8864690608 0.1750526503
## [91] 0.1306956916 0.6531019250 0.3435164723 0.6567581280 0.3203732425
## [96] 0.1876911193 0.7822943013 0.0935949867 0.4667790416 0.5115054599permintaan <- numeric(n)for (i in 1:n) {
if (bil_random[i] <= dist.kum[1]) {
permintaan[i] <- 50
} else if (bil_random[i] <= dist.kum[2]) {
permintaan[i] <- 60
} else if (bil_random[i] <= dist.kum[3]) {
permintaan[i] <- 70
} else if (bil_random[i] <= dist.kum[4]) {
permintaan[i] <- 80
} else {
permintaan[i] <- 90
}
}tabel_simulasi <- data.frame(
Hari = 1:n,
Bilangan_Acak = round(bil_random, 4),
Permintaan = permintaan
)
print(tabel_simulasi)## Hari Bilangan_Acak Permintaan
## 1 1 0.2876 60
## 2 2 0.7883 80
## 3 3 0.4090 70
## 4 4 0.8830 80
## 5 5 0.9405 90
## 6 6 0.0456 50
## 7 7 0.5281 70
## 8 8 0.8924 80
## 9 9 0.5514 70
## 10 10 0.4566 70
## 11 11 0.9568 90
## 12 12 0.4533 70
## 13 13 0.6776 70
## 14 14 0.5726 70
## 15 15 0.1029 60
## 16 16 0.8998 80
## 17 17 0.2461 60
## 18 18 0.0421 50
## 19 19 0.3279 70
## 20 20 0.9545 90
## 21 21 0.8895 80
## 22 22 0.6928 70
## 23 23 0.6405 70
## 24 24 0.9943 90
## 25 25 0.6557 70
## 26 26 0.7085 80
## 27 27 0.5441 70
## 28 28 0.5941 70
## 29 29 0.2892 60
## 30 30 0.1471 60
## 31 31 0.9630 90
## 32 32 0.9023 90
## 33 33 0.6907 70
## 34 34 0.7955 80
## 35 35 0.0246 50
## 36 36 0.4778 70
## 37 37 0.7585 80
## 38 38 0.2164 60
## 39 39 0.3182 70
## 40 40 0.2316 60
## 41 41 0.1428 60
## 42 42 0.4145 70
## 43 43 0.4137 70
## 44 44 0.3688 70
## 45 45 0.1524 60
## 46 46 0.1388 60
## 47 47 0.2330 60
## 48 48 0.4660 70
## 49 49 0.2660 60
## 50 50 0.8578 80
## 51 51 0.0458 50
## 52 52 0.4422 70
## 53 53 0.7989 80
## 54 54 0.1219 60
## 55 55 0.5609 70
## 56 56 0.2065 60
## 57 57 0.1275 60
## 58 58 0.7533 80
## 59 59 0.8950 80
## 60 60 0.3745 70
## 61 61 0.6651 70
## 62 62 0.0948 50
## 63 63 0.3840 70
## 64 64 0.2744 60
## 65 65 0.8146 80
## 66 66 0.4485 70
## 67 67 0.8101 80
## 68 68 0.8124 80
## 69 69 0.7943 80
## 70 70 0.4398 70
## 71 71 0.7545 80
## 72 72 0.6292 70
## 73 73 0.7102 80
## 74 74 0.0006 50
## 75 75 0.4753 70
## 76 76 0.2201 60
## 77 77 0.3798 70
## 78 78 0.6128 70
## 79 79 0.3518 70
## 80 80 0.1111 60
## 81 81 0.2436 60
## 82 82 0.6681 70
## 83 83 0.4176 70
## 84 84 0.7882 80
## 85 85 0.1029 60
## 86 86 0.4349 70
## 87 87 0.9850 90
## 88 88 0.8931 80
## 89 89 0.8865 80
## 90 90 0.1751 60
## 91 91 0.1307 60
## 92 92 0.6531 70
## 93 93 0.3435 70
## 94 94 0.6568 70
## 95 95 0.3204 70
## 96 96 0.1877 60
## 97 97 0.7823 80
## 98 98 0.0936 50
## 99 99 0.4668 70
## 100 100 0.5115 70###d. Permintaan es teh selama 1000 hari kedepan # Membangkitkan bilangan random
set.seed(234)
n <- 1000
bil_random=runif(n) #simulasi 1000 hari kedepan
bil_random## [1] 0.745619998 0.781712425 0.020037114 0.776085387 0.066910093 0.644795124
## [7] 0.929385959 0.717642189 0.927736510 0.284230120 0.555724930 0.547701653
## [13] 0.582847855 0.582989913 0.001198341 0.441117854 0.313152501 0.740014466
## [19] 0.138326844 0.871777777 0.523069807 0.579103060 0.865198117 0.617423051
## [25] 0.489781426 0.374799914 0.696669818 0.191712539 0.838926789 0.882509093
## [31] 0.619228172 0.252313021 0.176166846 0.704828699 0.533483977 0.688132279
## [37] 0.700826685 0.153472615 0.506330399 0.354719698 0.581351371 0.907433954
## [43] 0.845252766 0.232284784 0.658729784 0.777130681 0.240331854 0.628367720
## [49] 0.593134023 0.126307934 0.635001690 0.379977084 0.153911768 0.807731041
## [55] 0.079001154 0.144295894 0.086308608 0.461617460 0.808697054 0.682467268
## [61] 0.368178468 0.489342699 0.254865682 0.864698488 0.459867718 0.394186412
## [67] 0.759254910 0.504132826 0.669326747 0.602171385 0.932822609 0.346570028
## [73] 0.585601371 0.312514070 0.067413145 0.380074465 0.549735860 0.389323471
## [79] 0.149613038 0.122093717 0.587229065 0.535991920 0.330662031 0.844831921
## [85] 0.930381409 0.644907024 0.288998327 0.956068176 0.331446765 0.823270380
## [91] 0.853579982 0.854852773 0.152149354 0.146600247 0.515918863 0.993590470
## [97] 0.371550455 0.372282892 0.688985377 0.512350604 0.781186392 0.748431856
## [103] 0.262248690 0.444065967 0.328858040 0.899916829 0.133813262 0.267286752
## [109] 0.157825185 0.563683680 0.728886350 0.194772681 0.618518660 0.624986014
## [115] 0.233757084 0.033654056 0.168996393 0.131134181 0.735018835 0.500915084
## [121] 0.746202516 0.386100733 0.591646947 0.595385393 0.660299787 0.131770524
## [127] 0.686254219 0.697693098 0.174717715 0.150917495 0.531533502 0.360773881
## [133] 0.719242499 0.938575543 0.463238407 0.906180564 0.661862117 0.125958967
## [139] 0.642455014 0.294585689 0.849140339 0.918101893 0.579587160 0.649116081
## [145] 0.918069995 0.957177757 0.354946088 0.351412741 0.161758045 0.417010696
## [151] 0.596354313 0.309449094 0.982456072 0.590394389 0.076220880 0.218748293
## [157] 0.136973966 0.579128888 0.592786252 0.581279036 0.633631011 0.197651212
## [163] 0.047584706 0.261387848 0.765990740 0.113161745 0.756054198 0.881010828
## [169] 0.045954703 0.224342660 0.508859303 0.365248628 0.937097606 0.753540933
## [175] 0.133382035 0.169159092 0.418969949 0.380821095 0.342477592 0.322205980
## [181] 0.327609087 0.276367153 0.173787005 0.797320163 0.914713143 0.799462254
## [187] 0.642360066 0.085034513 0.845956381 0.893619952 0.556930504 0.486601855
## [193] 0.860172816 0.194258813 0.876823564 0.824073945 0.392412161 0.053407392
## [199] 0.807845152 0.856604644 0.575499418 0.315782116 0.764645937 0.228979272
## [205] 0.171521934 0.647396275 0.634688171 0.326673566 0.007179751 0.687418686
## [211] 0.403011154 0.310617091 0.647531851 0.451905359 0.082437875 0.983288632
## [217] 0.222258491 0.186380597 0.575381278 0.548298177 0.273303977 0.963012915
## [223] 0.026322356 0.312321700 0.894113035 0.342423403 0.005190731 0.710638257
## [229] 0.398659916 0.046513786 0.379333170 0.587789622 0.562041826 0.731781449
## [235] 0.743325979 0.394710435 0.925317143 0.252036664 0.044765502 0.488200069
## [241] 0.928433647 0.268794759 0.580805086 0.624055642 0.628537661 0.615130113
## [247] 0.674364374 0.703365378 0.230016246 0.283120038 0.104280205 0.618975351
## [253] 0.618708403 0.311515535 0.644958370 0.397110453 0.096974153 0.436214384
## [259] 0.181469694 0.269733788 0.517658052 0.550152391 0.421094669 0.138951815
## [265] 0.270487224 0.219411052 0.375056233 0.653840253 0.257232699 0.127131451
## [271] 0.664262594 0.207341665 0.642404213 0.125716612 0.218641064 0.362956269
## [277] 0.852931638 0.058817349 0.506739329 0.384542343 0.613010038 0.983789245
## [283] 0.333239347 0.943064346 0.437410682 0.162795367 0.071689403 0.924495018
## [289] 0.064115724 0.531372510 0.088885402 0.264607155 0.401010946 0.350188322
## [295] 0.859970713 0.127898837 0.691815296 0.253797419 0.743296958 0.056872965
## [301] 0.519865731 0.501822559 0.802349605 0.925882492 0.385044726 0.379864155
## [307] 0.678727445 0.786513106 0.246499992 0.081191623 0.415968196 0.088425828
## [313] 0.912666145 0.267473317 0.528948880 0.542255398 0.337530536 0.802896214
## [319] 0.940132604 0.987693201 0.196029448 0.598016477 0.690620310 0.342444407
## [325] 0.651270687 0.243260123 0.631802354 0.228855096 0.630400400 0.420333792
## [331] 0.778553828 0.648179977 0.397010020 0.679375345 0.308291966 0.340244782
## [337] 0.986590812 0.999849578 0.675470565 0.354461058 0.696042894 0.449960582
## [343] 0.288405582 0.364966031 0.651944997 0.137111765 0.017594279 0.543224211
## [349] 0.084655719 0.787304951 0.324176794 0.568843138 0.703853126 0.563961467
## [355] 0.004582942 0.829051108 0.642295967 0.091109043 0.994759641 0.376275968
## [361] 0.283334168 0.184577562 0.525356358 0.558950825 0.327976500 0.304732913
## [367] 0.697347553 0.578356249 0.636912764 0.827367087 0.449625831 0.172412625
## [373] 0.757809334 0.233866588 0.923969225 0.325735780 0.050818730 0.208883082
## [379] 0.152878279 0.285369292 0.546598406 0.256259799 0.912323290 0.470539252
## [385] 0.650176776 0.999360959 0.599587823 0.216530568 0.391003724 0.276287330
## [391] 0.078259979 0.569730396 0.732443346 0.422056675 0.907543026 0.493358411
## [397] 0.635618409 0.118512301 0.044331407 0.676908395 0.028855904 0.937453876
## [403] 0.797772938 0.667979508 0.597409484 0.013513340 0.218099258 0.750244021
## [409] 0.354357203 0.279423066 0.807478181 0.027490892 0.010439324 0.921326497
## [415] 0.723617027 0.469613531 0.764809997 0.645577108 0.515841020 0.977154962
## [421] 0.272420959 0.076601185 0.243594446 0.978416180 0.556814785 0.220750871
## [427] 0.913051547 0.345447423 0.183509006 0.595807819 0.810504292 0.300803636
## [433] 0.377715105 0.202198157 0.559531673 0.606911031 0.010212706 0.592076412
## [439] 0.551538713 0.576334559 0.673633143 0.489043026 0.045252149 0.044935435
## [445] 0.831632367 0.077424410 0.765943619 0.433145972 0.908459009 0.601760464
## [451] 0.444736628 0.215431164 0.271641047 0.173275854 0.488521093 0.124648688
## [457] 0.511163259 0.377413962 0.695368232 0.046870136 0.816138005 0.103815792
## [463] 0.336372030 0.663345205 0.549811856 0.799748973 0.271481019 0.322257071
## [469] 0.594071863 0.211524988 0.365988106 0.429006165 0.449650198 0.094933138
## [475] 0.490253408 0.665096284 0.025523594 0.183597910 0.372223353 0.604959605
## [481] 0.285643460 0.761085574 0.128151444 0.239595518 0.557583307 0.298770128
## [487] 0.640322042 0.785620091 0.324532245 0.841634167 0.384708071 0.556803701
## [493] 0.151374058 0.645805534 0.081003609 0.252982705 0.444152456 0.733732127
## [499] 0.284652332 0.130843537 0.622887406 0.973676146 0.474976663 0.639858398
## [505] 0.851696578 0.571287506 0.579073900 0.961300057 0.503179302 0.883781768
## [511] 0.964199542 0.699234305 0.492020989 0.020281081 0.995190049 0.892395166
## [517] 0.787215498 0.018757547 0.863385869 0.197293879 0.910187013 0.914144598
## [523] 0.163155383 0.114390852 0.189856350 0.477771843 0.255364506 0.801510143
## [529] 0.513887607 0.532614463 0.208794280 0.214877583 0.998282679 0.477033068
## [535] 0.795534295 0.217006377 0.247472429 0.565292588 0.313319670 0.838519730
## [541] 0.786612929 0.197459125 0.251300465 0.021996017 0.056387300 0.875520531
## [547] 0.292068818 0.616782751 0.686303245 0.557873425 0.740393012 0.999845368
## [553] 0.928001527 0.241595371 0.983984400 0.511288590 0.916736986 0.769481821
## [559] 0.859173305 0.101836998 0.263761941 0.389704694 0.177236182 0.584820428
## [565] 0.097378086 0.265659220 0.918723066 0.130997266 0.749950839 0.245554833
## [571] 0.684042755 0.257053155 0.448440817 0.575817903 0.451612719 0.289464723
## [577] 0.148194609 0.426262839 0.538746719 0.450837704 0.633583762 0.248100576
## [583] 0.337642108 0.541273199 0.818450444 0.325594971 0.422182062 0.977573718
## [589] 0.532152153 0.593300965 0.814561462 0.844805710 0.381338052 0.146356345
## [595] 0.148012542 0.889576876 0.737832313 0.183821850 0.567739325 0.184405331
## [601] 0.720165261 0.184974595 0.533860855 0.553498405 0.754795734 0.789481243
## [607] 0.139009838 0.196948638 0.411742144 0.378749919 0.211176569 0.729097934
## [613] 0.363279863 0.793167681 0.262068380 0.135971353 0.644251125 0.037427965
## [619] 0.057134371 0.026030601 0.821793688 0.997605812 0.377939604 0.052586530
## [625] 0.385251973 0.460518639 0.049007350 0.352312970 0.919439205 0.850551591
## [631] 0.631830197 0.279757587 0.904525880 0.630593830 0.009418778 0.007069679
## [637] 0.802764989 0.501383171 0.654504230 0.404417522 0.313044216 0.343631363
## [643] 0.285969452 0.208412752 0.942008974 0.436460491 0.841395406 0.696133265
## [649] 0.925374929 0.688209516 0.769755763 0.585025926 0.411259805 0.295122324
## [655] 0.500048999 0.863252747 0.864656070 0.134849387 0.526890358 0.050258297
## [661] 0.462624743 0.062821075 0.035236049 0.878281058 0.593259750 0.401652543
## [667] 0.775215567 0.696165963 0.865963334 0.800255032 0.177417819 0.227491500
## [673] 0.698650001 0.009802922 0.024278869 0.902818649 0.807772379 0.167081523
## [679] 0.031110659 0.090588076 0.114877585 0.867507701 0.362247921 0.601947159
## [685] 0.652627576 0.816434079 0.100373280 0.640106629 0.088323529 0.057714126
## [691] 0.910980266 0.572975965 0.418804709 0.044664746 0.565701683 0.564397711
## [697] 0.765836814 0.789286701 0.838983777 0.566591026 0.504510840 0.529601350
## [703] 0.137856302 0.043295879 0.992769226 0.545124416 0.229422905 0.615533473
## [709] 0.954721475 0.905412534 0.591900632 0.844951943 0.895141573 0.908744002
## [715] 0.434800602 0.110130385 0.172347567 0.846220599 0.507181322 0.073349696
## [721] 0.944917815 0.033281533 0.178010219 0.020165193 0.270876573 0.386681464
## [727] 0.670274369 0.406146128 0.860073019 0.815730063 0.888618286 0.048430961
## [733] 0.102556950 0.938205775 0.387789920 0.217193757 0.134659163 0.023382427
## [739] 0.652317968 0.341223336 0.324814878 0.986022571 0.109878578 0.801161266
## [745] 0.524576940 0.184368015 0.745008031 0.622319471 0.910316850 0.205623289
## [751] 0.608688585 0.449187746 0.705139501 0.757811748 0.297590116 0.395445563
## [757] 0.878348381 0.963875376 0.631933101 0.130710595 0.638940368 0.415383132
## [763] 0.284543719 0.446306852 0.763093420 0.658615773 0.294518338 0.546583879
## [769] 0.824406153 0.766442044 0.157701797 0.812753798 0.032436136 0.379503699
## [775] 0.960174185 0.278122652 0.216409751 0.640318617 0.774777965 0.166799268
## [781] 0.831232327 0.148591329 0.248343359 0.103217943 0.728867827 0.396209669
## [787] 0.610462054 0.659769628 0.463755702 0.283266542 0.366834801 0.122705928
## [793] 0.660446455 0.164323459 0.901069718 0.757379574 0.107599798 0.598276160
## [799] 0.938003392 0.351491537 0.874802216 0.703993423 0.951583363 0.478099873
## [805] 0.533240392 0.237634755 0.612735608 0.265967837 0.909379946 0.008246187
## [811] 0.124271389 0.840215962 0.340993766 0.632133404 0.791614278 0.257412804
## [817] 0.846035413 0.950559483 0.824244227 0.160554570 0.656106798 0.133471386
## [823] 0.789885519 0.566827464 0.294974416 0.441780950 0.564376444 0.372243587
## [829] 0.919518132 0.849415383 0.011134779 0.886671233 0.293262288 0.268721845
## [835] 0.313307327 0.282352747 0.990151229 0.121759416 0.760955036 0.652388754
## [841] 0.102253927 0.748819078 0.433809864 0.961835617 0.979673601 0.029798632
## [847] 0.944723919 0.843059408 0.518625862 0.946846120 0.554661991 0.574882969
## [853] 0.074612902 0.994604305 0.531807020 0.944391981 0.182462667 0.500712038
## [859] 0.339839584 0.624828463 0.430777937 0.304542745 0.009023918 0.204527301
## [865] 0.913916301 0.263462025 0.525535599 0.803594457 0.973187455 0.396953530
## [871] 0.311021388 0.745965585 0.610987220 0.479110588 0.223272561 0.317198781
## [877] 0.613706602 0.316687622 0.195904312 0.432539902 0.570259268 0.411927833
## [883] 0.527981586 0.154035407 0.629336836 0.926940939 0.009774083 0.384606932
## [889] 0.562128457 0.597253592 0.443376776 0.495343224 0.016893681 0.430961104
## [895] 0.675291827 0.948944056 0.329314707 0.268041297 0.104882743 0.081867654
## [901] 0.862382694 0.429100798 0.224227165 0.794299923 0.024722398 0.562487876
## [907] 0.457026345 0.653193450 0.222179553 0.802162074 0.858803639 0.301973352
## [913] 0.457118113 0.541069458 0.402999630 0.967208883 0.341459396 0.136700941
## [919] 0.341817163 0.212443766 0.435247277 0.607888997 0.163093892 0.800006771
## [925] 0.136678412 0.014201188 0.610780847 0.131707662 0.466850899 0.870123658
## [931] 0.658313021 0.680776062 0.526827718 0.850862969 0.777938972 0.483932062
## [937] 0.802943228 0.532889536 0.133501320 0.645793903 0.810929913 0.375048728
## [943] 0.257987425 0.701427372 0.647283338 0.109276104 0.888933402 0.541483535
## [949] 0.587555532 0.247466590 0.671080221 0.679283862 0.037321789 0.561213964
## [955] 0.909662745 0.762022094 0.182527789 0.957110993 0.055781112 0.130180723
## [961] 0.435518483 0.944120144 0.655038094 0.291423551 0.372276022 0.587219461
## [967] 0.148792407 0.497460222 0.823248622 0.099406221 0.674359806 0.091756656
## [973] 0.729640950 0.252554237 0.845498581 0.927954867 0.118731529 0.883899770
## [979] 0.541557984 0.596139380 0.748119883 0.876672554 0.378513666 0.084335790
## [985] 0.404001739 0.472423086 0.367689076 0.760293016 0.869948226 0.284247154
## [991] 0.171565057 0.667208828 0.862610718 0.586025217 0.036518531 0.657908368
## [997] 0.321530550 0.070719763 0.361197127 0.134655540permintaan <- numeric(n)for (i in 1:n) {
if (bil_random[i] <= dist.kum[1]) {
permintaan[i] <- 50
} else if (bil_random[i] <= dist.kum[2]) {
permintaan[i] <- 60
} else if (bil_random[i] <= dist.kum[3]) {
permintaan[i] <- 70
} else if (bil_random[i] <= dist.kum[4]) {
permintaan[i] <- 80
} else {
permintaan[i] <- 90
}
}
tabel_simulasi <- data.frame(
Hari = 1:n,
Bilangan_Acak = round(bil_random, 4),
Permintaan = permintaan
)
print(tabel_simulasi)## Hari Bilangan_Acak Permintaan
## 1 1 0.7456 80
## 2 2 0.7817 80
## 3 3 0.0200 50
## 4 4 0.7761 80
## 5 5 0.0669 50
## 6 6 0.6448 70
## 7 7 0.9294 90
## 8 8 0.7176 80
## 9 9 0.9277 90
## 10 10 0.2842 60
## 11 11 0.5557 70
## 12 12 0.5477 70
## 13 13 0.5828 70
## 14 14 0.5830 70
## 15 15 0.0012 50
## 16 16 0.4411 70
## 17 17 0.3132 70
## 18 18 0.7400 80
## 19 19 0.1383 60
## 20 20 0.8718 80
## 21 21 0.5231 70
## 22 22 0.5791 70
## 23 23 0.8652 80
## 24 24 0.6174 70
## 25 25 0.4898 70
## 26 26 0.3748 70
## 27 27 0.6967 70
## 28 28 0.1917 60
## 29 29 0.8389 80
## 30 30 0.8825 80
## 31 31 0.6192 70
## 32 32 0.2523 60
## 33 33 0.1762 60
## 34 34 0.7048 80
## 35 35 0.5335 70
## 36 36 0.6881 70
## 37 37 0.7008 80
## 38 38 0.1535 60
## 39 39 0.5063 70
## 40 40 0.3547 70
## 41 41 0.5814 70
## 42 42 0.9074 90
## 43 43 0.8453 80
## 44 44 0.2323 60
## 45 45 0.6587 70
## 46 46 0.7771 80
## 47 47 0.2403 60
## 48 48 0.6284 70
## 49 49 0.5931 70
## 50 50 0.1263 60
## 51 51 0.6350 70
## 52 52 0.3800 70
## 53 53 0.1539 60
## 54 54 0.8077 80
## 55 55 0.0790 50
## 56 56 0.1443 60
## 57 57 0.0863 50
## 58 58 0.4616 70
## 59 59 0.8087 80
## 60 60 0.6825 70
## 61 61 0.3682 70
## 62 62 0.4893 70
## 63 63 0.2549 60
## 64 64 0.8647 80
## 65 65 0.4599 70
## 66 66 0.3942 70
## 67 67 0.7593 80
## 68 68 0.5041 70
## 69 69 0.6693 70
## 70 70 0.6022 70
## 71 71 0.9328 90
## 72 72 0.3466 70
## 73 73 0.5856 70
## 74 74 0.3125 70
## 75 75 0.0674 50
## 76 76 0.3801 70
## 77 77 0.5497 70
## 78 78 0.3893 70
## 79 79 0.1496 60
## 80 80 0.1221 60
## 81 81 0.5872 70
## 82 82 0.5360 70
## 83 83 0.3307 70
## 84 84 0.8448 80
## 85 85 0.9304 90
## 86 86 0.6449 70
## 87 87 0.2890 60
## 88 88 0.9561 90
## 89 89 0.3314 70
## 90 90 0.8233 80
## 91 91 0.8536 80
## 92 92 0.8549 80
## 93 93 0.1521 60
## 94 94 0.1466 60
## 95 95 0.5159 70
## 96 96 0.9936 90
## 97 97 0.3716 70
## 98 98 0.3723 70
## 99 99 0.6890 70
## 100 100 0.5124 70
## 101 101 0.7812 80
## 102 102 0.7484 80
## 103 103 0.2622 60
## 104 104 0.4441 70
## 105 105 0.3289 70
## 106 106 0.8999 80
## 107 107 0.1338 60
## 108 108 0.2673 60
## 109 109 0.1578 60
## 110 110 0.5637 70
## 111 111 0.7289 80
## 112 112 0.1948 60
## 113 113 0.6185 70
## 114 114 0.6250 70
## 115 115 0.2338 60
## 116 116 0.0337 50
## 117 117 0.1690 60
## 118 118 0.1311 60
## 119 119 0.7350 80
## 120 120 0.5009 70
## 121 121 0.7462 80
## 122 122 0.3861 70
## 123 123 0.5916 70
## 124 124 0.5954 70
## 125 125 0.6603 70
## 126 126 0.1318 60
## 127 127 0.6863 70
## 128 128 0.6977 70
## 129 129 0.1747 60
## 130 130 0.1509 60
## 131 131 0.5315 70
## 132 132 0.3608 70
## 133 133 0.7192 80
## 134 134 0.9386 90
## 135 135 0.4632 70
## 136 136 0.9062 90
## 137 137 0.6619 70
## 138 138 0.1260 60
## 139 139 0.6425 70
## 140 140 0.2946 60
## 141 141 0.8491 80
## 142 142 0.9181 90
## 143 143 0.5796 70
## 144 144 0.6491 70
## 145 145 0.9181 90
## 146 146 0.9572 90
## 147 147 0.3549 70
## 148 148 0.3514 70
## 149 149 0.1618 60
## 150 150 0.4170 70
## 151 151 0.5964 70
## 152 152 0.3094 70
## 153 153 0.9825 90
## 154 154 0.5904 70
## 155 155 0.0762 50
## 156 156 0.2187 60
## 157 157 0.1370 60
## 158 158 0.5791 70
## 159 159 0.5928 70
## 160 160 0.5813 70
## 161 161 0.6336 70
## 162 162 0.1977 60
## 163 163 0.0476 50
## 164 164 0.2614 60
## 165 165 0.7660 80
## 166 166 0.1132 60
## 167 167 0.7561 80
## 168 168 0.8810 80
## 169 169 0.0460 50
## 170 170 0.2243 60
## 171 171 0.5089 70
## 172 172 0.3652 70
## 173 173 0.9371 90
## 174 174 0.7535 80
## 175 175 0.1334 60
## 176 176 0.1692 60
## 177 177 0.4190 70
## 178 178 0.3808 70
## 179 179 0.3425 70
## 180 180 0.3222 70
## 181 181 0.3276 70
## 182 182 0.2764 60
## 183 183 0.1738 60
## 184 184 0.7973 80
## 185 185 0.9147 90
## 186 186 0.7995 80
## 187 187 0.6424 70
## 188 188 0.0850 50
## 189 189 0.8460 80
## 190 190 0.8936 80
## 191 191 0.5569 70
## 192 192 0.4866 70
## 193 193 0.8602 80
## 194 194 0.1943 60
## 195 195 0.8768 80
## 196 196 0.8241 80
## 197 197 0.3924 70
## 198 198 0.0534 50
## 199 199 0.8078 80
## 200 200 0.8566 80
## 201 201 0.5755 70
## 202 202 0.3158 70
## 203 203 0.7646 80
## 204 204 0.2290 60
## 205 205 0.1715 60
## 206 206 0.6474 70
## 207 207 0.6347 70
## 208 208 0.3267 70
## 209 209 0.0072 50
## 210 210 0.6874 70
## 211 211 0.4030 70
## 212 212 0.3106 70
## 213 213 0.6475 70
## 214 214 0.4519 70
## 215 215 0.0824 50
## 216 216 0.9833 90
## 217 217 0.2223 60
## 218 218 0.1864 60
## 219 219 0.5754 70
## 220 220 0.5483 70
## 221 221 0.2733 60
## 222 222 0.9630 90
## 223 223 0.0263 50
## 224 224 0.3123 70
## 225 225 0.8941 80
## 226 226 0.3424 70
## 227 227 0.0052 50
## 228 228 0.7106 80
## 229 229 0.3987 70
## 230 230 0.0465 50
## 231 231 0.3793 70
## 232 232 0.5878 70
## 233 233 0.5620 70
## 234 234 0.7318 80
## 235 235 0.7433 80
## 236 236 0.3947 70
## 237 237 0.9253 90
## 238 238 0.2520 60
## 239 239 0.0448 50
## 240 240 0.4882 70
## 241 241 0.9284 90
## 242 242 0.2688 60
## 243 243 0.5808 70
## 244 244 0.6241 70
## 245 245 0.6285 70
## 246 246 0.6151 70
## 247 247 0.6744 70
## 248 248 0.7034 80
## 249 249 0.2300 60
## 250 250 0.2831 60
## 251 251 0.1043 60
## 252 252 0.6190 70
## 253 253 0.6187 70
## 254 254 0.3115 70
## 255 255 0.6450 70
## 256 256 0.3971 70
## 257 257 0.0970 50
## 258 258 0.4362 70
## 259 259 0.1815 60
## 260 260 0.2697 60
## 261 261 0.5177 70
## 262 262 0.5502 70
## 263 263 0.4211 70
## 264 264 0.1390 60
## 265 265 0.2705 60
## 266 266 0.2194 60
## 267 267 0.3751 70
## 268 268 0.6538 70
## 269 269 0.2572 60
## 270 270 0.1271 60
## 271 271 0.6643 70
## 272 272 0.2073 60
## 273 273 0.6424 70
## 274 274 0.1257 60
## 275 275 0.2186 60
## 276 276 0.3630 70
## 277 277 0.8529 80
## 278 278 0.0588 50
## 279 279 0.5067 70
## 280 280 0.3845 70
## 281 281 0.6130 70
## 282 282 0.9838 90
## 283 283 0.3332 70
## 284 284 0.9431 90
## 285 285 0.4374 70
## 286 286 0.1628 60
## 287 287 0.0717 50
## 288 288 0.9245 90
## 289 289 0.0641 50
## 290 290 0.5314 70
## 291 291 0.0889 50
## 292 292 0.2646 60
## 293 293 0.4010 70
## 294 294 0.3502 70
## 295 295 0.8600 80
## 296 296 0.1279 60
## 297 297 0.6918 70
## 298 298 0.2538 60
## 299 299 0.7433 80
## 300 300 0.0569 50
## 301 301 0.5199 70
## 302 302 0.5018 70
## 303 303 0.8023 80
## 304 304 0.9259 90
## 305 305 0.3850 70
## 306 306 0.3799 70
## 307 307 0.6787 70
## 308 308 0.7865 80
## 309 309 0.2465 60
## 310 310 0.0812 50
## 311 311 0.4160 70
## 312 312 0.0884 50
## 313 313 0.9127 90
## 314 314 0.2675 60
## 315 315 0.5289 70
## 316 316 0.5423 70
## 317 317 0.3375 70
## 318 318 0.8029 80
## 319 319 0.9401 90
## 320 320 0.9877 90
## 321 321 0.1960 60
## 322 322 0.5980 70
## 323 323 0.6906 70
## 324 324 0.3424 70
## 325 325 0.6513 70
## 326 326 0.2433 60
## 327 327 0.6318 70
## 328 328 0.2289 60
## 329 329 0.6304 70
## 330 330 0.4203 70
## 331 331 0.7786 80
## 332 332 0.6482 70
## 333 333 0.3970 70
## 334 334 0.6794 70
## 335 335 0.3083 70
## 336 336 0.3402 70
## 337 337 0.9866 90
## 338 338 0.9998 90
## 339 339 0.6755 70
## 340 340 0.3545 70
## 341 341 0.6960 70
## 342 342 0.4500 70
## 343 343 0.2884 60
## 344 344 0.3650 70
## 345 345 0.6519 70
## 346 346 0.1371 60
## 347 347 0.0176 50
## 348 348 0.5432 70
## 349 349 0.0847 50
## 350 350 0.7873 80
## 351 351 0.3242 70
## 352 352 0.5688 70
## 353 353 0.7039 80
## 354 354 0.5640 70
## 355 355 0.0046 50
## 356 356 0.8291 80
## 357 357 0.6423 70
## 358 358 0.0911 50
## 359 359 0.9948 90
## 360 360 0.3763 70
## 361 361 0.2833 60
## 362 362 0.1846 60
## 363 363 0.5254 70
## 364 364 0.5590 70
## 365 365 0.3280 70
## 366 366 0.3047 70
## 367 367 0.6973 70
## 368 368 0.5784 70
## 369 369 0.6369 70
## 370 370 0.8274 80
## 371 371 0.4496 70
## 372 372 0.1724 60
## 373 373 0.7578 80
## 374 374 0.2339 60
## 375 375 0.9240 90
## 376 376 0.3257 70
## 377 377 0.0508 50
## 378 378 0.2089 60
## 379 379 0.1529 60
## 380 380 0.2854 60
## 381 381 0.5466 70
## 382 382 0.2563 60
## 383 383 0.9123 90
## 384 384 0.4705 70
## 385 385 0.6502 70
## 386 386 0.9994 90
## 387 387 0.5996 70
## 388 388 0.2165 60
## 389 389 0.3910 70
## 390 390 0.2763 60
## 391 391 0.0783 50
## 392 392 0.5697 70
## 393 393 0.7324 80
## 394 394 0.4221 70
## 395 395 0.9075 90
## 396 396 0.4934 70
## 397 397 0.6356 70
## 398 398 0.1185 60
## 399 399 0.0443 50
## 400 400 0.6769 70
## 401 401 0.0289 50
## 402 402 0.9375 90
## 403 403 0.7978 80
## 404 404 0.6680 70
## 405 405 0.5974 70
## 406 406 0.0135 50
## 407 407 0.2181 60
## 408 408 0.7502 80
## 409 409 0.3544 70
## 410 410 0.2794 60
## 411 411 0.8075 80
## 412 412 0.0275 50
## 413 413 0.0104 50
## 414 414 0.9213 90
## 415 415 0.7236 80
## 416 416 0.4696 70
## 417 417 0.7648 80
## 418 418 0.6456 70
## 419 419 0.5158 70
## 420 420 0.9772 90
## 421 421 0.2724 60
## 422 422 0.0766 50
## 423 423 0.2436 60
## 424 424 0.9784 90
## 425 425 0.5568 70
## 426 426 0.2208 60
## 427 427 0.9131 90
## 428 428 0.3454 70
## 429 429 0.1835 60
## 430 430 0.5958 70
## 431 431 0.8105 80
## 432 432 0.3008 70
## 433 433 0.3777 70
## 434 434 0.2022 60
## 435 435 0.5595 70
## 436 436 0.6069 70
## 437 437 0.0102 50
## 438 438 0.5921 70
## 439 439 0.5515 70
## 440 440 0.5763 70
## 441 441 0.6736 70
## 442 442 0.4890 70
## 443 443 0.0453 50
## 444 444 0.0449 50
## 445 445 0.8316 80
## 446 446 0.0774 50
## 447 447 0.7659 80
## 448 448 0.4331 70
## 449 449 0.9085 90
## 450 450 0.6018 70
## 451 451 0.4447 70
## 452 452 0.2154 60
## 453 453 0.2716 60
## 454 454 0.1733 60
## 455 455 0.4885 70
## 456 456 0.1246 60
## 457 457 0.5112 70
## 458 458 0.3774 70
## 459 459 0.6954 70
## 460 460 0.0469 50
## 461 461 0.8161 80
## 462 462 0.1038 60
## 463 463 0.3364 70
## 464 464 0.6633 70
## 465 465 0.5498 70
## 466 466 0.7997 80
## 467 467 0.2715 60
## 468 468 0.3223 70
## 469 469 0.5941 70
## 470 470 0.2115 60
## 471 471 0.3660 70
## 472 472 0.4290 70
## 473 473 0.4497 70
## 474 474 0.0949 50
## 475 475 0.4903 70
## 476 476 0.6651 70
## 477 477 0.0255 50
## 478 478 0.1836 60
## 479 479 0.3722 70
## 480 480 0.6050 70
## 481 481 0.2856 60
## 482 482 0.7611 80
## 483 483 0.1282 60
## 484 484 0.2396 60
## 485 485 0.5576 70
## 486 486 0.2988 60
## 487 487 0.6403 70
## 488 488 0.7856 80
## 489 489 0.3245 70
## 490 490 0.8416 80
## 491 491 0.3847 70
## 492 492 0.5568 70
## 493 493 0.1514 60
## 494 494 0.6458 70
## 495 495 0.0810 50
## 496 496 0.2530 60
## 497 497 0.4442 70
## 498 498 0.7337 80
## 499 499 0.2847 60
## 500 500 0.1308 60
## 501 501 0.6229 70
## 502 502 0.9737 90
## 503 503 0.4750 70
## 504 504 0.6399 70
## 505 505 0.8517 80
## 506 506 0.5713 70
## 507 507 0.5791 70
## 508 508 0.9613 90
## 509 509 0.5032 70
## 510 510 0.8838 80
## 511 511 0.9642 90
## 512 512 0.6992 70
## 513 513 0.4920 70
## 514 514 0.0203 50
## 515 515 0.9952 90
## 516 516 0.8924 80
## 517 517 0.7872 80
## 518 518 0.0188 50
## 519 519 0.8634 80
## 520 520 0.1973 60
## 521 521 0.9102 90
## 522 522 0.9141 90
## 523 523 0.1632 60
## 524 524 0.1144 60
## 525 525 0.1899 60
## 526 526 0.4778 70
## 527 527 0.2554 60
## 528 528 0.8015 80
## 529 529 0.5139 70
## 530 530 0.5326 70
## 531 531 0.2088 60
## 532 532 0.2149 60
## 533 533 0.9983 90
## 534 534 0.4770 70
## 535 535 0.7955 80
## 536 536 0.2170 60
## 537 537 0.2475 60
## 538 538 0.5653 70
## 539 539 0.3133 70
## 540 540 0.8385 80
## 541 541 0.7866 80
## 542 542 0.1975 60
## 543 543 0.2513 60
## 544 544 0.0220 50
## 545 545 0.0564 50
## 546 546 0.8755 80
## 547 547 0.2921 60
## 548 548 0.6168 70
## 549 549 0.6863 70
## 550 550 0.5579 70
## 551 551 0.7404 80
## 552 552 0.9998 90
## 553 553 0.9280 90
## 554 554 0.2416 60
## 555 555 0.9840 90
## 556 556 0.5113 70
## 557 557 0.9167 90
## 558 558 0.7695 80
## 559 559 0.8592 80
## 560 560 0.1018 60
## 561 561 0.2638 60
## 562 562 0.3897 70
## 563 563 0.1772 60
## 564 564 0.5848 70
## 565 565 0.0974 50
## 566 566 0.2657 60
## 567 567 0.9187 90
## 568 568 0.1310 60
## 569 569 0.7500 80
## 570 570 0.2456 60
## 571 571 0.6840 70
## 572 572 0.2571 60
## 573 573 0.4484 70
## 574 574 0.5758 70
## 575 575 0.4516 70
## 576 576 0.2895 60
## 577 577 0.1482 60
## 578 578 0.4263 70
## 579 579 0.5387 70
## 580 580 0.4508 70
## 581 581 0.6336 70
## 582 582 0.2481 60
## 583 583 0.3376 70
## 584 584 0.5413 70
## 585 585 0.8185 80
## 586 586 0.3256 70
## 587 587 0.4222 70
## 588 588 0.9776 90
## 589 589 0.5322 70
## 590 590 0.5933 70
## 591 591 0.8146 80
## 592 592 0.8448 80
## 593 593 0.3813 70
## 594 594 0.1464 60
## 595 595 0.1480 60
## 596 596 0.8896 80
## 597 597 0.7378 80
## 598 598 0.1838 60
## 599 599 0.5677 70
## 600 600 0.1844 60
## 601 601 0.7202 80
## 602 602 0.1850 60
## 603 603 0.5339 70
## 604 604 0.5535 70
## 605 605 0.7548 80
## 606 606 0.7895 80
## 607 607 0.1390 60
## 608 608 0.1969 60
## 609 609 0.4117 70
## 610 610 0.3787 70
## 611 611 0.2112 60
## 612 612 0.7291 80
## 613 613 0.3633 70
## 614 614 0.7932 80
## 615 615 0.2621 60
## 616 616 0.1360 60
## 617 617 0.6443 70
## 618 618 0.0374 50
## 619 619 0.0571 50
## 620 620 0.0260 50
## 621 621 0.8218 80
## 622 622 0.9976 90
## 623 623 0.3779 70
## 624 624 0.0526 50
## 625 625 0.3853 70
## 626 626 0.4605 70
## 627 627 0.0490 50
## 628 628 0.3523 70
## 629 629 0.9194 90
## 630 630 0.8506 80
## 631 631 0.6318 70
## 632 632 0.2798 60
## 633 633 0.9045 90
## 634 634 0.6306 70
## 635 635 0.0094 50
## 636 636 0.0071 50
## 637 637 0.8028 80
## 638 638 0.5014 70
## 639 639 0.6545 70
## 640 640 0.4044 70
## 641 641 0.3130 70
## 642 642 0.3436 70
## 643 643 0.2860 60
## 644 644 0.2084 60
## 645 645 0.9420 90
## 646 646 0.4365 70
## 647 647 0.8414 80
## 648 648 0.6961 70
## 649 649 0.9254 90
## 650 650 0.6882 70
## 651 651 0.7698 80
## 652 652 0.5850 70
## 653 653 0.4113 70
## 654 654 0.2951 60
## 655 655 0.5000 70
## 656 656 0.8633 80
## 657 657 0.8647 80
## 658 658 0.1348 60
## 659 659 0.5269 70
## 660 660 0.0503 50
## 661 661 0.4626 70
## 662 662 0.0628 50
## 663 663 0.0352 50
## 664 664 0.8783 80
## 665 665 0.5933 70
## 666 666 0.4017 70
## 667 667 0.7752 80
## 668 668 0.6962 70
## 669 669 0.8660 80
## 670 670 0.8003 80
## 671 671 0.1774 60
## 672 672 0.2275 60
## 673 673 0.6987 70
## 674 674 0.0098 50
## 675 675 0.0243 50
## 676 676 0.9028 90
## 677 677 0.8078 80
## 678 678 0.1671 60
## 679 679 0.0311 50
## 680 680 0.0906 50
## 681 681 0.1149 60
## 682 682 0.8675 80
## 683 683 0.3622 70
## 684 684 0.6019 70
## 685 685 0.6526 70
## 686 686 0.8164 80
## 687 687 0.1004 60
## 688 688 0.6401 70
## 689 689 0.0883 50
## 690 690 0.0577 50
## 691 691 0.9110 90
## 692 692 0.5730 70
## 693 693 0.4188 70
## 694 694 0.0447 50
## 695 695 0.5657 70
## 696 696 0.5644 70
## 697 697 0.7658 80
## 698 698 0.7893 80
## 699 699 0.8390 80
## 700 700 0.5666 70
## 701 701 0.5045 70
## 702 702 0.5296 70
## 703 703 0.1379 60
## 704 704 0.0433 50
## 705 705 0.9928 90
## 706 706 0.5451 70
## 707 707 0.2294 60
## 708 708 0.6155 70
## 709 709 0.9547 90
## 710 710 0.9054 90
## 711 711 0.5919 70
## 712 712 0.8450 80
## 713 713 0.8951 80
## 714 714 0.9087 90
## 715 715 0.4348 70
## 716 716 0.1101 60
## 717 717 0.1723 60
## 718 718 0.8462 80
## 719 719 0.5072 70
## 720 720 0.0733 50
## 721 721 0.9449 90
## 722 722 0.0333 50
## 723 723 0.1780 60
## 724 724 0.0202 50
## 725 725 0.2709 60
## 726 726 0.3867 70
## 727 727 0.6703 70
## 728 728 0.4061 70
## 729 729 0.8601 80
## 730 730 0.8157 80
## 731 731 0.8886 80
## 732 732 0.0484 50
## 733 733 0.1026 60
## 734 734 0.9382 90
## 735 735 0.3878 70
## 736 736 0.2172 60
## 737 737 0.1347 60
## 738 738 0.0234 50
## 739 739 0.6523 70
## 740 740 0.3412 70
## 741 741 0.3248 70
## 742 742 0.9860 90
## 743 743 0.1099 60
## 744 744 0.8012 80
## 745 745 0.5246 70
## 746 746 0.1844 60
## 747 747 0.7450 80
## 748 748 0.6223 70
## 749 749 0.9103 90
## 750 750 0.2056 60
## 751 751 0.6087 70
## 752 752 0.4492 70
## 753 753 0.7051 80
## 754 754 0.7578 80
## 755 755 0.2976 60
## 756 756 0.3954 70
## 757 757 0.8783 80
## 758 758 0.9639 90
## 759 759 0.6319 70
## 760 760 0.1307 60
## 761 761 0.6389 70
## 762 762 0.4154 70
## 763 763 0.2845 60
## 764 764 0.4463 70
## 765 765 0.7631 80
## 766 766 0.6586 70
## 767 767 0.2945 60
## 768 768 0.5466 70
## 769 769 0.8244 80
## 770 770 0.7664 80
## 771 771 0.1577 60
## 772 772 0.8128 80
## 773 773 0.0324 50
## 774 774 0.3795 70
## 775 775 0.9602 90
## 776 776 0.2781 60
## 777 777 0.2164 60
## 778 778 0.6403 70
## 779 779 0.7748 80
## 780 780 0.1668 60
## 781 781 0.8312 80
## 782 782 0.1486 60
## 783 783 0.2483 60
## 784 784 0.1032 60
## 785 785 0.7289 80
## 786 786 0.3962 70
## 787 787 0.6105 70
## 788 788 0.6598 70
## 789 789 0.4638 70
## 790 790 0.2833 60
## 791 791 0.3668 70
## 792 792 0.1227 60
## 793 793 0.6604 70
## 794 794 0.1643 60
## 795 795 0.9011 90
## 796 796 0.7574 80
## 797 797 0.1076 60
## 798 798 0.5983 70
## 799 799 0.9380 90
## 800 800 0.3515 70
## 801 801 0.8748 80
## 802 802 0.7040 80
## 803 803 0.9516 90
## 804 804 0.4781 70
## 805 805 0.5332 70
## 806 806 0.2376 60
## 807 807 0.6127 70
## 808 808 0.2660 60
## 809 809 0.9094 90
## 810 810 0.0082 50
## 811 811 0.1243 60
## 812 812 0.8402 80
## 813 813 0.3410 70
## 814 814 0.6321 70
## 815 815 0.7916 80
## 816 816 0.2574 60
## 817 817 0.8460 80
## 818 818 0.9506 90
## 819 819 0.8242 80
## 820 820 0.1606 60
## 821 821 0.6561 70
## 822 822 0.1335 60
## 823 823 0.7899 80
## 824 824 0.5668 70
## 825 825 0.2950 60
## 826 826 0.4418 70
## 827 827 0.5644 70
## 828 828 0.3722 70
## 829 829 0.9195 90
## 830 830 0.8494 80
## 831 831 0.0111 50
## 832 832 0.8867 80
## 833 833 0.2933 60
## 834 834 0.2687 60
## 835 835 0.3133 70
## 836 836 0.2824 60
## 837 837 0.9902 90
## 838 838 0.1218 60
## 839 839 0.7610 80
## 840 840 0.6524 70
## 841 841 0.1023 60
## 842 842 0.7488 80
## 843 843 0.4338 70
## 844 844 0.9618 90
## 845 845 0.9797 90
## 846 846 0.0298 50
## 847 847 0.9447 90
## 848 848 0.8431 80
## 849 849 0.5186 70
## 850 850 0.9468 90
## 851 851 0.5547 70
## 852 852 0.5749 70
## 853 853 0.0746 50
## 854 854 0.9946 90
## 855 855 0.5318 70
## 856 856 0.9444 90
## 857 857 0.1825 60
## 858 858 0.5007 70
## 859 859 0.3398 70
## 860 860 0.6248 70
## 861 861 0.4308 70
## 862 862 0.3045 70
## 863 863 0.0090 50
## 864 864 0.2045 60
## 865 865 0.9139 90
## 866 866 0.2635 60
## 867 867 0.5255 70
## 868 868 0.8036 80
## 869 869 0.9732 90
## 870 870 0.3970 70
## 871 871 0.3110 70
## 872 872 0.7460 80
## 873 873 0.6110 70
## 874 874 0.4791 70
## 875 875 0.2233 60
## 876 876 0.3172 70
## 877 877 0.6137 70
## 878 878 0.3167 70
## 879 879 0.1959 60
## 880 880 0.4325 70
## 881 881 0.5703 70
## 882 882 0.4119 70
## 883 883 0.5280 70
## 884 884 0.1540 60
## 885 885 0.6293 70
## 886 886 0.9269 90
## 887 887 0.0098 50
## 888 888 0.3846 70
## 889 889 0.5621 70
## 890 890 0.5973 70
## 891 891 0.4434 70
## 892 892 0.4953 70
## 893 893 0.0169 50
## 894 894 0.4310 70
## 895 895 0.6753 70
## 896 896 0.9489 90
## 897 897 0.3293 70
## 898 898 0.2680 60
## 899 899 0.1049 60
## 900 900 0.0819 50
## 901 901 0.8624 80
## 902 902 0.4291 70
## 903 903 0.2242 60
## 904 904 0.7943 80
## 905 905 0.0247 50
## 906 906 0.5625 70
## 907 907 0.4570 70
## 908 908 0.6532 70
## 909 909 0.2222 60
## 910 910 0.8022 80
## 911 911 0.8588 80
## 912 912 0.3020 70
## 913 913 0.4571 70
## 914 914 0.5411 70
## 915 915 0.4030 70
## 916 916 0.9672 90
## 917 917 0.3415 70
## 918 918 0.1367 60
## 919 919 0.3418 70
## 920 920 0.2124 60
## 921 921 0.4352 70
## 922 922 0.6079 70
## 923 923 0.1631 60
## 924 924 0.8000 80
## 925 925 0.1367 60
## 926 926 0.0142 50
## 927 927 0.6108 70
## 928 928 0.1317 60
## 929 929 0.4669 70
## 930 930 0.8701 80
## 931 931 0.6583 70
## 932 932 0.6808 70
## 933 933 0.5268 70
## 934 934 0.8509 80
## 935 935 0.7779 80
## 936 936 0.4839 70
## 937 937 0.8029 80
## 938 938 0.5329 70
## 939 939 0.1335 60
## 940 940 0.6458 70
## 941 941 0.8109 80
## 942 942 0.3750 70
## 943 943 0.2580 60
## 944 944 0.7014 80
## 945 945 0.6473 70
## 946 946 0.1093 60
## 947 947 0.8889 80
## 948 948 0.5415 70
## 949 949 0.5876 70
## 950 950 0.2475 60
## 951 951 0.6711 70
## 952 952 0.6793 70
## 953 953 0.0373 50
## 954 954 0.5612 70
## 955 955 0.9097 90
## 956 956 0.7620 80
## 957 957 0.1825 60
## 958 958 0.9571 90
## 959 959 0.0558 50
## 960 960 0.1302 60
## 961 961 0.4355 70
## 962 962 0.9441 90
## 963 963 0.6550 70
## 964 964 0.2914 60
## 965 965 0.3723 70
## 966 966 0.5872 70
## 967 967 0.1488 60
## 968 968 0.4975 70
## 969 969 0.8232 80
## 970 970 0.0994 50
## 971 971 0.6744 70
## 972 972 0.0918 50
## 973 973 0.7296 80
## 974 974 0.2526 60
## 975 975 0.8455 80
## 976 976 0.9280 90
## 977 977 0.1187 60
## 978 978 0.8839 80
## 979 979 0.5416 70
## 980 980 0.5961 70
## 981 981 0.7481 80
## 982 982 0.8767 80
## 983 983 0.3785 70
## 984 984 0.0843 50
## 985 985 0.4040 70
## 986 986 0.4724 70
## 987 987 0.3677 70
## 988 988 0.7603 80
## 989 989 0.8699 80
## 990 990 0.2842 60
## 991 991 0.1716 60
## 992 992 0.6672 70
## 993 993 0.8626 80
## 994 994 0.5860 70
## 995 995 0.0365 50
## 996 996 0.6579 70
## 997 997 0.3215 70
## 998 998 0.0707 50
## 999 999 0.3612 70
## 1000 1000 0.1347 60# Hitung ekspektasi teoritis
ekspektasi <- sum(permintaan_gelas * dist.prob)
ekspektasi## [1] 70Keterangan: Pada intruksi soal 1 untuk hasil analisis prediksi permintaan es teh selama 5,20,100,200 memiliki jumlah nilai ekspektasi teoritis dari hasil penjumlahan seluruh prediksi simulasi membangkitkan nilai random sebesar 70.
# Hitung rata-rata dari hasil simulasi
mean_simulasi <- function(x) {
if (length(x) > 0) mean(x) else NA
}
mean5 <- mean_simulasi(permintaan[1:5])
mean20 <- mean_simulasi(permintaan[1:20])
mean100 <- mean_simulasi(permintaan[1:100])
mean1000 <- mean_simulasi(permintaan[1:1000])
cat("Rata-rata prediksi 5 hari :", mean5, "\n")## Rata-rata prediksi 5 hari : 68 cat("Rata-rata prediksi 20 hari :", mean20, "\n")## Rata-rata prediksi 20 hari : 71 cat("Rata-rata prediksi 100 hari :", mean100, "\n")## Rata-rata prediksi 100 hari : 70.6 cat("Rata-rata prediksi 1000 hari :",mean1000,"\n")## Rata-rata prediksi 1000 hari : 69.52Keterangan Metode ini digunakan untuk menghitung rata-rata prediksi permintaan berdasarkan hasil simulasi data untuk periode waktu yang berbeda, yaitu 5, 20, 100, dan 1000 hari. Dengan menggunakan fungsi mean_simulasi, dilakukan perhitungan rata-rata dari sejumlah data pertama pada vektor permintaan. Hasilnya menunjukkan bahwa rata-rata permintaan cenderung stabil mendekati angka 69–71, yang mencerminkan kecenderungan rata-rata jangka panjang dari data simulasi. Proses ini penting untuk mengetahui estimasi kebutuhan atau permintaan dalam jangka waktu tertentu secara kuantitatif.
#2. Bangkitkanlah data dengan distribusi eksponensial untuk variabel permintaan sebanyak 10 data permintaan, dan data dengan distribusi normal untuk variabel frekuensi a. prediksikan permintaan selama 5 hari ke depan b. prediksikan permintaan selama 20 hari ke depan c. prediksikan permintaan selama 100 hari ke depan d. prediksikan permintaan selama 1000 hari ke depan
set.seed(123)
data <- data.frame(
permintaan = round(rexp(10,0.01234)),
frekuensi = ceiling(rnorm(10,10,5))
)
data## permintaan frekuensi
## 1 68 8
## 2 47 17
## 3 108 12
## 4 3 13
## 5 5 11
## 6 26 8
## 7 25 19
## 8 12 13
## 9 221 1
## 10 2 14data$probabilitas <- round(data$frekuensi / sum(data$frekuensi),2)
data## permintaan frekuensi probabilitas
## 1 68 8 0.07
## 2 47 17 0.15
## 3 108 12 0.10
## 4 3 13 0.11
## 5 5 11 0.09
## 6 26 8 0.07
## 7 25 19 0.16
## 8 12 13 0.11
## 9 221 1 0.01
## 10 2 14 0.12data$probcum <- cumsum(data$probabilitas)
data$probcum## [1] 0.07 0.22 0.32 0.43 0.52 0.59 0.75 0.86 0.87 0.99expvalue <- round(sum(data$permintaan*data$probabilitas),2)
expvalue## [1] 32.98simulasi <- function(a, permintaan, kumulatif){
simulasi <- data.frame(
hari_ke = 1:a,
rand_value = round(runif(a),2)
)
simulasi$permintaan = 0
for (i in 1:nrow(simulasi)){
for (j in 1:length(kumulatif)){
if (simulasi$rand_value[i] <= kumulatif[j]){
simulasi$permintaan[i] = permintaan[j]
break
}
}
}
average <- mean(simulasi$permintaan)
return(list(data = simulasi, average = average))
}set.seed(123)
simulasi_a <- simulasi(5,data$permintaan,data$probcum)
print(simulasi_a$data)## hari_ke rand_value permintaan
## 1 1 0.29 108
## 2 2 0.79 12
## 3 3 0.41 3
## 4 4 0.88 2
## 5 5 0.94 2print(simulasi_a$average)## [1] 25.4set.seed(123)
simulasi_b <- simulasi(20,data$permintaan,data$probcum)
print(simulasi_b$data)## hari_ke rand_value permintaan
## 1 1 0.29 108
## 2 2 0.79 12
## 3 3 0.41 3
## 4 4 0.88 2
## 5 5 0.94 2
## 6 6 0.05 68
## 7 7 0.53 26
## 8 8 0.89 2
## 9 9 0.55 26
## 10 10 0.46 5
## 11 11 0.96 2
## 12 12 0.45 5
## 13 13 0.68 25
## 14 14 0.57 26
## 15 15 0.10 47
## 16 16 0.90 2
## 17 17 0.25 108
## 18 18 0.04 68
## 19 19 0.33 3
## 20 20 0.95 2print(simulasi_b$average)## [1] 27.1set.seed(123)
simulasi_c <- simulasi(100,data$permintaan,data$probcum)
print(simulasi_c$data)## hari_ke rand_value permintaan
## 1 1 0.29 108
## 2 2 0.79 12
## 3 3 0.41 3
## 4 4 0.88 2
## 5 5 0.94 2
## 6 6 0.05 68
## 7 7 0.53 26
## 8 8 0.89 2
## 9 9 0.55 26
## 10 10 0.46 5
## 11 11 0.96 2
## 12 12 0.45 5
## 13 13 0.68 25
## 14 14 0.57 26
## 15 15 0.10 47
## 16 16 0.90 2
## 17 17 0.25 108
## 18 18 0.04 68
## 19 19 0.33 3
## 20 20 0.95 2
## 21 21 0.89 2
## 22 22 0.69 25
## 23 23 0.64 25
## 24 24 0.99 2
## 25 25 0.66 25
## 26 26 0.71 25
## 27 27 0.54 26
## 28 28 0.59 26
## 29 29 0.29 108
## 30 30 0.15 47
## 31 31 0.96 2
## 32 32 0.90 2
## 33 33 0.69 25
## 34 34 0.80 12
## 35 35 0.02 68
## 36 36 0.48 5
## 37 37 0.76 12
## 38 38 0.22 47
## 39 39 0.32 108
## 40 40 0.23 108
## 41 41 0.14 47
## 42 42 0.41 3
## 43 43 0.41 3
## 44 44 0.37 3
## 45 45 0.15 47
## 46 46 0.14 47
## 47 47 0.23 108
## 48 48 0.47 5
## 49 49 0.27 108
## 50 50 0.86 12
## 51 51 0.05 68
## 52 52 0.44 5
## 53 53 0.80 12
## 54 54 0.12 47
## 55 55 0.56 26
## 56 56 0.21 47
## 57 57 0.13 47
## 58 58 0.75 25
## 59 59 0.90 2
## 60 60 0.37 3
## 61 61 0.67 25
## 62 62 0.09 47
## 63 63 0.38 3
## 64 64 0.27 108
## 65 65 0.81 12
## 66 66 0.45 5
## 67 67 0.81 12
## 68 68 0.81 12
## 69 69 0.79 12
## 70 70 0.44 5
## 71 71 0.75 25
## 72 72 0.63 25
## 73 73 0.71 25
## 74 74 0.00 68
## 75 75 0.48 5
## 76 76 0.22 47
## 77 77 0.38 3
## 78 78 0.61 25
## 79 79 0.35 3
## 80 80 0.11 47
## 81 81 0.24 108
## 82 82 0.67 25
## 83 83 0.42 3
## 84 84 0.79 12
## 85 85 0.10 47
## 86 86 0.43 3
## 87 87 0.98 2
## 88 88 0.89 2
## 89 89 0.89 2
## 90 90 0.18 47
## 91 91 0.13 47
## 92 92 0.65 25
## 93 93 0.34 3
## 94 94 0.66 25
## 95 95 0.32 108
## 96 96 0.19 47
## 97 97 0.78 12
## 98 98 0.09 47
## 99 99 0.47 5
## 100 100 0.51 5print(simulasi_c$average)## [1] 29.96set.seed(123)
simulasi_d <- simulasi(1000,data$permintaan,data$probcum)
print(simulasi_d$data)## hari_ke rand_value permintaan
## 1 1 0.29 108
## 2 2 0.79 12
## 3 3 0.41 3
## 4 4 0.88 2
## 5 5 0.94 2
## 6 6 0.05 68
## 7 7 0.53 26
## 8 8 0.89 2
## 9 9 0.55 26
## 10 10 0.46 5
## 11 11 0.96 2
## 12 12 0.45 5
## 13 13 0.68 25
## 14 14 0.57 26
## 15 15 0.10 47
## 16 16 0.90 2
## 17 17 0.25 108
## 18 18 0.04 68
## 19 19 0.33 3
## 20 20 0.95 2
## 21 21 0.89 2
## 22 22 0.69 25
## 23 23 0.64 25
## 24 24 0.99 2
## 25 25 0.66 25
## 26 26 0.71 25
## 27 27 0.54 26
## 28 28 0.59 26
## 29 29 0.29 108
## 30 30 0.15 47
## 31 31 0.96 2
## 32 32 0.90 2
## 33 33 0.69 25
## 34 34 0.80 12
## 35 35 0.02 68
## 36 36 0.48 5
## 37 37 0.76 12
## 38 38 0.22 47
## 39 39 0.32 108
## 40 40 0.23 108
## 41 41 0.14 47
## 42 42 0.41 3
## 43 43 0.41 3
## 44 44 0.37 3
## 45 45 0.15 47
## 46 46 0.14 47
## 47 47 0.23 108
## 48 48 0.47 5
## 49 49 0.27 108
## 50 50 0.86 12
## 51 51 0.05 68
## 52 52 0.44 5
## 53 53 0.80 12
## 54 54 0.12 47
## 55 55 0.56 26
## 56 56 0.21 47
## 57 57 0.13 47
## 58 58 0.75 25
## 59 59 0.90 2
## 60 60 0.37 3
## 61 61 0.67 25
## 62 62 0.09 47
## 63 63 0.38 3
## 64 64 0.27 108
## 65 65 0.81 12
## 66 66 0.45 5
## 67 67 0.81 12
## 68 68 0.81 12
## 69 69 0.79 12
## 70 70 0.44 5
## 71 71 0.75 25
## 72 72 0.63 25
## 73 73 0.71 25
## 74 74 0.00 68
## 75 75 0.48 5
## 76 76 0.22 47
## 77 77 0.38 3
## 78 78 0.61 25
## 79 79 0.35 3
## 80 80 0.11 47
## 81 81 0.24 108
## 82 82 0.67 25
## 83 83 0.42 3
## 84 84 0.79 12
## 85 85 0.10 47
## 86 86 0.43 3
## 87 87 0.98 2
## 88 88 0.89 2
## 89 89 0.89 2
## 90 90 0.18 47
## 91 91 0.13 47
## 92 92 0.65 25
## 93 93 0.34 3
## 94 94 0.66 25
## 95 95 0.32 108
## 96 96 0.19 47
## 97 97 0.78 12
## 98 98 0.09 47
## 99 99 0.47 5
## 100 100 0.51 5
## 101 101 0.60 25
## 102 102 0.33 3
## 103 103 0.49 5
## 104 104 0.95 2
## 105 105 0.48 5
## 106 106 0.89 2
## 107 107 0.91 2
## 108 108 0.61 25
## 109 109 0.41 3
## 110 110 0.15 47
## 111 111 0.94 2
## 112 112 0.30 108
## 113 113 0.06 68
## 114 114 0.95 2
## 115 115 0.72 25
## 116 116 0.14 47
## 117 117 0.55 26
## 118 118 0.95 2
## 119 119 0.59 26
## 120 120 0.40 3
## 121 121 0.65 25
## 122 122 0.32 108
## 123 123 0.31 108
## 124 124 0.22 47
## 125 125 0.37 3
## 126 126 0.98 2
## 127 127 0.15 47
## 128 128 0.09 47
## 129 129 0.14 47
## 130 130 0.69 25
## 131 131 0.62 25
## 132 132 0.89 2
## 133 133 0.67 25
## 134 134 0.74 25
## 135 135 0.52 5
## 136 136 0.66 25
## 137 137 0.82 12
## 138 138 0.79 12
## 139 139 0.98 2
## 140 140 0.44 5
## 141 141 0.31 108
## 142 142 0.41 3
## 143 143 0.01 68
## 144 144 0.18 47
## 145 145 0.84 12
## 146 146 0.23 108
## 147 147 0.24 108
## 148 148 0.08 47
## 149 149 0.25 108
## 150 150 0.73 25
## 151 151 0.85 12
## 152 152 0.50 5
## 153 153 0.39 3
## 154 154 0.25 108
## 155 155 0.11 47
## 156 156 0.39 3
## 157 157 0.57 26
## 158 158 0.22 47
## 159 159 0.44 5
## 160 160 0.22 47
## 161 161 0.50 5
## 162 162 0.35 3
## 163 163 0.65 25
## 164 164 0.37 3
## 165 165 0.36 3
## 166 166 0.53 26
## 167 167 0.74 25
## 168 168 0.22 47
## 169 169 0.41 3
## 170 170 0.27 108
## 171 171 0.63 25
## 172 172 0.18 47
## 173 173 0.86 12
## 174 174 0.75 25
## 175 175 0.67 25
## 176 176 0.62 25
## 177 177 0.37 3
## 178 178 0.53 26
## 179 179 0.87 221
## 180 180 0.58 26
## 181 181 0.84 12
## 182 182 0.31 108
## 183 183 0.71 25
## 184 184 0.27 108
## 185 185 0.59 26
## 186 186 0.48 5
## 187 187 0.27 108
## 188 188 0.56 26
## 189 189 0.91 2
## 190 190 0.90 2
## 191 191 0.27 108
## 192 192 0.32 108
## 193 193 0.99 2
## 194 194 0.62 25
## 195 195 0.94 2
## 196 196 0.47 5
## 197 197 0.41 3
## 198 198 0.66 25
## 199 199 0.15 47
## 200 200 0.57 26
## 201 201 0.24 108
## 202 202 0.96 2
## 203 203 0.60 25
## 204 204 0.52 5
## 205 205 0.40 3
## 206 206 0.88 2
## 207 207 0.36 3
## 208 208 0.29 108
## 209 209 0.17 47
## 210 210 0.17 47
## 211 211 0.48 5
## 212 212 0.25 108
## 213 213 0.22 47
## 214 214 0.67 25
## 215 215 0.05 68
## 216 216 0.70 25
## 217 217 0.35 3
## 218 218 0.41 3
## 219 219 0.82 12
## 220 220 0.92 2
## 221 221 0.28 108
## 222 222 0.96 2
## 223 223 0.73 25
## 224 224 0.69 25
## 225 225 0.05 68
## 226 226 0.40 3
## 227 227 0.48 5
## 228 228 0.56 26
## 229 229 0.70 25
## 230 230 0.92 2
## 231 231 0.62 25
## 232 232 0.43 3
## 233 233 0.54 26
## 234 234 0.06 68
## 235 235 0.26 108
## 236 236 0.40 3
## 237 237 0.20 47
## 238 238 0.83 12
## 239 239 0.15 47
## 240 240 0.80 12
## 241 241 0.55 26
## 242 242 0.66 25
## 243 243 0.17 47
## 244 244 0.63 25
## 245 245 0.31 108
## 246 246 0.72 25
## 247 247 0.40 3
## 248 248 0.97 2
## 249 249 0.97 2
## 250 250 0.73 25
## 251 251 0.26 108
## 252 252 0.22 47
## 253 253 0.59 26
## 254 254 0.27 108
## 255 255 0.53 26
## 256 256 0.79 12
## 257 257 0.17 47
## 258 258 0.40 3
## 259 259 0.47 5
## 260 260 0.87 221
## 261 261 0.93 2
## 262 262 0.88 2
## 263 263 0.67 25
## 264 264 0.95 2
## 265 265 0.52 5
## 266 266 0.58 26
## 267 267 0.34 3
## 268 268 0.35 3
## 269 269 0.02 68
## 270 270 0.50 5
## 271 271 0.87 221
## 272 272 0.01 68
## 273 273 0.07 68
## 274 274 0.16 47
## 275 275 0.77 12
## 276 276 0.74 25
## 277 277 0.97 2
## 278 278 0.47 5
## 279 279 0.07 68
## 280 280 0.65 25
## 281 281 0.76 12
## 282 282 0.14 47
## 283 283 0.40 3
## 284 284 0.22 47
## 285 285 0.06 68
## 286 286 0.40 3
## 287 287 0.06 68
## 288 288 0.23 108
## 289 289 0.05 68
## 290 290 0.67 25
## 291 291 0.30 108
## 292 292 0.10 47
## 293 293 0.07 68
## 294 294 0.88 2
## 295 295 0.75 25
## 296 296 0.82 12
## 297 297 0.98 2
## 298 298 0.10 47
## 299 299 0.10 47
## 300 300 0.80 12
## 301 301 0.78 12
## 302 302 0.01 68
## 303 303 0.78 12
## 304 304 0.73 25
## 305 305 0.63 25
## 306 306 0.48 5
## 307 307 0.16 47
## 308 308 0.01 68
## 309 309 0.45 5
## 310 310 0.49 5
## 311 311 0.39 3
## 312 312 0.46 5
## 313 313 0.71 25
## 314 314 0.06 68
## 315 315 0.35 3
## 316 316 0.80 12
## 317 317 0.84 12
## 318 318 0.24 108
## 319 319 0.35 3
## 320 320 0.86 12
## 321 321 0.85 12
## 322 322 0.30 108
## 323 323 0.15 47
## 324 324 0.70 25
## 325 325 0.10 47
## 326 326 0.03 68
## 327 327 1.00 0
## 328 328 0.03 68
## 329 329 0.34 3
## 330 330 0.92 2
## 331 331 0.62 25
## 332 332 0.29 108
## 333 333 0.74 25
## 334 334 0.83 12
## 335 335 0.31 108
## 336 336 0.49 5
## 337 337 0.70 25
## 338 338 0.64 25
## 339 339 0.64 25
## 340 340 0.98 2
## 341 341 0.41 3
## 342 342 0.12 47
## 343 343 0.53 26
## 344 344 0.23 108
## 345 345 0.49 5
## 346 346 0.37 3
## 347 347 0.98 2
## 348 348 0.39 3
## 349 349 0.23 108
## 350 350 0.62 25
## 351 351 0.14 47
## 352 352 0.97 2
## 353 353 0.52 5
## 354 354 0.16 47
## 355 355 0.62 25
## 356 356 0.99 2
## 357 357 0.67 25
## 358 358 0.42 3
## 359 359 0.32 108
## 360 360 0.84 12
## 361 361 0.14 47
## 362 362 0.19 47
## 363 363 0.90 2
## 364 364 0.31 108
## 365 365 0.36 3
## 366 366 0.78 12
## 367 367 0.19 47
## 368 368 0.02 68
## 369 369 0.41 3
## 370 370 0.48 5
## 371 371 0.42 3
## 372 372 0.34 3
## 373 373 0.87 221
## 374 374 0.46 5
## 375 375 0.53 26
## 376 376 0.96 2
## 377 377 0.77 12
## 378 378 0.21 47
## 379 379 0.31 108
## 380 380 0.97 2
## 381 381 0.58 26
## 382 382 0.76 12
## 383 383 0.37 3
## 384 384 0.77 12
## 385 385 0.54 26
## 386 386 0.91 2
## 387 387 0.19 47
## 388 388 0.28 108
## 389 389 0.09 47
## 390 390 0.21 47
## 391 391 0.98 2
## 392 392 0.30 108
## 393 393 0.73 25
## 394 394 0.79 12
## 395 395 0.11 47
## 396 396 0.24 108
## 397 397 0.27 108
## 398 398 0.10 47
## 399 399 0.12 47
## 400 400 0.99 2
## 401 401 0.99 2
## 402 402 0.14 47
## 403 403 0.91 2
## 404 404 0.58 26
## 405 405 0.40 3
## 406 406 0.45 5
## 407 407 0.71 25
## 408 408 0.08 47
## 409 409 0.34 3
## 410 410 0.68 25
## 411 411 0.32 108
## 412 412 0.83 12
## 413 413 0.22 47
## 414 414 0.50 5
## 415 415 0.28 108
## 416 416 0.19 47
## 417 417 0.95 2
## 418 418 0.32 108
## 419 419 0.48 5
## 420 420 0.03 68
## 421 421 0.55 26
## 422 422 0.64 25
## 423 423 0.60 25
## 424 424 0.32 108
## 425 425 0.89 2
## 426 426 0.63 25
## 427 427 0.30 108
## 428 428 0.39 3
## 429 429 0.16 47
## 430 430 0.86 12
## 431 431 0.95 2
## 432 432 0.56 26
## 433 433 0.33 3
## 434 434 1.00 0
## 435 435 0.23 108
## 436 436 0.61 25
## 437 437 0.11 47
## 438 438 0.49 5
## 439 439 0.10 47
## 440 440 0.16 47
## 441 441 0.28 108
## 442 442 0.58 26
## 443 443 0.73 25
## 444 444 0.17 47
## 445 445 0.87 221
## 446 446 0.71 25
## 447 447 0.76 12
## 448 448 0.15 47
## 449 449 0.36 3
## 450 450 0.67 25
## 451 451 0.52 5
## 452 452 0.35 3
## 453 453 0.24 108
## 454 454 0.06 68
## 455 455 0.24 108
## 456 456 0.89 2
## 457 457 0.81 12
## 458 458 0.75 25
## 459 459 0.15 47
## 460 460 0.12 47
## 461 461 0.97 2
## 462 462 0.44 5
## 463 463 0.46 5
## 464 464 0.17 47
## 465 465 0.58 26
## 466 466 0.27 108
## 467 467 0.23 108
## 468 468 0.69 25
## 469 469 0.28 108
## 470 470 0.81 12
## 471 471 0.09 47
## 472 472 0.82 12
## 473 473 0.43 3
## 474 474 0.76 12
## 475 475 0.66 25
## 476 476 0.44 5
## 477 477 0.63 25
## 478 478 0.00 68
## 479 479 0.22 47
## 480 480 0.70 25
## 481 481 0.22 47
## 482 482 0.81 12
## 483 483 0.31 108
## 484 484 0.69 25
## 485 485 0.93 2
## 486 486 0.12 47
## 487 487 0.13 47
## 488 488 0.68 25
## 489 489 0.43 3
## 490 490 0.83 12
## 491 491 0.97 2
## 492 492 0.07 68
## 493 493 0.46 5
## 494 494 0.70 25
## 495 495 0.09 47
## 496 496 0.99 2
## 497 497 0.25 108
## 498 498 0.05 68
## 499 499 0.69 25
## 500 500 0.79 12
## 501 501 0.35 3
## 502 502 0.37 3
## 503 503 0.29 108
## 504 504 0.08 47
## 505 505 0.37 3
## 506 506 0.18 47
## 507 507 0.54 26
## 508 508 0.50 5
## 509 509 0.95 2
## 510 510 0.34 3
## 511 511 0.46 5
## 512 512 0.08 47
## 513 513 0.86 12
## 514 514 0.40 3
## 515 515 0.74 25
## 516 516 0.17 47
## 517 517 0.45 5
## 518 518 0.77 12
## 519 519 0.06 68
## 520 520 0.82 12
## 521 521 0.30 108
## 522 522 0.36 3
## 523 523 0.31 108
## 524 524 0.04 68
## 525 525 0.52 5
## 526 526 0.68 25
## 527 527 0.90 2
## 528 528 0.03 68
## 529 529 0.99 2
## 530 530 0.30 108
## 531 531 0.94 2
## 532 532 0.69 25
## 533 533 0.45 5
## 534 534 0.82 12
## 535 535 0.04 68
## 536 536 0.74 25
## 537 537 0.35 3
## 538 538 0.83 12
## 539 539 0.54 26
## 540 540 0.27 108
## 541 541 0.80 12
## 542 542 0.09 47
## 543 543 0.83 12
## 544 544 0.28 108
## 545 545 0.75 25
## 546 546 0.96 2
## 547 547 0.08 47
## 548 548 0.85 12
## 549 549 0.80 12
## 550 550 0.39 3
## 551 551 0.33 3
## 552 552 0.20 47
## 553 553 0.57 26
## 554 554 0.89 2
## 555 555 0.53 26
## 556 556 0.59 26
## 557 557 0.67 25
## 558 558 0.53 26
## 559 559 0.51 5
## 560 560 0.02 68
## 561 561 0.05 68
## 562 562 0.93 2
## 563 563 0.77 12
## 564 564 0.20 47
## 565 565 0.65 25
## 566 566 0.65 25
## 567 567 0.40 3
## 568 568 0.81 12
## 569 569 0.55 26
## 570 570 0.89 2
## 571 571 0.55 26
## 572 572 0.91 2
## 573 573 0.59 26
## 574 574 0.42 3
## 575 575 0.95 2
## 576 576 0.71 25
## 577 577 0.41 3
## 578 578 0.02 68
## 579 579 0.57 26
## 580 580 0.49 5
## 581 581 0.88 2
## 582 582 0.81 12
## 583 583 0.85 12
## 584 584 0.37 3
## 585 585 0.87 221
## 586 586 0.15 47
## 587 587 0.28 108
## 588 588 0.67 25
## 589 589 0.98 2
## 590 590 0.58 26
## 591 591 0.53 26
## 592 592 0.06 68
## 593 593 0.97 2
## 594 594 0.12 47
## 595 595 0.09 47
## 596 596 0.88 2
## 597 597 0.51 5
## 598 598 0.34 3
## 599 599 0.89 2
## 600 600 0.03 68
## 601 601 0.24 108
## 602 602 0.69 25
## 603 603 0.23 108
## 604 604 0.32 108
## 605 605 0.17 47
## 606 606 0.80 12
## 607 607 0.15 47
## 608 608 0.82 12
## 609 609 0.33 3
## 610 610 0.37 3
## 611 611 0.63 25
## 612 612 0.10 47
## 613 613 0.02 68
## 614 614 0.99 2
## 615 615 0.58 26
## 616 616 0.78 12
## 617 617 0.89 2
## 618 618 0.75 25
## 619 619 0.98 2
## 620 620 0.04 68
## 621 621 0.90 2
## 622 622 0.87 221
## 623 623 0.78 12
## 624 624 0.38 3
## 625 625 0.04 68
## 626 626 0.36 3
## 627 627 0.27 108
## 628 628 0.85 12
## 629 629 0.36 3
## 630 630 0.30 108
## 631 631 0.76 12
## 632 632 0.84 12
## 633 633 0.46 5
## 634 634 0.73 25
## 635 635 0.10 47
## 636 636 0.22 47
## 637 637 0.95 2
## 638 638 0.75 25
## 639 639 0.82 12
## 640 640 0.42 3
## 641 641 0.59 26
## 642 642 0.80 12
## 643 643 0.89 2
## 644 644 0.39 3
## 645 645 0.09 47
## 646 646 0.63 25
## 647 647 0.75 25
## 648 648 0.09 47
## 649 649 0.30 108
## 650 650 0.61 25
## 651 651 0.75 25
## 652 652 0.92 2
## 653 653 0.48 5
## 654 654 0.57 26
## 655 655 0.74 25
## 656 656 0.86 12
## 657 657 0.91 2
## 658 658 0.06 68
## 659 659 0.50 5
## 660 660 0.35 3
## 661 661 0.85 12
## 662 662 0.81 12
## 663 663 0.12 47
## 664 664 0.71 25
## 665 665 0.24 108
## 666 666 0.07 68
## 667 667 0.94 2
## 668 668 0.16 47
## 669 669 0.65 25
## 670 670 0.17 47
## 671 671 0.02 68
## 672 672 0.52 5
## 673 673 0.09 47
## 674 674 0.28 108
## 675 675 0.42 3
## 676 676 0.59 26
## 677 677 0.81 12
## 678 678 0.20 47
## 679 679 0.46 5
## 680 680 0.45 5
## 681 681 0.73 25
## 682 682 0.71 25
## 683 683 0.83 12
## 684 684 0.89 2
## 685 685 0.95 2
## 686 686 0.55 26
## 687 687 0.52 5
## 688 688 0.17 47
## 689 689 0.48 5
## 690 690 0.25 108
## 691 691 0.04 68
## 692 692 0.63 25
## 693 693 0.54 26
## 694 694 0.14 47
## 695 695 0.28 108
## 696 696 0.58 26
## 697 697 0.17 47
## 698 698 0.10 47
## 699 699 0.43 3
## 700 700 0.36 3
## 701 701 0.84 12
## 702 702 0.26 108
## 703 703 0.02 68
## 704 704 0.86 12
## 705 705 0.33 3
## 706 706 0.63 25
## 707 707 0.55 26
## 708 708 0.38 3
## 709 709 0.19 47
## 710 710 0.43 3
## 711 711 0.63 25
## 712 712 0.52 5
## 713 713 0.66 25
## 714 714 0.73 25
## 715 715 0.49 5
## 716 716 0.38 3
## 717 717 0.01 68
## 718 718 0.00 68
## 719 719 0.99 2
## 720 720 0.11 47
## 721 721 0.42 3
## 722 722 0.72 25
## 723 723 0.74 25
## 724 724 0.87 221
## 725 725 0.61 25
## 726 726 0.76 12
## 727 727 0.85 12
## 728 728 0.61 25
## 729 729 0.79 12
## 730 730 0.02 68
## 731 731 0.42 3
## 732 732 0.87 221
## 733 733 0.65 25
## 734 734 0.92 2
## 735 735 0.17 47
## 736 736 0.32 108
## 737 737 0.80 12
## 738 738 0.99 2
## 739 739 0.32 108
## 740 740 0.00 68
## 741 741 0.99 2
## 742 742 0.15 47
## 743 743 0.05 68
## 744 744 0.60 25
## 745 745 0.32 108
## 746 746 0.53 26
## 747 747 0.80 12
## 748 748 0.07 68
## 749 749 0.70 25
## 750 750 0.95 2
## 751 751 0.28 108
## 752 752 0.25 108
## 753 753 0.16 47
## 754 754 0.07 68
## 755 755 0.56 26
## 756 756 0.49 5
## 757 757 0.49 5
## 758 758 0.89 2
## 759 759 0.04 68
## 760 760 0.20 47
## 761 761 0.51 5
## 762 762 0.24 108
## 763 763 0.58 26
## 764 764 0.48 5
## 765 765 0.57 26
## 766 766 0.14 47
## 767 767 0.15 47
## 768 768 0.41 3
## 769 769 0.68 25
## 770 770 0.65 25
## 771 771 0.92 2
## 772 772 0.81 12
## 773 773 0.68 25
## 774 774 0.81 12
## 775 775 0.13 47
## 776 776 0.25 108
## 777 777 0.33 3
## 778 778 0.41 3
## 779 779 0.64 25
## 780 780 0.81 12
## 781 781 0.26 108
## 782 782 0.82 12
## 783 783 0.02 68
## 784 784 0.65 25
## 785 785 0.81 12
## 786 786 0.46 5
## 787 787 0.20 47
## 788 788 0.02 68
## 789 789 0.28 108
## 790 790 0.92 2
## 791 791 0.93 2
## 792 792 0.54 26
## 793 793 0.22 47
## 794 794 0.49 5
## 795 795 0.80 12
## 796 796 0.41 3
## 797 797 0.10 47
## 798 798 0.28 108
## 799 799 0.36 3
## 800 800 0.26 108
## 801 801 0.47 5
## 802 802 0.37 3
## 803 803 0.12 47
## 804 804 0.05 68
## 805 805 0.26 108
## 806 806 0.97 2
## 807 807 0.49 5
## 808 808 0.48 5
## 809 809 0.75 25
## 810 810 0.67 25
## 811 811 0.05 68
## 812 812 0.70 25
## 813 813 0.36 3
## 814 814 0.88 2
## 815 815 0.78 12
## 816 816 0.14 47
## 817 817 0.30 108
## 818 818 0.13 47
## 819 819 0.59 26
## 820 820 0.56 26
## 821 821 0.69 25
## 822 822 0.31 108
## 823 823 0.61 25
## 824 824 0.99 2
## 825 825 0.74 25
## 826 826 0.08 47
## 827 827 0.45 5
## 828 828 0.05 68
## 829 829 0.34 3
## 830 830 0.73 25
## 831 831 0.00 68
## 832 832 0.77 12
## 833 833 0.46 5
## 834 834 0.72 25
## 835 835 0.67 25
## 836 836 0.57 26
## 837 837 0.70 25
## 838 838 0.66 25
## 839 839 0.29 108
## 840 840 0.10 47
## 841 841 0.96 2
## 842 842 0.74 25
## 843 843 0.61 25
## 844 844 0.12 47
## 845 845 0.55 26
## 846 846 0.26 108
## 847 847 0.90 2
## 848 848 0.01 68
## 849 849 0.24 108
## 850 850 0.13 47
## 851 851 0.33 3
## 852 852 0.73 25
## 853 853 0.99 2
## 854 854 0.72 25
## 855 855 0.50 5
## 856 856 0.44 5
## 857 857 0.95 2
## 858 858 0.12 47
## 859 859 0.08 47
## 860 860 0.89 2
## 861 861 0.42 3
## 862 862 0.04 68
## 863 863 0.65 25
## 864 864 0.47 5
## 865 865 0.62 25
## 866 866 0.27 108
## 867 867 0.16 47
## 868 868 0.11 47
## 869 869 0.51 5
## 870 870 0.55 26
## 871 871 0.14 47
## 872 872 0.17 47
## 873 873 0.76 12
## 874 874 0.53 26
## 875 875 0.86 12
## 876 876 0.67 25
## 877 877 0.01 68
## 878 878 0.69 25
## 879 879 0.89 2
## 880 880 0.63 25
## 881 881 0.11 47
## 882 882 0.92 2
## 883 883 0.68 25
## 884 884 0.15 47
## 885 885 0.75 25
## 886 886 0.94 2
## 887 887 0.42 3
## 888 888 0.30 108
## 889 889 0.26 108
## 890 890 0.22 47
## 891 891 0.57 26
## 892 892 0.76 12
## 893 893 0.67 25
## 894 894 0.55 26
## 895 895 0.81 12
## 896 896 0.76 12
## 897 897 0.02 68
## 898 898 0.38 3
## 899 899 0.05 68
## 900 900 0.80 12
## 901 901 0.92 2
## 902 902 0.54 26
## 903 903 0.85 12
## 904 904 0.58 26
## 905 905 0.67 25
## 906 906 0.51 5
## 907 907 0.76 12
## 908 908 0.90 2
## 909 909 0.82 12
## 910 910 0.07 68
## 911 911 0.00 68
## 912 912 0.05 68
## 913 913 0.87 221
## 914 914 0.58 26
## 915 915 0.31 108
## 916 916 0.96 2
## 917 917 0.59 26
## 918 918 0.53 26
## 919 919 0.38 3
## 920 920 0.32 108
## 921 921 0.81 12
## 922 922 0.04 68
## 923 923 0.36 3
## 924 924 0.86 12
## 925 925 0.70 25
## 926 926 0.68 25
## 927 927 0.35 3
## 928 928 0.55 26
## 929 929 0.14 47
## 930 930 0.78 12
## 931 931 0.89 2
## 932 932 0.20 47
## 933 933 0.77 12
## 934 934 0.60 25
## 935 935 0.96 2
## 936 936 0.16 47
## 937 937 0.53 26
## 938 938 0.87 221
## 939 939 0.87 221
## 940 940 0.02 68
## 941 941 0.98 2
## 942 942 0.49 5
## 943 943 0.39 3
## 944 944 0.42 3
## 945 945 0.09 47
## 946 946 0.16 47
## 947 947 0.41 3
## 948 948 0.34 3
## 949 949 0.42 3
## 950 950 0.30 108
## 951 951 0.56 26
## 952 952 0.16 47
## 953 953 0.96 2
## 954 954 0.04 68
## 955 955 0.37 3
## 956 956 0.96 2
## 957 957 0.65 25
## 958 958 0.06 68
## 959 959 0.41 3
## 960 960 0.43 3
## 961 961 0.51 5
## 962 962 0.45 5
## 963 963 0.62 25
## 964 964 0.14 47
## 965 965 0.91 2
## 966 966 0.57 26
## 967 967 0.55 26
## 968 968 0.12 47
## 969 969 0.76 12
## 970 970 0.48 5
## 971 971 0.78 12
## 972 972 0.05 68
## 973 973 0.82 12
## 974 974 0.27 108
## 975 975 0.28 108
## 976 976 0.64 25
## 977 977 0.95 2
## 978 978 0.01 68
## 979 979 0.35 3
## 980 980 0.42 3
## 981 981 0.46 5
## 982 982 0.71 25
## 983 983 0.92 2
## 984 984 0.63 25
## 985 985 0.90 2
## 986 986 0.76 12
## 987 987 0.14 47
## 988 988 0.15 47
## 989 989 0.19 47
## 990 990 0.43 3
## 991 991 0.09 47
## 992 992 0.22 47
## 993 993 0.57 26
## 994 994 0.40 3
## 995 995 0.57 26
## 996 996 0.83 12
## 997 997 0.64 25
## 998 998 0.39 3
## 999 999 0.71 25
## 1000 1000 0.11 47print(simulasi_d$average)## [1] 34.072