R Notebook

library(TeachingSampling)
Ingresos<-c(56444283, 55210813, 15345813, 14513579, 13108076, 9150339, 8695604, 8532913,8124364, 6954265, 6128605, 6128605, 5929496, 5864959)
N<-length(Ingresos)
N

[1] 14

n=6
choose(N,n)

[1] 3003

px<-1/choose(N,n)
px

[1] 0.0003330003

data.3<-data.frame(Support(N,n,Ingresos))
View(data.3)
med.3<-apply(data.3,1,mean)
med.3

   [1] 27295484 27219695 27192580 27124488 26929472
   [6] 26791862 26791862 26758677 26747920 26560072
  [11] 26532957 26464865 26269849 26132239 26132239
  [16] 26099054 26088298 26457168 26389076 26194060
  [21] 26056450 26056450 26023265 26012508 26361961
  [26] 26166944 26029334 26029334 25996150 25985393
  [31] 26098853 25961243 25961243 25928058 25917302
  [36] 25766226 25766226 25733042 25722285 25628616
  [41] 25595432 25584675 25595432 25584675 25551490
  [46] 26325821 26298706 26230615 26035598 25897988
  [51] 25897988 25864803 25854047 26222917 26154826
  [56] 25959809 25822199 25822199 25789014 25778258
  [61] 26127710 25932694 25795084 25795084 25761899
  [66] 25751143 25864602 25726992 25726992 25693808
  [71] 25683051 25531976 25531976 25498791 25488035
  [76] 25394366 25361181 25350425 25361181 25350425
  [81] 25317240 25563294 25495203 25300186 25162576
  [86] 25162576 25129391 25118635 25468088 25273071
  [91] 25135461 25135461 25102276 25091520 25204980
  [96] 25067370 25067370 25034185 25023428 24872353
 [101] 24872353 24839168 24828412 24734743 24701558
 [106] 24690802 24701558 24690802 24657617 25392298
 [111] 25197282 25059672 25059672 25026487 25015731
 [116] 25129190 24991580 24991580 24958396 24947639
 [121] 24796564 24796564 24763379 24752623 24658954
 [126] 24625769 24615013 24625769 24615013 24581828
 [131] 25102075 24964465 24964465 24931280 24920524
 [136] 24769449 24769449 24736264 24725508 24631839
 [141] 24598654 24587898 24598654 24587898 24554713
 [146] 24701357 24701357 24668172 24657416 24563747
 [151] 24530562 24519806 24530562 24519806 24486621
 [156] 24368731 24335546 24324790 24335546 24324790
 [161] 24291605 24197936 24187180 24153995 24153995
 [166] 26187116 26160000 26091909 25896892 25759282
 [171] 25759282 25726098 25715342 26084211 26016120
 [176] 25821103 25683493 25683493 25650308 25639552
 [181] 25989005 25793988 25656378 25656378 25623193
 [186] 25612437 25725897 25588287 25588287 25555102
 [191] 25544346 25393270 25393270 25360085 25349329
 [196] 25255660 25222475 25211719 25222475 25211719
 [201] 25178534 25424588 25356497 25161480 25023870
 [206] 25023870 24990686 24979930 25329382 25134365
 [211] 24996755 24996755 24963570 24952814 25066274
 [216] 24928664 24928664 24895479 24884723 24733647
 [221] 24733647 24700462 24689706 24596037 24562852
 [226] 24552096 24562852 24552096 24518912 25253593
 [231] 25058576 24920966 24920966 24887781 24877025
 [236] 24990485 24852875 24852875 24819690 24808934
 [241] 24657858 24657858 24624673 24613917 24520248
 [246] 24487063 24476307 24487063 24476307 24443122
 [251] 24963370 24825760 24825760 24792575 24781818
 [256] 24630743 24630743 24597558 24586802 24493133
 [261] 24459948 24449192 24459948 24449192 24416007
 [266] 24562652 24562652 24529467 24518710 24425042
 [271] 24391857 24381100 24391857 24381100 24347916
 [276] 24230025 24196840 24186084 24196840 24186084
 [281] 24152899 24059230 24048474 24015289 24015289
 [286] 25190338 25122246 24927230 24789620 24789620
 [291] 24756435 24745679 25095131 24900115 24762505
 [296] 24762505 24729320 24718564 24832023 24694413
 [301] 24694413 24661228 24650472 24499397 24499397
 [306] 24466212 24455456 24361787 24328602 24317846
 [311] 24328602 24317846 24284661 25019342 24824326
 [316] 24686716 24686716 24653531 24642775 24756234
 [321] 24618624 24618624 24585439 24574683 24423608
 [326] 24423608 24390423 24379667 24285998 24252813
 [331] 24242057 24252813 24242057 24208872 24729119
 [336] 24591509 24591509 24558324 24547568 24396492
 [341] 24396492 24363308 24352552 24258882 24225698
 [346] 24214942 24225698 24214942 24181757 24328401
 [351] 24328401 24295216 24284460 24190791 24157606
 [356] 24146850 24157606 24146850 24113665 23995774
 [361] 23962590 23951834 23962590 23951834 23918649
 [366] 23824980 23814224 23781039 23781039 24359719
 [371] 24164703 24027093 24027093 23993908 23983152
 [376] 24096611 23959001 23959001 23925816 23915060
 [381] 23763985 23763985 23730800 23720044 23626375
 [386] 23593190 23582434 23593190 23582434 23549249
 [391] 24069496 23931886 23931886 23898701 23887945
 [396] 23736870 23736870 23703685 23692929 23599260
 [401] 23566075 23555319 23566075 23555319 23522134
 [406] 23668778 23668778 23635593 23624837 23531168
 [411] 23497983 23487227 23497983 23487227 23454042
 [416] 23336152 23302967 23292211 23302967 23292211
 [421] 23259026 23165357 23154601 23121416 23121416
 [426] 23993707 23856097 23856097 23822912 23812156
 [431] 23661080 23661080 23627896 23617140 23523470
 [436] 23490286 23479530 23490286 23479530 23446345
 [441] 23592989 23592989 23559804 23549048 23455379
 [446] 23422194 23411438 23422194 23411438 23378253
 [451] 23260362 23227178 23216422 23227178 23216422
 [456] 23183237 23089568 23078812 23045627 23045627
 [461] 23565874 23565874 23532689 23521933 23428264
 [466] 23395079 23384323 23395079 23384323 23351138
 [471] 23233247 23200062 23189306 23200062 23189306
 [476] 23156122 23062452 23051696 23018512 23018512
 [481] 23165156 23131971 23121215 23131971 23121215
 [486] 23088030 22994361 22983605 22950420 22950420
 [491] 22799344 22788588 22755404 22755404 22617794
 [496] 19542949 19515834 19447742 19252726 19115116
 [501] 19115116 19081931 19071175 19440045 19371953
 [506] 19176937 19039327 19039327 19006142 18995386
 [511] 19344838 19149822 19012212 19012212 18979027
 [516] 18968270 19081730 18944120 18944120 18910935
 [521] 18900179 18749104 18749104 18715919 18705162
 [526] 18611494 18578309 18567552 18578309 18567552
 [531] 18534368 18780422 18712330 18517314 18379704
 [536] 18379704 18346519 18335763 18685215 18490199
 [541] 18352589 18352589 18319404 18308648 18422107
 [546] 18284497 18284497 18251312 18240556 18089481
 [551] 18089481 18056296 18045540 17951871 17918686
 [556] 17907930 17918686 17907930 17874745 18609426
 [561] 18414410 18276800 18276800 18243615 18232858
 [566] 18346318 18208708 18208708 18175523 18164767
 [571] 18013692 18013692 17980507 17969750 17876082
 [576] 17842897 17832140 17842897 17832140 17798956
 [581] 18319203 18181593 18181593 18148408 18137652
 [586] 17986576 17986576 17953392 17942635 17848966
 [591] 17815782 17805025 17815782 17805025 17771840
 [596] 17918485 17918485 17885300 17874544 17780875
 [601] 17747690 17736934 17747690 17736934 17703749
 [606] 17585858 17552674 17541917 17552674 17541917
 [611] 17508732 17415064 17404307 17371122 17371122
 [616] 18546171 18478080 18283063 18145453 18145453
 [621] 18112268 18101512 18450965 18255948 18118338
 [626] 18118338 18085153 18074397 18187857 18050247
 [631] 18050247 18017062 18006306 17855230 17855230
 [636] 17822045 17811289 17717620 17684435 17673679
 [641] 17684435 17673679 17640494 18375176 18180159
 [646] 18042549 18042549 18009364 17998608 18112068
 [651] 17974458 17974458 17941273 17930516 17779441
 [656] 17779441 17746256 17735500 17641831 17608646
 [661] 17597890 17608646 17597890 17564705 18084952
 [666] 17947342 17947342 17914158 17903401 17752326
 [671] 17752326 17719141 17708385 17614716 17581531
 [676] 17570775 17581531 17570775 17537590 17684234
 [681] 17684234 17651050 17640293 17546624 17513440
 [686] 17502683 17513440 17502683 17469498 17351608
 [691] 17318423 17307667 17318423 17307667 17274482
 [696] 17180813 17170057 17136872 17136872 17715553
 [701] 17520536 17382926 17382926 17349741 17338985
 [706] 17452445 17314835 17314835 17281650 17270894
 [711] 17119818 17119818 17086633 17075877 16982208
 [716] 16949023 16938267 16949023 16938267 16905082
 [721] 17425330 17287720 17287720 17254535 17243778
 [726] 17092703 17092703 17059518 17048762 16955093
 [731] 16921908 16911152 16921908 16911152 16877967
 [736] 17024612 17024612 16991427 16980670 16887002
 [741] 16853817 16843060 16853817 16843060 16809876
 [746] 16691985 16658800 16648044 16658800 16648044
 [751] 16614859 16521190 16510434 16477249 16477249
 [756] 17349540 17211930 17211930 17178746 17167989
 [761] 17016914 17016914 16983729 16972973 16879304
 [766] 16846119 16835363 16846119 16835363 16802178
 [771] 16948822 16948822 16915638 16904881 16811212
 [776] 16778028 16767271 16778028 16767271 16734086
 [781] 16616196 16583011 16572255 16583011 16572255
 [786] 16539070 16445401 16434645 16401460 16401460
 [791] 16921707 16921707 16888522 16877766 16784097
 [796] 16750912 16740156 16750912 16740156 16706971
 [801] 16589081 16555896 16545140 16555896 16545140
 [806] 16511955 16418286 16407530 16374345 16374345
 [811] 16520989 16487804 16477048 16487804 16477048
 [816] 16443863 16350194 16339438 16306253 16306253
 [821] 16155178 16144422 16111237 16111237 15973627
 [826] 18407466 18339374 18144358 18006748 18006748
 [831] 17973563 17962807 18312259 18117242 17979632
 [836] 17979632 17946448 17935692 18049151 17911541
 [841] 17911541 17878356 17867600 17716524 17716524
 [846] 17683340 17672584 17578914 17545730 17534974
 [851] 17545730 17534974 17501789 18236470 18041453
 [856] 17903843 17903843 17870658 17859902 17973362
 [861] 17835752 17835752 17802567 17791811 17640735
 [866] 17640735 17607550 17596794 17503125 17469940
 [871] 17459184 17469940 17459184 17426000 17946247
 [876] 17808637 17808637 17775452 17764696 17613620
 [881] 17613620 17580435 17569679 17476010 17442825
 [886] 17432069 17442825 17432069 17398884 17545529
 [891] 17545529 17512344 17501588 17407919 17374734
 [896] 17363978 17374734 17363978 17330793 17212902
 [901] 17179717 17168961 17179717 17168961 17135776
 [906] 17042107 17031351 16998166 16998166 17576847
 [911] 17381830 17244220 17244220 17211036 17200280
 [916] 17313739 17176129 17176129 17142944 17132188
 [921] 16981112 16981112 16947928 16937172 16843502
 [926] 16810318 16799562 16810318 16799562 16766377
 [931] 17286624 17149014 17149014 17115829 17105073
 [936] 16953997 16953997 16920812 16910056 16816387
 [941] 16783202 16772446 16783202 16772446 16739262
 [946] 16885906 16885906 16852721 16841965 16748296
 [951] 16715111 16704355 16715111 16704355 16671170
 [956] 16553279 16520094 16509338 16520094 16509338
 [961] 16476154 16382484 16371728 16338544 16338544
 [966] 17210835 17073225 17073225 17040040 17029284
 [971] 16878208 16878208 16845023 16834267 16740598
 [976] 16707413 16696657 16707413 16696657 16663472
 [981] 16810117 16810117 16776932 16766176 16672507
 [986] 16639322 16628566 16639322 16628566 16595381
 [991] 16477490 16444305 16433549 16444305 16433549
 [996] 16400364 16306695 16295939 16262754 16262754
 [ reached getOption("max.print") -- omitted 2003 entries ]

