Function for mode estimation of a continuous variable
calcmode.RdDerives the mode, estimating the value of a continuous variable.
Author
Adapted from https://stat.ethz.ch/pipermail/r-help/2008-August/172323.html.
Examples
vect1 = rchisq(1000,df=3)
calcmode(vect1)
#> [1] 1.366907
vect1
#> [1] 6.09600139 6.17186310 1.54735755 0.70251198 1.95431420 1.16512180
#> [7] 0.82257676 1.11444373 1.75096955 0.97505484 1.11104929 5.22510259
#> [13] 2.71942474 2.31400673 2.14462963 1.94413852 2.89043852 3.01692606
#> [19] 0.04030297 2.32768250 0.27863478 0.63715413 3.09578677 2.53333530
#> [25] 4.51588964 0.63579982 10.12371667 1.41813489 1.59028402 4.36695920
#> [31] 3.79152419 1.94261493 1.91497014 2.20372850 3.30528402 1.13506729
#> [37] 6.11922742 3.16150423 1.59414397 0.42719662 5.84890890 4.78026364
#> [43] 10.11981868 2.34105438 0.80854590 3.65716278 0.19014205 2.50934257
#> [49] 2.46999514 1.63379921 7.91694283 4.60678820 6.06646112 3.83395198
#> [55] 2.10764883 0.48493837 2.90739799 1.71049030 1.68505737 3.77848788
#> [61] 6.21388095 0.48304361 6.70480185 1.72762086 3.70562136 0.52852322
#> [67] 7.47074438 0.17315739 1.13786325 2.40135772 1.78796246 1.52459549
#> [73] 6.84700517 1.80368746 1.42130692 2.99834570 0.55000340 0.78809191
#> [79] 1.14570871 1.85847903 3.56976241 2.49985228 8.76585567 0.32874698
#> [85] 3.37593345 1.75637224 1.16417391 7.55251525 4.84046571 1.29696717
#> [91] 2.03659937 5.46458761 3.72128324 1.36323183 1.76177587 1.43706368
#> [97] 1.00582573 9.71088684 2.13172928 3.29119395 4.40645067 0.69644340
#> [103] 4.99582532 7.70037345 3.39809021 1.99772780 3.35035465 4.73538653
#> [109] 1.10587039 2.42471149 2.25526362 4.49361791 1.44845741 4.57639174
#> [115] 1.51508082 3.26341564 2.24717564 3.16580377 4.58149210 3.73099162
#> [121] 1.78142191 2.89673547 0.39502906 0.83548428 1.00539015 2.86610834
#> [127] 0.96766246 4.57337115 5.90141743 4.85611380 2.81050495 1.54174192
#> [133] 3.29434955 5.73057968 5.77483046 8.51276234 1.13522309 1.77419653
#> [139] 1.45574254 0.54192770 0.79186478 1.20859457 4.86198131 3.50757729
#> [145] 0.45633212 2.37990545 0.68512203 2.17410671 1.79288635 0.10510273
#> [151] 2.06709898 2.73894562 1.22270435 1.35986532 0.83369914 1.14621296
#> [157] 0.41267703 0.84226565 4.13323334 5.86251319 2.40497189 0.89610658
#> [163] 0.51525025 2.73015646 5.26385195 4.80942635 3.67528114 4.77562289
#> [169] 0.95773166 1.83281910 2.74197606 7.79222559 2.87883949 0.08723352
#> [175] 1.35856609 0.84201580 5.45198659 3.29386705 2.75825297 2.45819555
#> [181] 0.41110580 0.19268189 1.85083366 5.20588428 10.26767869 0.15212013
#> [187] 2.85479326 5.75571025 4.70432311 2.74183527 1.79706103 0.60768821
#> [193] 4.67198063 1.52866019 1.86780437 7.78071600 6.74957561 0.85190143
#> [199] 0.37713769 0.47000732 5.38118905 1.23398599 3.47339801 0.29084811
#> [205] 2.13055328 3.49121771 2.18808016 4.70686514 2.59141246 2.67483161
#> [211] 4.80333382 4.78707611 8.76486891 0.28277622 2.81788240 1.78780388
#> [217] 1.61060662 1.52986136 2.46297898 5.33628196 3.12175031 1.52947654
#> [223] 2.83607295 3.83050633 2.14571503 4.57318635 1.55125634 3.60333268
#> [229] 6.79333233 1.76136075 4.46917492 2.59901110 4.30836143 0.16327690
#> [235] 1.34587675 1.72486745 0.38189937 6.01623366 2.03269003 4.25540426
#> [241] 4.00199194 0.71732105 0.15058381 5.29077425 4.68265731 6.70381081
#> [247] 4.26465824 8.20350862 4.51453938 9.39296868 3.40740602 2.28110064
#> [253] 5.05759761 6.16899407 5.60257765 1.41287815 0.81707522 1.53301901
#> [259] 2.40393501 0.67154682 4.83400004 1.91391408 4.45161137 6.35834171
#> [265] 2.14964349 0.19276003 1.76752154 0.89374681 3.33814616 0.47329205
#> [271] 0.29657827 9.63694440 6.30702922 4.33242009 0.50200389 2.65134024
#> [277] 0.49766402 2.79406291 1.97015337 2.36938402 8.86247352 10.71324141
#> [283] 6.84954763 2.93897492 3.36378319 1.71366961 3.10490735 6.88868258
#> [289] 5.20838818 4.61635615 4.88469094 1.69388612 2.07882130 2.82185548
#> [295] 1.44042788 0.80525800 1.51083096 6.78560723 0.79414960 1.05432603
#> [301] 1.04459869 0.64587062 1.78544756 7.82639515 2.14729548 9.79585771
#> [307] 3.32865362 4.32877019 1.53245765 1.86259511 1.24086491 1.48782080
#> [313] 1.18630041 2.71843794 1.05466929 0.89374181 3.21507500 1.06832169
#> [319] 0.11674407 2.33200361 4.03468510 0.31152066 1.22653861 7.41076788
#> [325] 18.53327569 0.33646567 0.61507217 1.27002832 0.64742418 0.72255899
#> [331] 1.52197162 4.30428182 0.52473482 6.21632235 2.59175189 1.89718312
#> [337] 6.47531406 7.54468192 0.02458963 2.06167374 0.70889137 1.00710274
#> [343] 1.22476570 6.06656285 5.62884830 6.87469888 5.81048195 1.64266812
#> [349] 6.45807941 3.02851444 2.21981540 3.66997020 1.60358541 2.94272927
#> [355] 1.39646855 0.21575536 1.67367618 7.91781611 2.24151430 0.21287284
#> [361] 0.21307721 0.25598910 3.02546727 9.24158160 5.93053908 0.44673679
#> [367] 3.15961892 0.42173610 2.03600823 4.60234385 1.57025438 0.69343393
#> [373] 2.97885923 2.59573111 1.43077528 4.01688613 1.12801881 0.67481305
#> [379] 0.43565150 3.09947217 0.36786121 3.93984189 2.88318338 4.18709921
#> [385] 6.19666445 5.52195472 1.26594492 2.21842192 12.79274135 9.89889349
#> [391] 2.92296342 0.53922333 3.38291926 0.78360154 1.08996531 0.78129471
#> [397] 4.35450326 2.71522661 0.84268741 1.46534500 1.61416540 6.49497404
#> [403] 2.04899661 2.03083237 7.91832529 3.96464609 1.22327536 2.38707063
#> [409] 2.34223114 4.74036171 1.91431867 2.76554890 2.11584534 3.35745784
#> [415] 2.70600154 2.76481938 1.77992935 0.96099490 6.15379587 4.07284306
#> [421] 3.66754231 4.91102892 7.43817525 5.09866027 3.48587319 1.62510578
#> [427] 1.15444555 4.24276957 2.99608774 2.17280126 5.37577822 1.88339672
#> [433] 1.32338835 0.37664978 7.34144639 3.85410150 3.36302727 3.43875386
#> [439] 2.09223300 7.30895266 3.21351085 4.27676837 4.40977549 0.26660710
#> [445] 1.65725274 4.83032673 8.72786838 4.47166165 1.72728531 2.55075766
#> [451] 5.69809060 0.65311035 2.71308402 1.21243021 4.48288950 0.88119922
#> [457] 0.71628526 5.89261997 0.36467796 1.61901104 3.46356011 0.85773670
#> [463] 2.00348149 4.66244997 1.48970164 1.10055460 3.17818477 1.72200117
#> [469] 1.97277906 4.14261978 3.84731158 1.72506496 0.86953794 0.50458018
#> [475] 6.94835334 1.25022489 0.47734829 4.95072101 1.45318360 1.74231059
#> [481] 3.36415470 9.83336424 2.91961143 0.52855567 0.70395068 1.06874251
#> [487] 0.78987304 9.19394316 1.60800415 1.61274121 0.95472330 2.69099246
#> [493] 4.18162026 0.24117569 3.07075108 0.29974539 4.09729210 1.09282441
#> [499] 0.69951177 1.10923564 5.37454694 8.35738260 2.64948073 8.03513092
#> [505] 1.40600540 2.36500719 2.52605983 2.68729291 1.22569696 1.71778608
#> [511] 2.61333285 2.08958891 3.73312137 1.84565344 5.59817897 0.92742575
#> [517] 0.72927588 1.05024681 1.49557295 1.87208703 3.24822257 0.86067467
#> [523] 8.97682738 1.16441900 5.15089841 0.84843022 4.24407518 3.42766784
#> [529] 3.66179795 1.67115803 4.09213979 3.05532815 4.37781076 1.05697790
#> [535] 1.63721237 3.27319186 5.02878771 4.51765449 1.58045126 0.40893554
#> [541] 1.58437828 2.00632910 0.63257895 4.55350963 7.32832920 6.65939115
#> [547] 1.53132886 8.14515415 3.58482530 3.54913755 4.48942963 4.78711573
#> [553] 7.40410297 0.95041575 6.40633940 0.89346769 4.20540905 2.76442906
#> [559] 3.08537327 1.01855330 4.96353798 7.77415739 5.73551524 1.35159882
#> [565] 0.78086637 3.63277099 10.07206022 3.02650480 3.01144936 6.30665791
#> [571] 7.87458885 2.66499830 1.48477004 1.99101324 0.53108347 2.40027317
#> [577] 2.23023553 0.84066272 2.23164477 0.52891234 2.94711889 1.26487505
#> [583] 0.51258236 3.77901653 1.18171501 3.88001130 1.84724920 4.66073784
#> [589] 0.61924565 1.77483569 1.46283900 0.35000626 1.51117288 4.00613306
#> [595] 4.06720525 1.08460383 2.67249532 1.73644274 1.05377159 5.37495870
#> [601] 2.67404442 8.44188011 2.75269482 3.54013802 0.55068633 4.03850670
#> [607] 1.85459785 3.83857335 1.32984179 1.25781724 2.10499598 4.29814007
#> [613] 4.04210783 0.20389593 0.93922376 3.87572637 1.76794319 3.29089273
#> [619] 2.98976570 3.41303806 1.72043110 2.54989143 3.52882514 2.45725962
#> [625] 1.81286413 0.76052127 7.98741398 2.50648204 2.75110537 10.69561551
#> [631] 0.27333842 6.43448036 8.22369516 2.43161962 0.65076850 2.52771484
#> [637] 4.87144114 4.34119029 3.09660537 2.42838889 1.50396241 1.09488562
#> [643] 4.46333950 0.03728566 1.71496431 1.67616021 2.64274602 4.21335569
#> [649] 7.46365518 6.18333933 5.64113731 4.61596281 0.29918677 0.62254456
#> [655] 0.32590511 4.39452171 0.87494952 2.50730063 4.04166030 1.58401461
#> [661] 1.70299266 3.06493018 4.81158683 2.29963836 1.66563961 1.62953781
#> [667] 0.13852085 1.26681037 2.25991906 0.81416962 2.45714432 7.66249410
#> [673] 1.48227726 7.81682812 8.56484736 2.17944657 4.04878506 1.99306926
#> [679] 2.83697424 8.02710807 5.27358549 1.44716037 2.17287123 3.16699932
#> [685] 0.39955453 3.00712192 1.31223047 1.55986923 2.26996639 1.78735544
#> [691] 0.58007749 0.83543060 1.32051328 5.38012877 4.79808497 1.59404328
#> [697] 1.40992440 6.74658542 2.49336171 10.13376515 2.98112510 1.94817480
#> [703] 4.77013713 1.86129832 1.87382353 3.85992066 5.31838681 1.94128178
#> [709] 1.83267691 2.57035507 8.28580695 2.32792911 3.36805932 1.89041239
#> [715] 0.91036900 0.87385515 0.48594529 6.97418447 1.66361330 5.63091397
#> [721] 3.39599088 2.97934215 4.75682175 0.93171163 3.01050145 3.60755813
#> [727] 2.42865394 1.19204268 3.11431934 0.24785111 3.74576428 6.87445586
#> [733] 0.92427353 2.14717492 0.13962754 2.17439762 0.50192875 3.41472647
#> [739] 1.46582653 6.08146637 6.42911607 4.82602263 0.33715186 2.08265938
#> [745] 1.82832427 2.15445495 3.26398364 2.02547828 1.04696418 3.22535560
#> [751] 4.49972159 2.44552177 6.96161948 1.88624286 1.79320302 3.41812962
#> [757] 7.95885216 3.64474087 0.94390205 7.81823694 6.35974229 0.91877284
#> [763] 9.60591168 1.65655673 10.62005574 0.62751497 3.46414750 2.24493802
#> [769] 5.74605957 1.48770790 1.58967195 2.80529749 0.96169805 3.48902606
#> [775] 1.93183862 7.99341791 1.56955526 0.29267755 2.30077289 2.70636164
#> [781] 8.80017889 2.71520423 2.22560328 1.37504472 0.68742678 0.38374330
#> [787] 0.16414466 1.37850828 3.04079427 4.07138855 5.55571651 4.61463895
#> [793] 3.85835633 1.28753017 4.54718730 3.85109197 8.20986582 0.34711643
#> [799] 1.16578207 3.72921511 4.00906147 0.71529816 0.80846440 0.98416248
#> [805] 3.85161611 0.64668375 4.83540004 1.06352868 6.02460898 2.90257573
#> [811] 0.71170465 3.13232339 3.66660137 0.98312857 1.22155672 2.99821559
#> [817] 3.49185837 2.46237268 4.62072280 4.65894645 0.89653651 0.53186119
#> [823] 1.43281503 6.24716934 1.63820639 0.76868066 0.90870636 4.51844752
#> [829] 1.74764941 2.20973497 9.38831390 1.18960870 0.16624401 2.17969562
#> [835] 0.98612625 6.49703024 6.75898251 1.40769676 3.07271416 4.91302668
#> [841] 5.09761957 2.50242088 0.67562463 6.30162774 1.72413743 1.59249551
#> [847] 0.60339322 1.00310585 2.55098620 2.03325447 0.86975430 8.14075097
#> [853] 6.47666742 2.28164712 5.94055492 1.31657663 0.82702225 10.64720528
#> [859] 0.87356384 1.27360958 7.22299577 1.33888239 0.46101626 1.05586036
#> [865] 0.57213589 5.34654805 4.50640163 0.44772563 1.43882895 2.78940297
#> [871] 1.34634939 1.87993106 2.67058917 2.05271231 0.58086003 9.22766027
#> [877] 1.15711073 1.79220575 0.50784261 1.38182835 3.87949304 1.68367236
#> [883] 3.42208904 3.24981646 1.48731514 1.85802248 4.26250706 4.74258223
#> [889] 0.36908902 0.41386665 5.75290981 15.88355528 4.60554869 4.14563482
#> [895] 0.40345327 0.34267150 9.16361479 2.38370145 0.34228328 2.53232008
#> [901] 7.61950251 3.14661639 1.70900241 2.75877293 0.86389480 0.43838937
#> [907] 1.55095240 2.44675063 2.15310711 2.01412623 1.66279004 1.26875435
#> [913] 1.29929112 0.46912553 3.56881958 0.87937276 4.12749984 1.82478326
#> [919] 0.87103870 4.65791415 0.64910049 2.60525595 5.35403504 10.09580926
#> [925] 3.02129761 7.03439358 4.44748203 6.17882887 2.31992782 2.15014216
#> [931] 3.63904014 5.92689704 5.46363269 4.04257732 0.50783478 6.12238139
#> [937] 0.31226438 3.31117042 3.19389744 1.03509419 0.75776843 3.38777222
#> [943] 1.17077975 1.40295552 4.65813171 5.89373146 0.88847148 0.74605694
#> [949] 0.56743607 2.47989696 9.30681322 7.72450117 0.86180226 1.33078074
#> [955] 2.82823233 0.55206176 5.58703413 6.08782930 1.34915372 3.53842089
#> [961] 4.13880618 1.14322856 3.31412805 1.40814159 2.25340661 1.96963811
#> [967] 3.50303455 2.57809260 1.55388136 5.84884560 9.97662774 1.34798766
#> [973] 5.43171406 1.35933320 2.50265504 1.64333419 2.93443074 0.81918658
#> [979] 1.97504937 0.62949493 1.88912812 3.85807478 0.25412444 2.60010603
#> [985] 1.84949058 0.92439857 3.68563633 1.24743530 2.29175999 3.58899278
#> [991] 4.32203566 2.73350393 4.47722957 0.44006726 0.20491528 1.90424279
#> [997] 2.42669058 3.43243227 4.78156439 1.63954599