Nama : Disa Nastha Gesiya NIM : 2404010011
# Data
permintaan <- c(50, 60, 70, 80, 90)
frekuensi <- c(10, 20, 40, 20, 10)
# Probabilitas
prob <- frekuensi / sum(frekuensi)
set.seed(123)
# Simulasi 5 hari
sim5 <- sample(permintaan,
size = 5,
replace = TRUE,
prob = prob)
sim5## [1] 70 80 60 90 50mean(sim5)## [1] 70# Simulasi 20 hari
sim20 <- sample(permintaan,
size = 20,
replace = TRUE,
prob = prob)
sim20## [1] 70 60 90 60 60 50 60 80 60 70 90 70 70 70 50 90 80 80 50 80mean(sim20)## [1] 69.5set.seed(123)
# Permintaan berdistribusi eksponensial
permintaan <- rexp(10, rate = 0.1)
# Frekuensi berdistribusi normal
frekuensi <- rnorm(10, mean = 50, sd = 10)
permintaan## [1] 8.4345726 5.7661027 13.2905487 0.3157736 0.5621098 3.1650122
## [7] 3.1422729 1.4526680 27.2623646 0.2915345frekuensi## [1] 45.54338 62.24082 53.59814 54.00771 51.10683 44.44159 67.86913 54.97850
## [9] 30.33383 57.01356set.seed(123)
pred5 <- rexp(5, rate = 0.1)
pred5## [1] 8.4345726 5.7661027 13.2905487 0.3157736 0.5621098mean(pred5)## [1] 5.673821set.seed(123)
pred20 <- rexp(20, rate = 0.1)
pred20## [1] 8.4345726 5.7661027 13.2905487 0.3157736 0.5621098 3.1650122
## [7] 3.1422729 1.4526680 27.2623646 0.2915345 10.0483006 4.8021473
## [13] 2.8101363 3.7711783 1.8828404 8.4978613 15.6320354 4.7876042
## [19] 5.9093484 40.4101171mean(pred20)## [1] 8.111726set.seed(123)
pred100 <- rexp(100, rate = 0.1)
pred100## [1] 8.43457261 5.76610271 13.29054868 0.31577359 0.56210976 3.16501216
## [7] 3.14227292 1.45266804 27.26236464 0.29153447 10.04830058 4.80214728
## [13] 2.81013628 3.77117831 1.88284041 8.49786130 15.63203540 4.78760416
## [19] 5.90934835 40.41011711 8.43149731 9.65871211 14.85275794 13.48044486
## [25] 11.68528984 16.05852343 14.96742869 15.70652547 0.31767744 5.97849691
## [31] 21.67839745 5.06615729 2.59557817 25.96892116 12.29025732 7.90681759
## [37] 6.29280078 12.54641003 5.88684642 11.29290034 4.20364803 72.11007576
## [43] 8.45721965 2.25542007 11.00338818 22.48305692 13.63734299 5.76391668
## [49] 27.25275850 13.12163043 0.90591350 3.06203850 10.67213070 3.13516256
## [55] 9.74640151 18.87823315 5.64588603 25.76961329 10.47695748 10.24441342
## [61] 10.27869616 2.84668461 15.63051889 0.42088293 0.98630890 0.98569312
## [67] 2.80385161 2.95786959 9.72429649 9.24027224 16.42404527 16.19912768
## [73] 25.36145540 15.21549623 3.80014203 2.38512967 4.66487424 0.42271452
## [79] 3.19676899 6.43610920 5.72563103 2.16055503 44.98673398 18.57090553
## [85] 6.85458638 14.39452626 17.31153984 12.44783300 14.63300560 15.37393979
## [91] 0.04599127 11.08765468 2.99970318 11.92003007 11.14928704 0.67375891
## [97] 4.80668721 15.70454339 2.59946107 18.56922287mean(pred100)## [1] 10.45719set.seed(123)
pred1000 <- rexp(1000, rate = 0.1)
pred1000## [1] 8.434572611 5.766102709 13.290548678 0.315773591 0.562109761
## [6] 3.165012164 3.142272922 1.452668039 27.262364643 0.291534471
## [11] 10.048300577 4.802147277 2.810136275 3.771178311 1.882840409
## [16] 8.497861297 15.632035396 4.787604163 5.909348354 40.410117114
## [21] 8.431497311 9.658712111 14.852757940 13.480444857 11.685289843
## [26] 16.058523431 14.967428687 15.706525469 0.317677440 5.978496913
## [31] 21.678397455 5.066157286 2.595578173 25.968921165 12.290257318
## [36] 7.906817589 6.292800778 12.546410029 5.886846422 11.292900338
## [41] 4.203648027 72.110075760 8.457219652 2.255420065 11.003388175
## [46] 22.483056923 13.637342993 5.763916681 27.252758498 13.121630426
## [51] 0.905913501 3.062038501 10.672130696 3.135162559 9.746401505
## [56] 18.878233153 5.645886026 25.769613291 10.476957479 10.244413418
## [61] 10.278696156 2.846684607 15.630518886 0.420882930 0.986308898
## [66] 0.985693121 2.803851613 2.957869587 9.724296489 9.240272240
## [71] 16.424045267 16.199127677 25.361455398 15.215496234 3.800142030
## [76] 2.385129668 4.664874236 0.422714516 3.196768994 6.436109203
## [81] 5.725631034 2.160555025 44.986733978 18.570905532 6.854586378
## [86] 14.394526261 17.311539836 12.447832999 14.633005600 15.373939785
## [91] 0.045991265 11.087654680 2.999703176 11.920030070 11.149287037
## [96] 0.673758909 4.806687208 15.704543390 2.599461069 18.569222874
## [101] 4.632196208 2.360357465 11.820994215 0.596713717 4.032384415
## [106] 9.429398402 4.165806444 7.532184049 1.886863881 8.768538711
## [111] 1.900378207 9.790782062 3.233758273 13.204775536 3.184606484
## [116] 16.050672959 1.457341164 18.031293186 0.300594545 13.034405494
## [121] 1.997922447 17.514562420 17.636683322 8.430435783 3.487527762
## [126] 32.978247998 4.017061749 11.007017344 13.289231723 6.419026479
## [131] 1.958337154 4.567888565 3.727501640 34.635948910 12.740277191
## [136] 10.814851507 2.969591609 0.841607344 29.534009172 19.682522546
## [141] 6.638551257 16.093921437 6.068370841 0.936523131 3.246352840
## [146] 17.598823122 2.661107196 9.406261677 4.491086928 12.889064792
## [151] 1.782890626 15.717260875 0.621407977 5.705833426 17.307808454
## [156] 13.107439046 12.948729662 4.673107091 0.328897885 1.530380426
## [161] 10.384720042 10.824457062 37.472911382 0.056260913 0.043673706
## [166] 16.999841611 5.406681485 4.703686116 0.515594157 5.171863390
## [171] 14.831430092 12.794855590 14.264681739 21.182943414 14.241603741
## [176] 8.841143110 26.909868586 22.299070972 5.228044602 0.686505648
## [181] 5.691505331 43.659109359 5.581317656 4.587813038 2.602637056
## [186] 6.988417450 9.631883885 7.314795549 11.122795706 6.056245458
## [191] 6.714176740 16.316588301 1.019261316 4.079841226 27.403485532
## [196] 28.518774582 0.241733721 4.755948060 6.681086184 9.502303022
## [201] 11.377750027 0.827650866 16.429077049 1.589004147 14.786159377
## [206] 1.130317389 2.241256704 6.705106399 15.368307102 19.288219362
## [211] 2.135722003 5.678929575 19.333238005 36.027478629 13.195786457
## [216] 9.307641349 3.154568624 1.447820521 9.282945115 2.583424659
## [221] 5.383878225 0.753543661 1.284377063 25.988401527 20.701909940
## [226] 2.053810175 27.661254796 14.563427714 27.629222977 14.828341323
## [231] 2.741042617 7.503337262 10.503975013 3.615751024 9.609441729
## [236] 6.631371961 15.776374134 19.224809109 2.230031494 38.452058895
## [241] 1.925270893 9.808966834 2.099576880 12.459658356 16.700951009
## [246] 3.906887232 10.113368341 0.749836427 26.705747152 16.756204627
## [251] 8.251186637 1.677446719 4.634153177 17.104616500 4.911461654
## [256] 15.629672296 11.253750342 3.466649628 0.476452033 10.923543516
## [261] 14.266298407 5.181388311 16.255881674 21.940174406 1.698731147
## [266] 7.762592583 15.823527044 6.207961324 25.821072551 6.440601423
## [271] 11.522778269 6.934697359 15.354364058 6.278674426 9.242026778
## [276] 3.754853713 0.802523482 3.564477148 12.715098659 22.072651851
## [281] 7.534095128 0.343374270 5.738547053 11.075714845 11.589129604
## [286] 8.415477033 23.590081389 11.549642589 18.104048780 0.721074413
## [291] 0.078974240 2.365858856 23.999404478 2.742510571 17.602416090
## [296] 7.365728503 6.301629902 8.977172784 11.518312925 9.415983483
## [301] 29.684275983 0.376098468 3.580268314 0.176937591 9.046976789
## [306] 3.098624326 6.329562776 30.365630536 4.780633710 10.880251554
## [311] 6.585016469 0.710827834 7.913286350 6.018964238 25.457566584
## [316] 6.642155484 8.005674704 5.062201992 0.564683164 6.044764342
## [321] 12.338415989 10.035367766 20.258039850 1.387653253 3.671698290
## [326] 3.314702851 0.597849172 0.196857988 35.000066811 32.993082402
## [331] 1.393784621 3.005230008 3.075333647 12.741622263 6.246096571
## [336] 0.940468353 3.835280304 1.749227340 11.846148043 13.463688129
## [341] 36.410372609 1.334681655 12.565737294 11.647309716 1.048996268
## [346] 3.334103157 0.421310278 0.612487730 0.167412595 10.431271698
## [351] 0.221610439 3.729807022 15.068907532 6.028591674 15.565508249
## [356] 6.454347833 10.171384951 11.898247320 2.594908476 26.255814301
## [361] 38.733336830 4.047555645 5.097309072 0.306004157 5.508151827
## [366] 12.004128480 31.200462802 11.507915072 7.881522597 2.110479221
## [371] 5.182706788 6.896692486 7.652889937 19.075670625 6.379107665
## [376] 13.642555875 1.876769862 5.976471156 0.626064980 2.514872742
## [381] 4.912724346 24.454968589 8.952176254 2.291243146 5.058641159
## [386] 3.297651217 4.732406922 0.390811805 0.058166082 10.953262727
## [391] 6.911122459 6.128703277 22.425174873 22.787495608 1.089404349
## [396] 17.744363303 37.504724914 0.426276927 24.598878341 8.251565648
## [401] 13.748867847 1.745562484 6.133888592 20.022560320 10.037763164
## [406] 4.295096211 6.624439578 3.816584283 0.446715322 17.518804035
## [411] 7.207210169 2.696010196 0.791218281 15.071227606 8.279942879
## [416] 1.660611904 17.065014987 26.202593128 9.397423068 7.336770752
## [421] 39.469834024 2.319187020 0.928525175 11.989251533 18.732784818
## [426] 10.541675878 3.192426744 4.587218626 6.957008925 0.747814868
## [431] 4.213419634 4.247464860 39.284356439 13.608053792 4.487067587
## [436] 17.640951294 9.563983371 6.085125585 0.008259739 15.731134954
## [441] 33.522462322 1.947069652 9.784609545 0.558580006 5.908440407
## [446] 21.823630909 3.900413946 1.728754714 16.617782022 22.255224379
## [451] 1.148751662 7.185887041 20.162448696 0.275622783 17.205700728
## [456] 1.387053775 15.395128819 15.519644617 13.422796325 3.660205649
## [461] 3.068556408 4.684912487 6.149982186 14.108097180 6.962613165
## [466] 10.193351470 13.222243404 2.707351539 6.172240898 7.283519860
## [471] 6.389342798 44.786796542 20.136311743 36.669018024 8.256779695
## [476] 3.760542584 17.255398636 13.236698117 27.388266119 8.154078796
## [481] 11.390120629 7.301265448 7.772065631 32.763864992 7.443323973
## [486] 3.312009927 3.352804626 33.538878186 3.902104888 11.461934475
## [491] 0.964886115 8.731842655 13.949566445 1.798032476 1.233512177
## [496] 3.774422402 9.382304167 2.111736829 0.525801560 30.079506694
## [501] 49.034070239 5.438189646 11.551337393 1.441474413 4.076259001
## [506] 3.144421210 8.505557607 26.352728325 4.247075447 22.615703148
## [511] 0.063630536 14.266511238 9.980797674 4.527977766 3.022452143
## [516] 0.520866673 0.293621851 2.948842873 8.808621341 16.446566544
## [521] 24.313404869 15.114638767 17.444467618 5.239706463 0.547898812
## [526] 0.090393530 3.863978027 0.743709876 1.029973129 4.906836846
## [531] 2.063659122 7.308538612 17.783760745 3.392070918 0.930455886
## [536] 6.229273155 5.183336041 37.501177395 12.167619811 34.007523580
## [541] 5.958058746 3.761005307 1.671257266 3.366472870 0.226291930
## [546] 5.255011786 0.495127852 55.813587679 3.683448828 12.288938667
## [551] 9.713600985 6.167725106 31.140126733 11.481179595 4.744498689
## [556] 10.852073915 1.093636588 14.842433016 5.698631126 1.414684861
## [561] 1.927259215 1.099944154 0.164197163 2.697523122 25.662546697
## [566] 16.807680427 13.148131612 10.604049572 13.541769934 9.093570569
## [571] 1.205610749 16.332875657 0.304753424 0.424640084 13.329308945
## [576] 10.047860911 2.465227670 15.061178095 3.800391340 24.110219749
## [581] 5.639378293 32.454382776 6.396893356 7.707809703 8.245488386
## [586] 2.864431189 0.048509590 13.693300802 11.864548853 2.542214012
## [591] 0.955561375 16.123333852 19.167918562 7.536029937 1.442973590
## [596] 12.938238941 1.309307613 6.592477574 2.842276390 12.591421874
## [601] 4.191597095 22.691023685 16.677728686 3.312458967 5.473842449
## [606] 8.747475026 21.294913309 9.294648780 18.674169107 0.139954537
## [611] 36.939618641 5.473720790 1.193301585 2.829252784 8.866903777
## [616] 5.854766835 1.711311527 12.721831239 6.224746993 9.673995561
## [621] 1.628946764 8.794675339 16.965263426 14.285994562 2.434519655
## [626] 0.959885665 15.802480708 1.190917385 10.034900359 4.391745655
## [631] 8.612056203 22.932148966 12.583275456 48.367347305 4.913411138
## [636] 6.534309806 3.738910285 7.989067155 3.183958516 15.861052682
## [641] 17.706386707 9.183922158 11.727762874 23.229864108 4.263003776
## [646] 1.018454581 14.732175320 3.895231792 4.437171185 2.578555215
## [651] 7.787831993 37.121044429 12.624721964 17.617890201 9.717156579
## [656] 13.473674375 5.186713934 7.807080010 20.997761337 7.479097461
## [661] 21.691460779 5.141970669 1.385682828 6.018356974 4.555254206
## [666] 19.021611828 0.588115128 1.972770938 4.578461023 22.360268364
## [671] 6.526631573 9.004832892 15.696214740 1.371375080 20.037709027
## [676] 19.287393763 4.372234903 9.472187627 14.934153798 31.665306129
## [681] 24.539185916 6.393650370 4.059590078 1.354967472 4.426185326
## [686] 5.048884270 12.188375676 8.451883057 0.633666543 7.317314660
## [691] 6.635806356 13.146027196 22.415523509 1.505403268 2.513366309
## [696] 2.568096076 10.061018373 14.975702967 4.152755436 2.578360190
## [701] 21.323746795 1.455595623 11.965209273 20.452183596 7.754170429
## [706] 22.389479371 3.819796997 8.409776575 15.815943255 2.785161402
## [711] 1.501787507 4.401009157 12.821312015 25.834638233 2.697928101
## [716] 58.143282976 20.704802795 3.580456190 0.935723729 12.431402113
## [721] 5.769438581 3.858273332 1.885459428 23.909497780 41.359900886
## [726] 19.476658161 0.761086649 12.339415522 3.390123933 4.361836179
## [731] 7.380292435 5.706972368 0.843765796 13.593365615 0.547386491
## [736] 12.218638211 6.043654159 19.696834552 2.396019009 26.935525118
## [741] 30.647731422 8.498426002 50.393968687 8.033875012 9.939597528
## [746] 1.774125532 14.161809828 9.378232527 23.353284242 9.801235459
## [751] 2.498110738 8.867319626 1.414263868 31.206851078 19.120340048
## [756] 4.541729414 6.533801006 0.214421507 1.354523315 64.218840428
## [761] 15.365191865 0.572269663 1.724039783 27.888229860 15.576827153
## [766] 4.061459480 21.284128780 2.436141246 0.609239044 41.304213756
## [771] 4.504559040 10.855949183 1.091263592 4.753044145 2.462583240
## [776] 9.372608037 12.619331190 20.029940046 4.206226081 1.250336175
## [781] 7.967432318 4.711168073 0.985595877 10.776553563 0.299312696
## [786] 6.315358952 0.525451386 20.106147601 2.102489870 5.411940939
## [791] 4.668971100 6.778119965 1.380976848 41.477095539 10.693050084
## [796] 1.102276137 22.540719005 14.783127549 3.692173925 26.733925211
## [801] 20.165816023 11.570677338 6.923915152 14.608831188 5.581377372
## [806] 7.135699139 0.960866520 28.574373869 6.122189523 10.441584093
## [811] 2.475273067 12.306612711 7.016414387 0.251499433 9.745556535
## [816] 1.628663153 2.346888166 8.112379591 4.955730974 6.878294162
## [821] 0.695180940 9.020882267 8.657733057 3.092534896 2.017633312
## [826] 0.727198618 1.949037332 40.592251474 50.915155873 14.373203962
## [831] 40.540305430 25.535127724 8.294592601 14.963082348 6.739558219
## [836] 8.549939454 16.616650558 1.711342083 15.765181779 18.187708388
## [841] 10.500332005 18.575098719 13.153132693 2.271192367 3.713426688
## [846] 6.470512003 11.890756357 0.130534579 9.390270169 22.922872769
## [851] 1.304654348 0.421697272 2.615313224 11.526808703 7.300638088
## [856] 14.290797539 8.623617975 0.597300122 4.447977361 1.115734766
## [861] 18.498198985 4.603671241 1.790513010 9.430766310 5.455887979
## [866] 10.383399892 2.881569837 0.688616285 13.344974588 9.013368279
## [871] 5.959452624 6.010214239 12.408499652 12.195059610 2.910312284
## [876] 3.578899621 15.765470284 2.255318058 31.155269293 7.368804294
## [881] 0.013433984 7.741195820 1.976042981 4.716752525 4.271556237
## [886] 24.780847768 18.887261329 25.977524551 6.217789575 19.056361484
## [891] 41.277376616 0.953964518 10.140476392 21.286399605 4.660799867
## [896] 12.768735420 10.189281902 0.777062987 6.277010483 0.334890767
## [901] 1.642877944 6.614681245 41.668693610 5.313793342 9.517976231
## [906] 6.240234887 1.391559458 3.162966171 17.721225014 1.694201790
## [911] 9.885492168 12.784616968 16.774043488 37.963502312 12.149390587
## [916] 13.825408909 19.177028685 4.106585635 44.588245718 4.624801860
## [921] 41.902918754 2.876800043 18.678703656 2.848867513 6.932071382
## [926] 11.882153367 17.164713851 32.978688179 5.470621120 10.176164982
## [931] 1.057529412 3.526610578 8.024846641 34.639704300 11.160490862
## [936] 0.613328214 12.544748969 9.671451440 3.651501085 8.316068109
## [941] 12.535260375 2.165427500 15.020307375 21.443997456 0.189116147
## [946] 5.747699267 11.277883797 40.723257119 4.921871959 36.436160685
## [951] 7.511337150 6.247859676 2.550048833 2.611449719 12.567065814
## [956] 9.348018563 4.109415001 10.044355560 22.904714289 1.827744842
## [961] 18.129884693 4.827002482 8.686520131 2.783716214 21.112116867
## [966] 0.887291398 10.794319253 13.756672951 12.662859046 2.176942751
## [971] 10.750821009 6.973561422 39.938567484 30.977052522 1.295410722
## [976] 2.181219570 3.494105266 13.852602755 3.087625755 1.236508984
## [981] 7.231568796 21.553678363 6.581433895 5.420925939 3.236703394
## [986] 5.703658848 0.691061922 8.009928623 4.444441022 11.183678982
## [991] 12.239947142 27.955855502 0.428905739 21.311824134 0.257699442
## [996] 2.841398981 5.701567191 12.933980282 2.706857373 8.388339849mean(pred1000)## [1] 10.29979