var.3<-apply(data.3,1,var)
var.3

   [1] 4.931237e+14 4.964587e+14 4.976686e+14
   [4] 5.007458e+14 5.098668e+14 5.165775e+14
   [7] 5.165775e+14 5.182298e+14 5.187682e+14
  [10] 5.214093e+14 5.225763e+14 5.255457e+14
  [13] 5.343579e+14 5.408508e+14 5.408508e+14
  [16] 5.424506e+14 5.429719e+14 5.257726e+14
  [19] 5.287295e+14 5.375063e+14 5.439742e+14
  [22] 5.439742e+14 5.455679e+14 5.460873e+14
  [25] 5.298854e+14 5.386495e+14 5.451084e+14
  [28] 5.451084e+14 5.466999e+14 5.472187e+14
  [31] 5.415591e+14 5.479954e+14 5.479954e+14
  [34] 5.495816e+14 5.500985e+14 5.565720e+14
  [37] 5.565720e+14 5.581426e+14 5.586545e+14
  [40] 5.628985e+14 5.644582e+14 5.649666e+14
  [43] 5.644582e+14 5.649666e+14 5.665227e+14
  [46] 5.285111e+14 5.296628e+14 5.325939e+14
  [49] 5.412966e+14 5.477121e+14 5.477121e+14
  [52] 5.492932e+14 5.498085e+14 5.328165e+14
  [55] 5.357352e+14 5.444024e+14 5.507928e+14
  [58] 5.507928e+14 5.523679e+14 5.528813e+14
  [61] 5.368758e+14 5.455303e+14 5.519118e+14
  [64] 5.519118e+14 5.534847e+14 5.539974e+14
  [67] 5.484016e+14 5.547606e+14 5.547606e+14
  [70] 5.563281e+14 5.568390e+14 5.632275e+14
  [73] 5.632275e+14 5.647795e+14 5.652853e+14
  [76] 5.694767e+14 5.710177e+14 5.715200e+14
  [79] 5.710177e+14 5.715200e+14 5.730575e+14
  [82] 5.561891e+14 5.590001e+14 5.673585e+14
  [85] 5.735311e+14 5.735311e+14 5.750536e+14
  [88] 5.755500e+14 5.600977e+14 5.684435e+14
  [91] 5.746071e+14 5.746071e+14 5.761275e+14
  [94] 5.766231e+14 5.712070e+14 5.773481e+14
  [97] 5.773481e+14 5.788631e+14 5.793570e+14
 [100] 5.855063e+14 5.855063e+14 5.870057e+14
 [103] 5.874946e+14 5.915376e+14 5.930261e+14
 [106] 5.935114e+14 5.930261e+14 5.935114e+14
 [109] 5.949964e+14 5.631003e+14 5.714106e+14
 [112] 5.775492e+14 5.775492e+14 5.790635e+14
 [115] 5.795572e+14 5.741617e+14 5.802778e+14
 [118] 5.802778e+14 5.817867e+14 5.822786e+14
 [121] 5.884005e+14 5.884005e+14 5.898939e+14
 [124] 5.903808e+14 5.944068e+14 5.958892e+14
 [127] 5.963726e+14 5.958892e+14 5.963726e+14
 [130] 5.978515e+14 5.752355e+14 5.813427e+14
 [133] 5.813427e+14 5.828495e+14 5.833407e+14
 [136] 5.894527e+14 5.894527e+14 5.909440e+14
 [139] 5.914301e+14 5.954501e+14 5.969303e+14
 [142] 5.974130e+14 5.969303e+14 5.974130e+14
 [145] 5.988897e+14 5.921339e+14 5.921339e+14
 [148] 5.936197e+14 5.941041e+14 5.981088e+14
 [151] 5.995836e+14 6.000645e+14 5.995836e+14
 [154] 6.000645e+14 6.015358e+14 6.060312e+14
 [157] 6.074905e+14 6.079664e+14 6.074905e+14
 [160] 6.079664e+14 6.094222e+14 6.133446e+14
 [163] 6.138169e+14 6.152617e+14 6.152617e+14
 [166] 5.322817e+14 5.334244e+14 5.363329e+14
 [169] 5.449706e+14 5.513403e+14 5.513403e+14
 [172] 5.529103e+14 5.534221e+14 5.365528e+14
 [175] 5.394489e+14 5.480511e+14 5.543958e+14
 [178] 5.543958e+14 5.559598e+14 5.564696e+14
 [181] 5.405805e+14 5.491700e+14 5.555057e+14
 [184] 5.555057e+14 5.570676e+14 5.575767e+14
 [187] 5.520186e+14 5.583318e+14 5.583318e+14
 [190] 5.598883e+14 5.603956e+14 5.667338e+14
 [193] 5.667338e+14 5.682747e+14 5.687770e+14
 [196] 5.729372e+14 5.744671e+14 5.749659e+14
 [199] 5.744671e+14 5.749659e+14 5.764923e+14
 [202] 5.597059e+14 5.624942e+14 5.707877e+14
 [205] 5.769145e+14 5.769145e+14 5.784260e+14
 [208] 5.789187e+14 5.635828e+14 5.718636e+14
 [211] 5.779815e+14 5.779815e+14 5.794908e+14
 [214] 5.799829e+14 5.746044e+14 5.806998e+14
 [217] 5.806998e+14 5.822037e+14 5.826940e+14
 [220] 5.887931e+14 5.887931e+14 5.902815e+14
 [223] 5.907667e+14 5.947786e+14 5.962560e+14
 [226] 5.967377e+14 5.962560e+14 5.967377e+14
 [229] 5.982116e+14 5.665601e+14 5.748055e+14
 [232] 5.808983e+14 5.808983e+14 5.824016e+14
 [235] 5.828917e+14 5.775339e+14 5.836043e+14
 [238] 5.836043e+14 5.851021e+14 5.855905e+14
 [241] 5.916620e+14 5.916620e+14 5.931444e+14
 [244] 5.936277e+14 5.976225e+14 5.990939e+14
 [247] 5.995737e+14 5.990939e+14 5.995737e+14
 [250] 6.010416e+14 5.785987e+14 5.846601e+14
 [253] 5.846601e+14 5.861558e+14 5.866435e+14
 [256] 5.927052e+14 5.927052e+14 5.941854e+14
 [259] 5.946680e+14 5.986567e+14 6.001260e+14
 [262] 6.006050e+14 6.001260e+14 6.006050e+14
 [265] 6.020708e+14 5.953637e+14 5.953637e+14
 [268] 5.968385e+14 5.973194e+14 6.012928e+14
 [271] 6.027566e+14 6.032339e+14 6.027566e+14
 [274] 6.032339e+14 6.046942e+14 6.091503e+14
 [277] 6.105986e+14 6.110709e+14 6.105986e+14
 [280] 6.110709e+14 6.125156e+14 6.164068e+14
 [283] 6.168755e+14 6.183093e+14 6.183093e+14
 [286] 5.661693e+14 5.689193e+14 5.771032e+14
 [289] 5.831526e+14 5.831526e+14 5.846455e+14
 [292] 5.851322e+14 5.699927e+14 5.781639e+14
 [295] 5.842044e+14 5.842044e+14 5.856950e+14
 [298] 5.861811e+14 5.808664e+14 5.868844e+14
 [301] 5.868844e+14 5.883697e+14 5.888539e+14
 [304] 5.948680e+14 5.948680e+14 5.963378e+14
 [307] 5.968170e+14 6.007762e+14 6.022350e+14
 [310] 6.027106e+14 6.022350e+14 6.027106e+14
 [313] 6.041659e+14 5.729274e+14 5.810631e+14
 [316] 5.870786e+14 5.870786e+14 5.885632e+14
 [319] 5.890473e+14 5.837533e+14 5.897463e+14
 [322] 5.897463e+14 5.912255e+14 5.917078e+14
 [325] 5.976944e+14 5.976944e+14 5.991581e+14
 [328] 5.996354e+14 6.035775e+14 6.050303e+14
 [331] 6.055040e+14 6.050303e+14 6.055040e+14
 [334] 6.069532e+14 5.848029e+14 5.907869e+14
 [337] 5.907869e+14 5.922639e+14 5.927455e+14
 [340] 5.987223e+14 5.987223e+14 6.001839e+14
 [343] 6.006604e+14 6.045965e+14 6.060471e+14
 [346] 6.065201e+14 6.060471e+14 6.065201e+14
 [349] 6.079672e+14 6.013426e+14 6.013426e+14
 [352] 6.027987e+14 6.032735e+14 6.071943e+14
 [355] 6.086394e+14 6.091107e+14 6.086394e+14
 [358] 6.091107e+14 6.105523e+14 6.149422e+14
 [361] 6.163718e+14 6.168380e+14 6.163718e+14
 [364] 6.168380e+14 6.182641e+14 6.221026e+14
 [367] 6.225653e+14 6.239805e+14 6.239805e+14
 [370] 5.943947e+14 6.022217e+14 6.080193e+14
 [373] 6.080193e+14 6.094514e+14 6.099184e+14
 [376] 6.048040e+14 6.105792e+14 6.105792e+14
 [379] 6.120058e+14 6.124711e+14 6.182186e+14
 [382] 6.182186e+14 6.196297e+14 6.200900e+14
 [385] 6.238839e+14 6.252840e+14 6.257407e+14
 [388] 6.252840e+14 6.257407e+14 6.271374e+14
 [391] 6.058107e+14 6.115769e+14 6.115769e+14
 [394] 6.130014e+14 6.134660e+14 6.192036e+14
 [397] 6.192036e+14 6.206126e+14 6.210721e+14
 [400] 6.248599e+14 6.262579e+14 6.267139e+14
 [403] 6.262579e+14 6.267139e+14 6.281085e+14
 [406] 6.217160e+14 6.217160e+14 6.231196e+14
 [409] 6.235774e+14 6.273499e+14 6.287425e+14
 [412] 6.291967e+14 6.287425e+14 6.291967e+14
 [415] 6.305858e+14 6.347890e+14 6.361661e+14
 [418] 6.366153e+14 6.361661e+14 6.366153e+14
 [421] 6.379889e+14 6.416791e+14 6.421248e+14
 [424] 6.434874e+14 6.434874e+14 6.085589e+14
 [427] 6.143000e+14 6.143000e+14 6.157185e+14
 [430] 6.161811e+14 6.218913e+14 6.218913e+14
 [433] 6.232942e+14 6.237518e+14 6.275225e+14
 [436] 6.289145e+14 6.293686e+14 6.289145e+14
 [439] 6.293686e+14 6.307571e+14 6.243913e+14
 [442] 6.243913e+14 6.257889e+14 6.262447e+14
 [445] 6.300001e+14 6.313867e+14 6.318389e+14
 [448] 6.313867e+14 6.318389e+14 6.332220e+14
 [451] 6.374038e+14 6.387749e+14 6.392221e+14
 [454] 6.387749e+14 6.392221e+14 6.405896e+14
 [457] 6.442628e+14 6.447065e+14 6.460631e+14
 [460] 6.460631e+14 6.253652e+14 6.253652e+14
 [463] 6.267606e+14 6.272157e+14 6.309650e+14
 [466] 6.323494e+14 6.328010e+14 6.323494e+14
 [469] 6.328010e+14 6.341819e+14 6.383561e+14
 [472] 6.397249e+14 6.401715e+14 6.397249e+14
 [475] 6.401715e+14 6.415369e+14 6.452040e+14
 [478] 6.456469e+14 6.470014e+14 6.470014e+14
 [481] 6.407862e+14 6.421497e+14 6.425944e+14
 [484] 6.421497e+14 6.425944e+14 6.439544e+14
 [487] 6.476062e+14 6.480474e+14 6.493964e+14
 [490] 6.493964e+14 6.547941e+14 6.552303e+14
 [493] 6.565638e+14 6.565638e+14 6.618959e+14
 [496] 3.343396e+14 3.350499e+14 3.368725e+14
 [499] 3.424005e+14 3.465759e+14 3.465759e+14
 [502] 3.476168e+14 3.479570e+14 3.369698e+14
 [505] 3.387800e+14 3.442725e+14 3.484229e+14
 [508] 3.484229e+14 3.494577e+14 3.497960e+14
 [511] 3.394792e+14 3.449590e+14 3.491004e+14
 [514] 3.491004e+14 3.501331e+14 3.504707e+14
 [517] 3.467219e+14 3.508407e+14 3.508407e+14
 [520] 3.518680e+14 3.522038e+14 3.561330e+14
 [523] 3.561330e+14 3.571447e+14 3.574755e+14
 [526] 3.601420e+14 3.611428e+14 3.614700e+14
 [529] 3.611428e+14 3.614700e+14 3.624673e+14
 [532] 3.496045e+14 3.513069e+14 3.564907e+14
 [535] 3.604232e+14 3.604232e+14 3.614055e+14
 [538] 3.617268e+14 3.519632e+14 3.571343e+14
 [541] 3.610578e+14 3.610578e+14 3.620380e+14
 [544] 3.623585e+14 3.587893e+14 3.626904e+14
 [547] 3.626904e+14 3.636651e+14 3.639839e+14
 [550] 3.676739e+14 3.676739e+14 3.686331e+14
 [553] 3.689469e+14 3.714651e+14 3.724133e+14
 [556] 3.727235e+14 3.724133e+14 3.727235e+14
 [559] 3.736683e+14 3.537320e+14 3.588676e+14
 [562] 3.627661e+14 3.627661e+14 3.637402e+14
 [565] 3.640588e+14 3.605103e+14 3.643863e+14
 [568] 3.643863e+14 3.653550e+14 3.656718e+14
 [571] 3.693343e+14 3.693343e+14 3.702875e+14
 [574] 3.705993e+14 3.731005e+14 3.740427e+14
 [577] 3.743509e+14 3.740427e+14 3.743509e+14
 [580] 3.752897e+14 3.611427e+14 3.650098e+14
 [583] 3.650098e+14 3.659763e+14 3.662924e+14
 [586] 3.699451e+14 3.699451e+14 3.708962e+14
 [589] 3.712072e+14 3.737023e+14 3.746424e+14
 [592] 3.749499e+14 3.746424e+14 3.749499e+14
 [595] 3.758865e+14 3.715179e+14 3.715179e+14
 [598] 3.724635e+14 3.727728e+14 3.752526e+14
 [601] 3.761872e+14 3.764930e+14 3.761872e+14
 [604] 3.764930e+14 3.774241e+14 3.800004e+14
 [607] 3.809195e+14 3.812202e+14 3.809195e+14
 [610] 3.812202e+14 3.821358e+14 3.845334e+14
 [613] 3.848306e+14 3.857352e+14 3.857352e+14
 [616] 3.523325e+14 3.539967e+14 3.590709e+14
 [619] 3.629260e+14 3.629260e+14 3.638897e+14
 [622] 3.642048e+14 3.546377e+14 3.596992e+14
 [625] 3.635454e+14 3.635454e+14 3.645069e+14
 [628] 3.648214e+14 3.613159e+14 3.651396e+14
 [631] 3.651396e+14 3.660957e+14 3.664084e+14
 [634] 3.700135e+14 3.700135e+14 3.709541e+14
 [637] 3.712618e+14 3.737273e+14 3.746569e+14
 [640] 3.749611e+14 3.746569e+14 3.749611e+14
 [643] 3.758872e+14 3.563639e+14 3.613899e+14
 [646] 3.652110e+14 3.652110e+14 3.661665e+14
 [649] 3.664791e+14 3.629943e+14 3.667929e+14
 [652] 3.667929e+14 3.677430e+14 3.680537e+14
 [655] 3.716313e+14 3.716313e+14 3.725659e+14
 [658] 3.728716e+14 3.753201e+14 3.762437e+14
 [661] 3.765459e+14 3.762437e+14 3.765459e+14
 [664] 3.774659e+14 3.636115e+14 3.674012e+14
 [667] 3.674012e+14 3.683491e+14 3.686591e+14
 [670] 3.722269e+14 3.722269e+14 3.731593e+14
 [673] 3.734643e+14 3.759067e+14 3.768281e+14
 [676] 3.771296e+14 3.768281e+14 3.771296e+14
 [679] 3.780475e+14 3.737613e+14 3.737613e+14
 [682] 3.746883e+14 3.749916e+14 3.774187e+14
 [685] 3.783347e+14 3.786344e+14 3.783347e+14
 [688] 3.786344e+14 3.795469e+14 3.820569e+14
 [691] 3.829573e+14 3.832520e+14 3.829573e+14
 [694] 3.832520e+14 3.841490e+14 3.864938e+14
 [697] 3.867850e+14 3.876710e+14 3.876710e+14
 [700] 3.673129e+14 3.720301e+14 3.756334e+14
 [703] 3.756334e+14 3.765363e+14 3.768318e+14
 [706] 3.735267e+14 3.771075e+14 3.771075e+14
 [709] 3.780050e+14 3.782987e+14 3.816372e+14
 [712] 3.816372e+14 3.825192e+14 3.828079e+14
 [715] 3.851081e+14 3.859791e+14 3.862643e+14
 [718] 3.859791e+14 3.862643e+14 3.871318e+14
 [721] 3.741010e+14 3.776728e+14 3.776728e+14
 [724] 3.785682e+14 3.788612e+14 3.821898e+14
 [727] 3.821898e+14 3.830696e+14 3.833576e+14
 [730] 3.856518e+14 3.865206e+14 3.868051e+14
 [733] 3.865206e+14 3.868051e+14 3.876705e+14
 [736] 3.836165e+14 3.836165e+14 3.844909e+14
 [739] 3.847771e+14 3.870559e+14 3.879194e+14
 [742] 3.882021e+14 3.879194e+14 3.882021e+14
 [745] 3.890620e+14 3.913854e+14 3.922333e+14
 [748] 3.925110e+14 3.922333e+14 3.925110e+14
 [751] 3.933554e+14 3.955520e+14 3.958261e+14
 [754] 3.966596e+14 3.966596e+14 3.756406e+14
 [757] 3.791874e+14 3.791874e+14 3.800767e+14
 [760] 3.803678e+14 3.836689e+14 3.836689e+14
 [763] 3.845427e+14 3.848288e+14 3.871059e+14
 [766] 3.879687e+14 3.882512e+14 3.879687e+14
 [769] 3.882512e+14 3.891105e+14 3.850832e+14
 [772] 3.850832e+14 3.859516e+14 3.862359e+14
 [775] 3.884977e+14 3.893551e+14 3.896358e+14
 [778] 3.893551e+14 3.896358e+14 3.904897e+14
 [781] 3.927916e+14 3.936335e+14 3.939092e+14
 [784] 3.936335e+14 3.939092e+14 3.947476e+14
 [787] 3.969272e+14 3.971993e+14 3.980267e+14
 [790] 3.980267e+14 3.856247e+14 3.856247e+14
 [793] 3.864909e+14 3.867745e+14 3.890302e+14
 [796] 3.898855e+14 3.901655e+14 3.898855e+14
 [799] 3.901655e+14 3.910173e+14 3.933115e+14
 [802] 3.941512e+14 3.944262e+14 3.941512e+14
 [805] 3.944262e+14 3.952624e+14 3.974359e+14
 [808] 3.977074e+14 3.985326e+14 3.985326e+14
 [811] 3.946559e+14 3.954901e+14 3.957634e+14
 [814] 3.954901e+14 3.957634e+14 3.965942e+14
 [817] 3.987523e+14 3.990221e+14 3.998419e+14
 [820] 3.998419e+14 4.028306e+14 4.030952e+14
 [823] 4.038995e+14 4.038995e+14 4.070374e+14
 [826] 3.535134e+14 3.551549e+14 3.601641e+14
 [829] 3.639734e+14 3.639734e+14 3.649260e+14
 [832] 3.652376e+14 3.557869e+14 3.607834e+14
 [835] 3.645837e+14 3.645837e+14 3.655342e+14
 [838] 3.658451e+14 3.623775e+14 3.661553e+14
 [841] 3.661553e+14 3.671004e+14 3.674095e+14
 [844] 3.709643e+14 3.709643e+14 3.718938e+14
 [847] 3.721979e+14 3.746323e+14 3.755509e+14
 [850] 3.758514e+14 3.755509e+14 3.758514e+14
 [853] 3.767665e+14 3.574878e+14 3.624489e+14
 [856] 3.662242e+14 3.662242e+14 3.671686e+14
 [859] 3.674776e+14 3.640306e+14 3.677834e+14
 [862] 3.677834e+14 3.687224e+14 3.690296e+14
 [865] 3.725569e+14 3.725569e+14 3.734804e+14
 [868] 3.737826e+14 3.761999e+14 3.771124e+14
 [871] 3.774110e+14 3.771124e+14 3.774110e+14
 [874] 3.783200e+14 3.646388e+14 3.683826e+14
 [877] 3.683826e+14 3.693195e+14 3.696260e+14
 [880] 3.731434e+14 3.731434e+14 3.740648e+14
 [883] 3.743662e+14 3.767775e+14 3.776878e+14
 [886] 3.779857e+14 3.776878e+14 3.779857e+14
 [889] 3.788926e+14 3.746552e+14 3.746552e+14
 [892] 3.755711e+14 3.758708e+14 3.782668e+14
 [895] 3.791717e+14 3.794678e+14 3.791717e+14
 [898] 3.794678e+14 3.803693e+14 3.828400e+14
 [901] 3.837294e+14 3.840205e+14 3.837294e+14
 [904] 3.840205e+14 3.849064e+14 3.872201e+14
 [907] 3.875077e+14 3.883826e+14 3.883826e+14
 [910] 3.682172e+14 3.728695e+14 3.764270e+14
 [913] 3.764270e+14 3.773189e+14 3.776108e+14
 [916] 3.743434e+14 3.778784e+14 3.778784e+14
 [919] 3.787649e+14 3.790550e+14 3.823432e+14
 [922] 3.823432e+14 3.832141e+14 3.834992e+14
 [925] 3.857683e+14 3.866283e+14 3.869098e+14
 [928] 3.866283e+14 3.869098e+14 3.877663e+14
 [931] 3.749087e+14 3.784347e+14 3.784347e+14
 [934] 3.793190e+14 3.796085e+14 3.828868e+14
 [937] 3.828868e+14 3.837555e+14 3.840400e+14
 [940] 3.863029e+14 3.871608e+14 3.874416e+14
 [943] 3.871608e+14 3.874416e+14 3.882960e+14
 [946] 3.842908e+14 3.842908e+14 3.851541e+14
 [949] 3.854368e+14 3.876844e+14 3.885368e+14
 [952] 3.888160e+14 3.885368e+14 3.888160e+14
 [955] 3.896649e+14 3.919490e+14 3.927858e+14
 [958] 3.930599e+14 3.927858e+14 3.930599e+14
 [961] 3.938933e+14 3.960587e+14 3.963292e+14
 [964] 3.971516e+14 3.971516e+14 3.764231e+14
 [967] 3.799241e+14 3.799241e+14 3.808023e+14
 [970] 3.810898e+14 3.843407e+14 3.843407e+14
 [973] 3.852034e+14 3.854859e+14 3.877318e+14
 [976] 3.885836e+14 3.888625e+14 3.885836e+14
 [979] 3.888625e+14 3.897108e+14 3.857323e+14
 [982] 3.857323e+14 3.865896e+14 3.868703e+14
 [985] 3.891009e+14 3.899473e+14 3.902244e+14
 [988] 3.899473e+14 3.902244e+14 3.910673e+14
 [991] 3.933300e+14 3.941608e+14 3.944329e+14
 [994] 3.941608e+14 3.944329e+14 3.952603e+14
 [997] 3.974086e+14 3.976772e+14 3.984936e+14
