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.1
dist.kum=cumsum(dist.prob)
dist.kum
## [1] 0.1 0.3 0.7 0.9 1.0
interval_bawah <- c(0, head(round(dist.kum * 100), -1) + 1)
interval_atas <- round(dist.kum * 100)
interval <- paste(interval_bawah, "-", interval_atas)
tabel_distribusi <- data.frame(
Permintaan = permintaan_gelas,
Frekuensi_Observasi = frekuensi,
Probabilitas = round(dist.prob, 2),
Probabilitas_Kumulatif = round(dist.kum, 2),
Interval = interval
)
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 - 100
- 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.57907347
permintaan <- 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
- prediksi permintaan es teh selama 20 hari
permintaan <- 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
- Prediksi permintaan es teh selama 100 hari # Membangkitkan bilangan
Acak
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.5115054599
permintaan <- 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
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.134655540
permintaan <- 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] 70