[1000] 3.984936e+14
 [ reached getOption("max.print") -- omitted 2003 entries ]

#factor de expansion #####-

BASE.3<-data.frame(data.3,med.3,var.3)
View(BASE.3)

-

mean(Ingresos)

[1] 15723694

var(Ingresos)

[1] 2.986202e+14

mean(BASE.3$med.3)

[1] 15723694

mean(BASE.3$var.3)

[1] 2.986202e+14

##Nivel de confianza de la muestra

NC<-0.95

#El valor de Z para el nivel de confianza

z<--qnorm((1-NC)/2, mean = 0, sd = 1)
z

[1] 1.959964

est.var<-z*sqrt((1-n/N)*var(Ingresos)/n)
LimInf<-med.3-est.var
LimSup<-med.3+est.var
mu<-data.frame(med.3,LimInf,LimSup)
View(mu)
mean(Ingresos)

[1] 15723694

library(gplots)

Attaching package: ‘gplots’

The following object is masked from ‘package:stats’:

    lowess

library(gtools)
plotCI(x=c(mu$med.3),uiw=c(est.var),col="blue",main="intervalos de confianza",xlab="Muestras",ylab="Medidas Muestrales")
abline(h=mean(Ingresos),col="red")

#Historgrama de las medias

hist(c(mu$med.3))

boxplot(mu$med.3, main="Boxplot de las medias muestrales", ylab="medias muestrales", xlab="Boxplot")

Se estaría presentando un sesgo en este caso

Se ve la línea considerablemente por encima de la mitad

Ind<-ifelse(LimInf<mean(Ingresos)&LimSup>mean(Ingresos), 1, 0)
table(Ind)

Ind
   0    1 
  22 2981 

Según el resultado, 2981 muestras cumplen con la condición

de que la media está en ellas

22 delas muestras no cumplen con esa condición

Confiabilidad

sum(Ind*px)

[1] 0.992674

El diseño está arrojando un 99,26% de confianza.

#Recordemos que n=6

Final<-data.frame(Support(N,n,Ingresos),med.3,var.3,LimInf,LimSup,px,Ind)
View(Final)

Final

Recordamos que la media poblacional es:

mean(Ingresos)

[1] 15723694

Las varianzas exponen valor considerable

Las probabilidades de considerar las medias son pequeñas

Algunas muestras toman el límite inferior en valores negativos

Pero hay muestras como la No. 1204 que seaproximan al valor de la media poblacional