Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationFri, 12 Mar 2010 12:04:36 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Mar/12/t1268420717a1zxhz91mpenub4.htm/, Retrieved Wed, 18 May 2022 03:01:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74362, Retrieved Wed, 18 May 2022 03:01:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact135
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [Opgave 5 oefening 2] [2010-03-12 19:04:36] [d38ec69e6463020b6f9ce85941b20918] [Current]
Feedback Forum

Post a new message
Dataseries X:
562674
599000
668516
597798
579889
668233
499232
215187
555813
586935
546136
571111
634712
639283
712182
621557
621000
675989
501322
220286
560727
602530
626379
605508
646783
658442
712906
687714
723916
707183
629000
237530
613296
730444
734925
651812
676155
748183
810681
729363
701108
790079
594621
230716
617189
691389
701067
705777
747636
773392
813788
766713
728875
749197
680954
241424
680234
708326
694238
772071
795337
788421
889968
797393
751000
821255
691605
290655
727147
868355
812390
799556
843038
847000
941952
804309
840307
871528
656330
370508
742000
847152
731675
898527
778139
856075
938833
813023
783417
828110
657311
310032
780000
860000
780000
807993
895217
856075
893268
875000
835088
934595
832500
300000
791443
900000
781729
880000
875024
992968
976804
968697
871675
1006852
832037
345587
849528
913871
868746
993733




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74362&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74362&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74362&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean713749.215888.567401316944.9221872540152
Geometric Mean684331.46912366
Harmonic Mean641271.210635585
Quadratic Mean734492.384449639
Winsorized Mean ( 1 / 40 )713682.36666666715860.826523234244.9965432520939
Winsorized Mean ( 2 / 40 )713843.4515813.899446372545.1402547752856
Winsorized Mean ( 3 / 40 )713609.715711.928370971545.4183396939632
Winsorized Mean ( 4 / 40 )713469.26666666715641.395451349945.6141697130413
Winsorized Mean ( 5 / 40 )714406.18333333314989.690120885347.659836699222
Winsorized Mean ( 6 / 40 )714717.48333333314859.565380127148.0981418399479
Winsorized Mean ( 7 / 40 )715055.46666666714691.964300117648.6698342073255
Winsorized Mean ( 8 / 40 )716044.213984.331864183551.2033186107319
Winsorized Mean ( 9 / 40 )716872.9513452.597390893153.2888132432549
Winsorized Mean ( 10 / 40 )727477.211349.451000466464.0980079098189
Winsorized Mean ( 11 / 40 )727365.36666666711278.942997700164.488788250369
Winsorized Mean ( 12 / 40 )731651.86666666710544.008313425069.3902968319078
Winsorized Mean ( 13 / 40 )732342.70833333310345.413052248070.7891221582687
Winsorized Mean ( 14 / 40 )731753.07510117.510508675572.3254079521378
Winsorized Mean ( 15 / 40 )731374.4510007.172930736573.0850216202043
Winsorized Mean ( 16 / 40 )732496.1833333339849.6417523256874.3677995354884
Winsorized Mean ( 17 / 40 )733268.6916666679623.627891494476.1946222291853
Winsorized Mean ( 18 / 40 )734303.5416666679481.141376909777.448854781871
Winsorized Mean ( 19 / 40 )735080.0083333339270.6995329997679.2906733431237
Winsorized Mean ( 20 / 40 )735544.3416666679195.7623516150379.9873151938822
Winsorized Mean ( 21 / 40 )734292.5666666678994.6127120403981.6369298128564
Winsorized Mean ( 22 / 40 )734220.158829.162848036683.158523932229
Winsorized Mean ( 23 / 40 )734790.9333333338757.9883288601283.8995104517305
Winsorized Mean ( 24 / 40 )735039.1333333338415.6025105726787.3424252642506
Winsorized Mean ( 25 / 40 )735355.1758261.1135461402389.0140500905684
Winsorized Mean ( 26 / 40 )736147.9583333338158.7658214798290.2278573059733
Winsorized Mean ( 27 / 40 )735381.8333333338042.8498181108291.43299327527
Winsorized Mean ( 28 / 40 )735869.7333333337838.3841999170293.8802838142487
Winsorized Mean ( 29 / 40 )735241.8833333337624.0942706241996.4366201722134
Winsorized Mean ( 30 / 40 )736022.8833333337387.06814487799.6366716670635
Winsorized Mean ( 31 / 40 )737084.1166666677238.82386814345101.823739614721
Winsorized Mean ( 32 / 40 )738036.9166666676898.90911442739106.978785257983
Winsorized Mean ( 33 / 40 )737534.7666666676541.02903181607112.755158718795
Winsorized Mean ( 34 / 40 )736699.2166666676175.71299638764119.289743078667
Winsorized Mean ( 35 / 40 )736762.2166666676121.08049662019120.364732513071
Winsorized Mean ( 36 / 40 )736911.6166666676064.25658296937121.517222529169
Winsorized Mean ( 37 / 40 )739403.5666666675685.87405126542130.042199317114
Winsorized Mean ( 38 / 40 )738641.9833333335587.20403388351132.202435932866
Winsorized Mean ( 39 / 40 )739873.4083333335209.19349422668142.032237649327
Winsorized Mean ( 40 / 40 )738344.4083333335040.26211558158146.489287938181
Trimmed Mean ( 1 / 40 )715490.38135593215390.295854886346.4897093663583
Trimmed Mean ( 2 / 40 )717360.7413793114863.329612890548.2637982244010
Trimmed Mean ( 3 / 40 )719211.9473684214299.023831041850.2979752930462
Trimmed Mean ( 4 / 40 )721212.7513704.98664336752.6241118482998
Trimmed Mean ( 5 / 40 )723324.60909090913053.826879336155.4109239977674
Trimmed Mean ( 6 / 40 )725306.48148148112507.178967700757.9912131548257
Trimmed Mean ( 7 / 40 )727304.40566037711917.646816209161.0275180055828
Trimmed Mean ( 8 / 40 )729323.46153846211281.282478618464.6489849820496
Trimmed Mean ( 9 / 40 )731276.29411764710709.572196599068.2824935201312
Trimmed Mean ( 10 / 40 )733196.7410163.297877032772.141616714482
Trimmed Mean ( 11 / 40 )733897.0918367359946.603243444173.7836901577887
Trimmed Mean ( 12 / 40 )734639.3333333339712.46225135175.6388353768011
Trimmed Mean ( 13 / 40 )734957.148936179563.8176195288576.847675078561
Trimmed Mean ( 14 / 40 )735219.4673913049423.6297227789578.018713491482
Trimmed Mean ( 15 / 40 )735549.69295.0991146147579.1330561331498
Trimmed Mean ( 16 / 40 )735929.1590909099162.2947445991280.321489278078
Trimmed Mean ( 17 / 40 )736228.5465116289030.9525294682881.5228010676937
Trimmed Mean ( 18 / 40 )736477.2738095248909.218515337482.6646324300682
Trimmed Mean ( 19 / 40 )7366548786.6117399035583.838232734759
Trimmed Mean ( 20 / 40 )736778.26258670.9328992304484.9710487974587
Trimmed Mean ( 21 / 40 )736873.179487188545.0076256992386.234350133407
Trimmed Mean ( 22 / 40 )737067.2105263168422.7026756806487.5095843825157
Trimmed Mean ( 23 / 40 )737277.0675675688299.5404535340788.8334808047864
Trimmed Mean ( 24 / 40 )737457.2222222228162.8596018783490.3429996581746
Trimmed Mean ( 25 / 40 )737629.9428571438045.5000450114891.682299264233
Trimmed Mean ( 26 / 40 )737790.5147058827925.0132985404193.0964386951584
Trimmed Mean ( 27 / 40 )737905.3787878797793.6047692146394.6808826773799
Trimmed Mean ( 28 / 40 )738080.6257650.3449810526296.4767767764698
Trimmed Mean ( 29 / 40 )738233.4516129037505.5958214835998.3577412335242
Trimmed Mean ( 30 / 40 )738439.7666666677359.60429671066100.336884551892
Trimmed Mean ( 31 / 40 )738606.4482758627215.70211867425102.360994970170
Trimmed Mean ( 32 / 40 )738711.6785714297060.41509794321104.627230598188
Trimmed Mean ( 33 / 40 )738758.5370370376921.07044742099106.740502448190
Trimmed Mean ( 34 / 40 )738844.1153846156802.7457928222108.609690540575
Trimmed Mean ( 35 / 40 )738995.526709.76205686817110.137366084921
Trimmed Mean ( 36 / 40 )739155.0416666676595.84182021817112.063791372459
Trimmed Mean ( 37 / 40 )739317.6086956526455.66080591614114.522375156099
Trimmed Mean ( 38 / 40 )739311.2727272736343.02420413919116.555013654974
Trimmed Mean ( 39 / 40 )739361.5952380956209.34574339718119.072383112876
Trimmed Mean ( 40 / 40 )739322.2256105.85443006446121.084155128178
Median733300
Midrange611019.5
Midmean - Weighted Average at Xnp736645.672131148
Midmean - Weighted Average at X(n+1)p738439.766666667
Midmean - Empirical Distribution Function736645.672131148
Midmean - Empirical Distribution Function - Averaging738439.766666667
Midmean - Empirical Distribution Function - Interpolation738439.766666667
Midmean - Closest Observation736645.672131148
Midmean - True Basic - Statistics Graphics Toolkit738439.766666667
Midmean - MS Excel (old versions)738233.451612903
Number of observations120

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 713749.2 & 15888.5674013169 & 44.9221872540152 \tabularnewline
Geometric Mean & 684331.46912366 &  &  \tabularnewline
Harmonic Mean & 641271.210635585 &  &  \tabularnewline
Quadratic Mean & 734492.384449639 &  &  \tabularnewline
Winsorized Mean ( 1 / 40 ) & 713682.366666667 & 15860.8265232342 & 44.9965432520939 \tabularnewline
Winsorized Mean ( 2 / 40 ) & 713843.45 & 15813.8994463725 & 45.1402547752856 \tabularnewline
Winsorized Mean ( 3 / 40 ) & 713609.7 & 15711.9283709715 & 45.4183396939632 \tabularnewline
Winsorized Mean ( 4 / 40 ) & 713469.266666667 & 15641.3954513499 & 45.6141697130413 \tabularnewline
Winsorized Mean ( 5 / 40 ) & 714406.183333333 & 14989.6901208853 & 47.659836699222 \tabularnewline
Winsorized Mean ( 6 / 40 ) & 714717.483333333 & 14859.5653801271 & 48.0981418399479 \tabularnewline
Winsorized Mean ( 7 / 40 ) & 715055.466666667 & 14691.9643001176 & 48.6698342073255 \tabularnewline
Winsorized Mean ( 8 / 40 ) & 716044.2 & 13984.3318641835 & 51.2033186107319 \tabularnewline
Winsorized Mean ( 9 / 40 ) & 716872.95 & 13452.5973908931 & 53.2888132432549 \tabularnewline
Winsorized Mean ( 10 / 40 ) & 727477.2 & 11349.4510004664 & 64.0980079098189 \tabularnewline
Winsorized Mean ( 11 / 40 ) & 727365.366666667 & 11278.9429977001 & 64.488788250369 \tabularnewline
Winsorized Mean ( 12 / 40 ) & 731651.866666667 & 10544.0083134250 & 69.3902968319078 \tabularnewline
Winsorized Mean ( 13 / 40 ) & 732342.708333333 & 10345.4130522480 & 70.7891221582687 \tabularnewline
Winsorized Mean ( 14 / 40 ) & 731753.075 & 10117.5105086755 & 72.3254079521378 \tabularnewline
Winsorized Mean ( 15 / 40 ) & 731374.45 & 10007.1729307365 & 73.0850216202043 \tabularnewline
Winsorized Mean ( 16 / 40 ) & 732496.183333333 & 9849.64175232568 & 74.3677995354884 \tabularnewline
Winsorized Mean ( 17 / 40 ) & 733268.691666667 & 9623.6278914944 & 76.1946222291853 \tabularnewline
Winsorized Mean ( 18 / 40 ) & 734303.541666667 & 9481.1413769097 & 77.448854781871 \tabularnewline
Winsorized Mean ( 19 / 40 ) & 735080.008333333 & 9270.69953299976 & 79.2906733431237 \tabularnewline
Winsorized Mean ( 20 / 40 ) & 735544.341666667 & 9195.76235161503 & 79.9873151938822 \tabularnewline
Winsorized Mean ( 21 / 40 ) & 734292.566666667 & 8994.61271204039 & 81.6369298128564 \tabularnewline
Winsorized Mean ( 22 / 40 ) & 734220.15 & 8829.1628480366 & 83.158523932229 \tabularnewline
Winsorized Mean ( 23 / 40 ) & 734790.933333333 & 8757.98832886012 & 83.8995104517305 \tabularnewline
Winsorized Mean ( 24 / 40 ) & 735039.133333333 & 8415.60251057267 & 87.3424252642506 \tabularnewline
Winsorized Mean ( 25 / 40 ) & 735355.175 & 8261.11354614023 & 89.0140500905684 \tabularnewline
Winsorized Mean ( 26 / 40 ) & 736147.958333333 & 8158.76582147982 & 90.2278573059733 \tabularnewline
Winsorized Mean ( 27 / 40 ) & 735381.833333333 & 8042.84981811082 & 91.43299327527 \tabularnewline
Winsorized Mean ( 28 / 40 ) & 735869.733333333 & 7838.38419991702 & 93.8802838142487 \tabularnewline
Winsorized Mean ( 29 / 40 ) & 735241.883333333 & 7624.09427062419 & 96.4366201722134 \tabularnewline
Winsorized Mean ( 30 / 40 ) & 736022.883333333 & 7387.068144877 & 99.6366716670635 \tabularnewline
Winsorized Mean ( 31 / 40 ) & 737084.116666667 & 7238.82386814345 & 101.823739614721 \tabularnewline
Winsorized Mean ( 32 / 40 ) & 738036.916666667 & 6898.90911442739 & 106.978785257983 \tabularnewline
Winsorized Mean ( 33 / 40 ) & 737534.766666667 & 6541.02903181607 & 112.755158718795 \tabularnewline
Winsorized Mean ( 34 / 40 ) & 736699.216666667 & 6175.71299638764 & 119.289743078667 \tabularnewline
Winsorized Mean ( 35 / 40 ) & 736762.216666667 & 6121.08049662019 & 120.364732513071 \tabularnewline
Winsorized Mean ( 36 / 40 ) & 736911.616666667 & 6064.25658296937 & 121.517222529169 \tabularnewline
Winsorized Mean ( 37 / 40 ) & 739403.566666667 & 5685.87405126542 & 130.042199317114 \tabularnewline
Winsorized Mean ( 38 / 40 ) & 738641.983333333 & 5587.20403388351 & 132.202435932866 \tabularnewline
Winsorized Mean ( 39 / 40 ) & 739873.408333333 & 5209.19349422668 & 142.032237649327 \tabularnewline
Winsorized Mean ( 40 / 40 ) & 738344.408333333 & 5040.26211558158 & 146.489287938181 \tabularnewline
Trimmed Mean ( 1 / 40 ) & 715490.381355932 & 15390.2958548863 & 46.4897093663583 \tabularnewline
Trimmed Mean ( 2 / 40 ) & 717360.74137931 & 14863.3296128905 & 48.2637982244010 \tabularnewline
Trimmed Mean ( 3 / 40 ) & 719211.94736842 & 14299.0238310418 & 50.2979752930462 \tabularnewline
Trimmed Mean ( 4 / 40 ) & 721212.75 & 13704.986643367 & 52.6241118482998 \tabularnewline
Trimmed Mean ( 5 / 40 ) & 723324.609090909 & 13053.8268793361 & 55.4109239977674 \tabularnewline
Trimmed Mean ( 6 / 40 ) & 725306.481481481 & 12507.1789677007 & 57.9912131548257 \tabularnewline
Trimmed Mean ( 7 / 40 ) & 727304.405660377 & 11917.6468162091 & 61.0275180055828 \tabularnewline
Trimmed Mean ( 8 / 40 ) & 729323.461538462 & 11281.2824786184 & 64.6489849820496 \tabularnewline
Trimmed Mean ( 9 / 40 ) & 731276.294117647 & 10709.5721965990 & 68.2824935201312 \tabularnewline
Trimmed Mean ( 10 / 40 ) & 733196.74 & 10163.2978770327 & 72.141616714482 \tabularnewline
Trimmed Mean ( 11 / 40 ) & 733897.091836735 & 9946.6032434441 & 73.7836901577887 \tabularnewline
Trimmed Mean ( 12 / 40 ) & 734639.333333333 & 9712.462251351 & 75.6388353768011 \tabularnewline
Trimmed Mean ( 13 / 40 ) & 734957.14893617 & 9563.81761952885 & 76.847675078561 \tabularnewline
Trimmed Mean ( 14 / 40 ) & 735219.467391304 & 9423.62972277895 & 78.018713491482 \tabularnewline
Trimmed Mean ( 15 / 40 ) & 735549.6 & 9295.09911461475 & 79.1330561331498 \tabularnewline
Trimmed Mean ( 16 / 40 ) & 735929.159090909 & 9162.29474459912 & 80.321489278078 \tabularnewline
Trimmed Mean ( 17 / 40 ) & 736228.546511628 & 9030.95252946828 & 81.5228010676937 \tabularnewline
Trimmed Mean ( 18 / 40 ) & 736477.273809524 & 8909.2185153374 & 82.6646324300682 \tabularnewline
Trimmed Mean ( 19 / 40 ) & 736654 & 8786.61173990355 & 83.838232734759 \tabularnewline
Trimmed Mean ( 20 / 40 ) & 736778.2625 & 8670.93289923044 & 84.9710487974587 \tabularnewline
Trimmed Mean ( 21 / 40 ) & 736873.17948718 & 8545.00762569923 & 86.234350133407 \tabularnewline
Trimmed Mean ( 22 / 40 ) & 737067.210526316 & 8422.70267568064 & 87.5095843825157 \tabularnewline
Trimmed Mean ( 23 / 40 ) & 737277.067567568 & 8299.54045353407 & 88.8334808047864 \tabularnewline
Trimmed Mean ( 24 / 40 ) & 737457.222222222 & 8162.85960187834 & 90.3429996581746 \tabularnewline
Trimmed Mean ( 25 / 40 ) & 737629.942857143 & 8045.50004501148 & 91.682299264233 \tabularnewline
Trimmed Mean ( 26 / 40 ) & 737790.514705882 & 7925.01329854041 & 93.0964386951584 \tabularnewline
Trimmed Mean ( 27 / 40 ) & 737905.378787879 & 7793.60476921463 & 94.6808826773799 \tabularnewline
Trimmed Mean ( 28 / 40 ) & 738080.625 & 7650.34498105262 & 96.4767767764698 \tabularnewline
Trimmed Mean ( 29 / 40 ) & 738233.451612903 & 7505.59582148359 & 98.3577412335242 \tabularnewline
Trimmed Mean ( 30 / 40 ) & 738439.766666667 & 7359.60429671066 & 100.336884551892 \tabularnewline
Trimmed Mean ( 31 / 40 ) & 738606.448275862 & 7215.70211867425 & 102.360994970170 \tabularnewline
Trimmed Mean ( 32 / 40 ) & 738711.678571429 & 7060.41509794321 & 104.627230598188 \tabularnewline
Trimmed Mean ( 33 / 40 ) & 738758.537037037 & 6921.07044742099 & 106.740502448190 \tabularnewline
Trimmed Mean ( 34 / 40 ) & 738844.115384615 & 6802.7457928222 & 108.609690540575 \tabularnewline
Trimmed Mean ( 35 / 40 ) & 738995.52 & 6709.76205686817 & 110.137366084921 \tabularnewline
Trimmed Mean ( 36 / 40 ) & 739155.041666667 & 6595.84182021817 & 112.063791372459 \tabularnewline
Trimmed Mean ( 37 / 40 ) & 739317.608695652 & 6455.66080591614 & 114.522375156099 \tabularnewline
Trimmed Mean ( 38 / 40 ) & 739311.272727273 & 6343.02420413919 & 116.555013654974 \tabularnewline
Trimmed Mean ( 39 / 40 ) & 739361.595238095 & 6209.34574339718 & 119.072383112876 \tabularnewline
Trimmed Mean ( 40 / 40 ) & 739322.225 & 6105.85443006446 & 121.084155128178 \tabularnewline
Median & 733300 &  &  \tabularnewline
Midrange & 611019.5 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 736645.672131148 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 738439.766666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 736645.672131148 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 738439.766666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 738439.766666667 &  &  \tabularnewline
Midmean - Closest Observation & 736645.672131148 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 738439.766666667 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 738233.451612903 &  &  \tabularnewline
Number of observations & 120 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74362&T=1

[TABLE]
[ROW][C]Central Tendency - Ungrouped Data[/C][/ROW]
[ROW][C]Measure[/C][C]Value[/C][C]S.E.[/C][C]Value/S.E.[/C][/ROW]
[ROW][C]Arithmetic Mean[/C][C]713749.2[/C][C]15888.5674013169[/C][C]44.9221872540152[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]684331.46912366[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]641271.210635585[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]734492.384449639[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 40 )[/C][C]713682.366666667[/C][C]15860.8265232342[/C][C]44.9965432520939[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 40 )[/C][C]713843.45[/C][C]15813.8994463725[/C][C]45.1402547752856[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 40 )[/C][C]713609.7[/C][C]15711.9283709715[/C][C]45.4183396939632[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 40 )[/C][C]713469.266666667[/C][C]15641.3954513499[/C][C]45.6141697130413[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 40 )[/C][C]714406.183333333[/C][C]14989.6901208853[/C][C]47.659836699222[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 40 )[/C][C]714717.483333333[/C][C]14859.5653801271[/C][C]48.0981418399479[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 40 )[/C][C]715055.466666667[/C][C]14691.9643001176[/C][C]48.6698342073255[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 40 )[/C][C]716044.2[/C][C]13984.3318641835[/C][C]51.2033186107319[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 40 )[/C][C]716872.95[/C][C]13452.5973908931[/C][C]53.2888132432549[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 40 )[/C][C]727477.2[/C][C]11349.4510004664[/C][C]64.0980079098189[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 40 )[/C][C]727365.366666667[/C][C]11278.9429977001[/C][C]64.488788250369[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 40 )[/C][C]731651.866666667[/C][C]10544.0083134250[/C][C]69.3902968319078[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 40 )[/C][C]732342.708333333[/C][C]10345.4130522480[/C][C]70.7891221582687[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 40 )[/C][C]731753.075[/C][C]10117.5105086755[/C][C]72.3254079521378[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 40 )[/C][C]731374.45[/C][C]10007.1729307365[/C][C]73.0850216202043[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 40 )[/C][C]732496.183333333[/C][C]9849.64175232568[/C][C]74.3677995354884[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 40 )[/C][C]733268.691666667[/C][C]9623.6278914944[/C][C]76.1946222291853[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 40 )[/C][C]734303.541666667[/C][C]9481.1413769097[/C][C]77.448854781871[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 40 )[/C][C]735080.008333333[/C][C]9270.69953299976[/C][C]79.2906733431237[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 40 )[/C][C]735544.341666667[/C][C]9195.76235161503[/C][C]79.9873151938822[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 40 )[/C][C]734292.566666667[/C][C]8994.61271204039[/C][C]81.6369298128564[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 40 )[/C][C]734220.15[/C][C]8829.1628480366[/C][C]83.158523932229[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 40 )[/C][C]734790.933333333[/C][C]8757.98832886012[/C][C]83.8995104517305[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 40 )[/C][C]735039.133333333[/C][C]8415.60251057267[/C][C]87.3424252642506[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 40 )[/C][C]735355.175[/C][C]8261.11354614023[/C][C]89.0140500905684[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 40 )[/C][C]736147.958333333[/C][C]8158.76582147982[/C][C]90.2278573059733[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 40 )[/C][C]735381.833333333[/C][C]8042.84981811082[/C][C]91.43299327527[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 40 )[/C][C]735869.733333333[/C][C]7838.38419991702[/C][C]93.8802838142487[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 40 )[/C][C]735241.883333333[/C][C]7624.09427062419[/C][C]96.4366201722134[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 40 )[/C][C]736022.883333333[/C][C]7387.068144877[/C][C]99.6366716670635[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 40 )[/C][C]737084.116666667[/C][C]7238.82386814345[/C][C]101.823739614721[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 40 )[/C][C]738036.916666667[/C][C]6898.90911442739[/C][C]106.978785257983[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 40 )[/C][C]737534.766666667[/C][C]6541.02903181607[/C][C]112.755158718795[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 40 )[/C][C]736699.216666667[/C][C]6175.71299638764[/C][C]119.289743078667[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 40 )[/C][C]736762.216666667[/C][C]6121.08049662019[/C][C]120.364732513071[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 40 )[/C][C]736911.616666667[/C][C]6064.25658296937[/C][C]121.517222529169[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 40 )[/C][C]739403.566666667[/C][C]5685.87405126542[/C][C]130.042199317114[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 40 )[/C][C]738641.983333333[/C][C]5587.20403388351[/C][C]132.202435932866[/C][/ROW]
[ROW][C]Winsorized Mean ( 39 / 40 )[/C][C]739873.408333333[/C][C]5209.19349422668[/C][C]142.032237649327[/C][/ROW]
[ROW][C]Winsorized Mean ( 40 / 40 )[/C][C]738344.408333333[/C][C]5040.26211558158[/C][C]146.489287938181[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 40 )[/C][C]715490.381355932[/C][C]15390.2958548863[/C][C]46.4897093663583[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 40 )[/C][C]717360.74137931[/C][C]14863.3296128905[/C][C]48.2637982244010[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 40 )[/C][C]719211.94736842[/C][C]14299.0238310418[/C][C]50.2979752930462[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 40 )[/C][C]721212.75[/C][C]13704.986643367[/C][C]52.6241118482998[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 40 )[/C][C]723324.609090909[/C][C]13053.8268793361[/C][C]55.4109239977674[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 40 )[/C][C]725306.481481481[/C][C]12507.1789677007[/C][C]57.9912131548257[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 40 )[/C][C]727304.405660377[/C][C]11917.6468162091[/C][C]61.0275180055828[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 40 )[/C][C]729323.461538462[/C][C]11281.2824786184[/C][C]64.6489849820496[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 40 )[/C][C]731276.294117647[/C][C]10709.5721965990[/C][C]68.2824935201312[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 40 )[/C][C]733196.74[/C][C]10163.2978770327[/C][C]72.141616714482[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 40 )[/C][C]733897.091836735[/C][C]9946.6032434441[/C][C]73.7836901577887[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 40 )[/C][C]734639.333333333[/C][C]9712.462251351[/C][C]75.6388353768011[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 40 )[/C][C]734957.14893617[/C][C]9563.81761952885[/C][C]76.847675078561[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 40 )[/C][C]735219.467391304[/C][C]9423.62972277895[/C][C]78.018713491482[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 40 )[/C][C]735549.6[/C][C]9295.09911461475[/C][C]79.1330561331498[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 40 )[/C][C]735929.159090909[/C][C]9162.29474459912[/C][C]80.321489278078[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 40 )[/C][C]736228.546511628[/C][C]9030.95252946828[/C][C]81.5228010676937[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 40 )[/C][C]736477.273809524[/C][C]8909.2185153374[/C][C]82.6646324300682[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 40 )[/C][C]736654[/C][C]8786.61173990355[/C][C]83.838232734759[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 40 )[/C][C]736778.2625[/C][C]8670.93289923044[/C][C]84.9710487974587[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 40 )[/C][C]736873.17948718[/C][C]8545.00762569923[/C][C]86.234350133407[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 40 )[/C][C]737067.210526316[/C][C]8422.70267568064[/C][C]87.5095843825157[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 40 )[/C][C]737277.067567568[/C][C]8299.54045353407[/C][C]88.8334808047864[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 40 )[/C][C]737457.222222222[/C][C]8162.85960187834[/C][C]90.3429996581746[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 40 )[/C][C]737629.942857143[/C][C]8045.50004501148[/C][C]91.682299264233[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 40 )[/C][C]737790.514705882[/C][C]7925.01329854041[/C][C]93.0964386951584[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 40 )[/C][C]737905.378787879[/C][C]7793.60476921463[/C][C]94.6808826773799[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 40 )[/C][C]738080.625[/C][C]7650.34498105262[/C][C]96.4767767764698[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 40 )[/C][C]738233.451612903[/C][C]7505.59582148359[/C][C]98.3577412335242[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 40 )[/C][C]738439.766666667[/C][C]7359.60429671066[/C][C]100.336884551892[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 40 )[/C][C]738606.448275862[/C][C]7215.70211867425[/C][C]102.360994970170[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 40 )[/C][C]738711.678571429[/C][C]7060.41509794321[/C][C]104.627230598188[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 40 )[/C][C]738758.537037037[/C][C]6921.07044742099[/C][C]106.740502448190[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 40 )[/C][C]738844.115384615[/C][C]6802.7457928222[/C][C]108.609690540575[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 40 )[/C][C]738995.52[/C][C]6709.76205686817[/C][C]110.137366084921[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 40 )[/C][C]739155.041666667[/C][C]6595.84182021817[/C][C]112.063791372459[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 40 )[/C][C]739317.608695652[/C][C]6455.66080591614[/C][C]114.522375156099[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 40 )[/C][C]739311.272727273[/C][C]6343.02420413919[/C][C]116.555013654974[/C][/ROW]
[ROW][C]Trimmed Mean ( 39 / 40 )[/C][C]739361.595238095[/C][C]6209.34574339718[/C][C]119.072383112876[/C][/ROW]
[ROW][C]Trimmed Mean ( 40 / 40 )[/C][C]739322.225[/C][C]6105.85443006446[/C][C]121.084155128178[/C][/ROW]
[ROW][C]Median[/C][C]733300[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]611019.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]736645.672131148[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]738439.766666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]736645.672131148[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]738439.766666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]738439.766666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]736645.672131148[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]738439.766666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]738233.451612903[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74362&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74362&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean713749.215888.567401316944.9221872540152
Geometric Mean684331.46912366
Harmonic Mean641271.210635585
Quadratic Mean734492.384449639
Winsorized Mean ( 1 / 40 )713682.36666666715860.826523234244.9965432520939
Winsorized Mean ( 2 / 40 )713843.4515813.899446372545.1402547752856
Winsorized Mean ( 3 / 40 )713609.715711.928370971545.4183396939632
Winsorized Mean ( 4 / 40 )713469.26666666715641.395451349945.6141697130413
Winsorized Mean ( 5 / 40 )714406.18333333314989.690120885347.659836699222
Winsorized Mean ( 6 / 40 )714717.48333333314859.565380127148.0981418399479
Winsorized Mean ( 7 / 40 )715055.46666666714691.964300117648.6698342073255
Winsorized Mean ( 8 / 40 )716044.213984.331864183551.2033186107319
Winsorized Mean ( 9 / 40 )716872.9513452.597390893153.2888132432549
Winsorized Mean ( 10 / 40 )727477.211349.451000466464.0980079098189
Winsorized Mean ( 11 / 40 )727365.36666666711278.942997700164.488788250369
Winsorized Mean ( 12 / 40 )731651.86666666710544.008313425069.3902968319078
Winsorized Mean ( 13 / 40 )732342.70833333310345.413052248070.7891221582687
Winsorized Mean ( 14 / 40 )731753.07510117.510508675572.3254079521378
Winsorized Mean ( 15 / 40 )731374.4510007.172930736573.0850216202043
Winsorized Mean ( 16 / 40 )732496.1833333339849.6417523256874.3677995354884
Winsorized Mean ( 17 / 40 )733268.6916666679623.627891494476.1946222291853
Winsorized Mean ( 18 / 40 )734303.5416666679481.141376909777.448854781871
Winsorized Mean ( 19 / 40 )735080.0083333339270.6995329997679.2906733431237
Winsorized Mean ( 20 / 40 )735544.3416666679195.7623516150379.9873151938822
Winsorized Mean ( 21 / 40 )734292.5666666678994.6127120403981.6369298128564
Winsorized Mean ( 22 / 40 )734220.158829.162848036683.158523932229
Winsorized Mean ( 23 / 40 )734790.9333333338757.9883288601283.8995104517305
Winsorized Mean ( 24 / 40 )735039.1333333338415.6025105726787.3424252642506
Winsorized Mean ( 25 / 40 )735355.1758261.1135461402389.0140500905684
Winsorized Mean ( 26 / 40 )736147.9583333338158.7658214798290.2278573059733
Winsorized Mean ( 27 / 40 )735381.8333333338042.8498181108291.43299327527
Winsorized Mean ( 28 / 40 )735869.7333333337838.3841999170293.8802838142487
Winsorized Mean ( 29 / 40 )735241.8833333337624.0942706241996.4366201722134
Winsorized Mean ( 30 / 40 )736022.8833333337387.06814487799.6366716670635
Winsorized Mean ( 31 / 40 )737084.1166666677238.82386814345101.823739614721
Winsorized Mean ( 32 / 40 )738036.9166666676898.90911442739106.978785257983
Winsorized Mean ( 33 / 40 )737534.7666666676541.02903181607112.755158718795
Winsorized Mean ( 34 / 40 )736699.2166666676175.71299638764119.289743078667
Winsorized Mean ( 35 / 40 )736762.2166666676121.08049662019120.364732513071
Winsorized Mean ( 36 / 40 )736911.6166666676064.25658296937121.517222529169
Winsorized Mean ( 37 / 40 )739403.5666666675685.87405126542130.042199317114
Winsorized Mean ( 38 / 40 )738641.9833333335587.20403388351132.202435932866
Winsorized Mean ( 39 / 40 )739873.4083333335209.19349422668142.032237649327
Winsorized Mean ( 40 / 40 )738344.4083333335040.26211558158146.489287938181
Trimmed Mean ( 1 / 40 )715490.38135593215390.295854886346.4897093663583
Trimmed Mean ( 2 / 40 )717360.7413793114863.329612890548.2637982244010
Trimmed Mean ( 3 / 40 )719211.9473684214299.023831041850.2979752930462
Trimmed Mean ( 4 / 40 )721212.7513704.98664336752.6241118482998
Trimmed Mean ( 5 / 40 )723324.60909090913053.826879336155.4109239977674
Trimmed Mean ( 6 / 40 )725306.48148148112507.178967700757.9912131548257
Trimmed Mean ( 7 / 40 )727304.40566037711917.646816209161.0275180055828
Trimmed Mean ( 8 / 40 )729323.46153846211281.282478618464.6489849820496
Trimmed Mean ( 9 / 40 )731276.29411764710709.572196599068.2824935201312
Trimmed Mean ( 10 / 40 )733196.7410163.297877032772.141616714482
Trimmed Mean ( 11 / 40 )733897.0918367359946.603243444173.7836901577887
Trimmed Mean ( 12 / 40 )734639.3333333339712.46225135175.6388353768011
Trimmed Mean ( 13 / 40 )734957.148936179563.8176195288576.847675078561
Trimmed Mean ( 14 / 40 )735219.4673913049423.6297227789578.018713491482
Trimmed Mean ( 15 / 40 )735549.69295.0991146147579.1330561331498
Trimmed Mean ( 16 / 40 )735929.1590909099162.2947445991280.321489278078
Trimmed Mean ( 17 / 40 )736228.5465116289030.9525294682881.5228010676937
Trimmed Mean ( 18 / 40 )736477.2738095248909.218515337482.6646324300682
Trimmed Mean ( 19 / 40 )7366548786.6117399035583.838232734759
Trimmed Mean ( 20 / 40 )736778.26258670.9328992304484.9710487974587
Trimmed Mean ( 21 / 40 )736873.179487188545.0076256992386.234350133407
Trimmed Mean ( 22 / 40 )737067.2105263168422.7026756806487.5095843825157
Trimmed Mean ( 23 / 40 )737277.0675675688299.5404535340788.8334808047864
Trimmed Mean ( 24 / 40 )737457.2222222228162.8596018783490.3429996581746
Trimmed Mean ( 25 / 40 )737629.9428571438045.5000450114891.682299264233
Trimmed Mean ( 26 / 40 )737790.5147058827925.0132985404193.0964386951584
Trimmed Mean ( 27 / 40 )737905.3787878797793.6047692146394.6808826773799
Trimmed Mean ( 28 / 40 )738080.6257650.3449810526296.4767767764698
Trimmed Mean ( 29 / 40 )738233.4516129037505.5958214835998.3577412335242
Trimmed Mean ( 30 / 40 )738439.7666666677359.60429671066100.336884551892
Trimmed Mean ( 31 / 40 )738606.4482758627215.70211867425102.360994970170
Trimmed Mean ( 32 / 40 )738711.6785714297060.41509794321104.627230598188
Trimmed Mean ( 33 / 40 )738758.5370370376921.07044742099106.740502448190
Trimmed Mean ( 34 / 40 )738844.1153846156802.7457928222108.609690540575
Trimmed Mean ( 35 / 40 )738995.526709.76205686817110.137366084921
Trimmed Mean ( 36 / 40 )739155.0416666676595.84182021817112.063791372459
Trimmed Mean ( 37 / 40 )739317.6086956526455.66080591614114.522375156099
Trimmed Mean ( 38 / 40 )739311.2727272736343.02420413919116.555013654974
Trimmed Mean ( 39 / 40 )739361.5952380956209.34574339718119.072383112876
Trimmed Mean ( 40 / 40 )739322.2256105.85443006446121.084155128178
Median733300
Midrange611019.5
Midmean - Weighted Average at Xnp736645.672131148
Midmean - Weighted Average at X(n+1)p738439.766666667
Midmean - Empirical Distribution Function736645.672131148
Midmean - Empirical Distribution Function - Averaging738439.766666667
Midmean - Empirical Distribution Function - Interpolation738439.766666667
Midmean - Closest Observation736645.672131148
Midmean - True Basic - Statistics Graphics Toolkit738439.766666667
Midmean - MS Excel (old versions)738233.451612903
Number of observations120



Parameters (Session):
Parameters (R input):
R code (references can be found in the software module):
geomean <- function(x) {
return(exp(mean(log(x))))
}
harmean <- function(x) {
return(1/mean(1/x))
}
quamean <- function(x) {
return(sqrt(mean(x*x)))
}
winmean <- function(x) {
x <-sort(x[!is.na(x)])
n<-length(x)
denom <- 3
nodenom <- n/denom
if (nodenom>40) denom <- n/40
sqrtn = sqrt(n)
roundnodenom = floor(nodenom)
win <- array(NA,dim=c(roundnodenom,2))
for (j in 1:roundnodenom) {
win[j,1] <- (j*x[j+1]+sum(x[(j+1):(n-j)])+j*x[n-j])/n
win[j,2] <- sd(c(rep(x[j+1],j),x[(j+1):(n-j)],rep(x[n-j],j)))/sqrtn
}
return(win)
}
trimean <- function(x) {
x <-sort(x[!is.na(x)])
n<-length(x)
denom <- 3
nodenom <- n/denom
if (nodenom>40) denom <- n/40
sqrtn = sqrt(n)
roundnodenom = floor(nodenom)
tri <- array(NA,dim=c(roundnodenom,2))
for (j in 1:roundnodenom) {
tri[j,1] <- mean(x,trim=j/n)
tri[j,2] <- sd(x[(j+1):(n-j)]) / sqrt(n-j*2)
}
return(tri)
}
midrange <- function(x) {
return((max(x)+min(x))/2)
}
q1 <- function(data,n,p,i,f) {
np <- n*p;
i <<- floor(np)
f <<- np - i
qvalue <- (1-f)*data[i] + f*data[i+1]
}
q2 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
qvalue <- (1-f)*data[i] + f*data[i+1]
}
q3 <- function(data,n,p,i,f) {
np <- n*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
qvalue <- data[i+1]
}
}
q4 <- function(data,n,p,i,f) {
np <- n*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- (data[i]+data[i+1])/2
} else {
qvalue <- data[i+1]
}
}
q5 <- function(data,n,p,i,f) {
np <- (n-1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i+1]
} else {
qvalue <- data[i+1] + f*(data[i+2]-data[i+1])
}
}
q6 <- function(data,n,p,i,f) {
np <- n*p+0.5
i <<- floor(np)
f <<- np - i
qvalue <- data[i]
}
q7 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
qvalue <- f*data[i] + (1-f)*data[i+1]
}
}
q8 <- function(data,n,p,i,f) {
np <- (n+1)*p
i <<- floor(np)
f <<- np - i
if (f==0) {
qvalue <- data[i]
} else {
if (f == 0.5) {
qvalue <- (data[i]+data[i+1])/2
} else {
if (f < 0.5) {
qvalue <- data[i]
} else {
qvalue <- data[i+1]
}
}
}
}
midmean <- function(x,def) {
x <-sort(x[!is.na(x)])
n<-length(x)
if (def==1) {
qvalue1 <- q1(x,n,0.25,i,f)
qvalue3 <- q1(x,n,0.75,i,f)
}
if (def==2) {
qvalue1 <- q2(x,n,0.25,i,f)
qvalue3 <- q2(x,n,0.75,i,f)
}
if (def==3) {
qvalue1 <- q3(x,n,0.25,i,f)
qvalue3 <- q3(x,n,0.75,i,f)
}
if (def==4) {
qvalue1 <- q4(x,n,0.25,i,f)
qvalue3 <- q4(x,n,0.75,i,f)
}
if (def==5) {
qvalue1 <- q5(x,n,0.25,i,f)
qvalue3 <- q5(x,n,0.75,i,f)
}
if (def==6) {
qvalue1 <- q6(x,n,0.25,i,f)
qvalue3 <- q6(x,n,0.75,i,f)
}
if (def==7) {
qvalue1 <- q7(x,n,0.25,i,f)
qvalue3 <- q7(x,n,0.75,i,f)
}
if (def==8) {
qvalue1 <- q8(x,n,0.25,i,f)
qvalue3 <- q8(x,n,0.75,i,f)
}
midm <- 0
myn <- 0
roundno4 <- round(n/4)
round3no4 <- round(3*n/4)
for (i in 1:n) {
if ((x[i]>=qvalue1) & (x[i]<=qvalue3)){
midm = midm + x[i]
myn = myn + 1
}
}
midm = midm / myn
return(midm)
}
(arm <- mean(x))
sqrtn <- sqrt(length(x))
(armse <- sd(x) / sqrtn)
(armose <- arm / armse)
(geo <- geomean(x))
(har <- harmean(x))
(qua <- quamean(x))
(win <- winmean(x))
(tri <- trimean(x))
(midr <- midrange(x))
midm <- array(NA,dim=8)
for (j in 1:8) midm[j] <- midmean(x,j)
midm
bitmap(file='test1.png')
lb <- win[,1] - 2*win[,2]
ub <- win[,1] + 2*win[,2]
if ((ylimmin == '') | (ylimmax == '')) plot(win[,1],type='b',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(win[,1],type='l',main=main, xlab='j', pch=19, ylab='Winsorized Mean(j/n)', ylim=c(ylimmin,ylimmax))
lines(ub,lty=3)
lines(lb,lty=3)
grid()
dev.off()
bitmap(file='test2.png')
lb <- tri[,1] - 2*tri[,2]
ub <- tri[,1] + 2*tri[,2]
if ((ylimmin == '') | (ylimmax == '')) plot(tri[,1],type='b',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(min(lb),max(ub))) else plot(tri[,1],type='l',main=main, xlab='j', pch=19, ylab='Trimmed Mean(j/n)', ylim=c(ylimmin,ylimmax))
lines(ub,lty=3)
lines(lb,lty=3)
grid()
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Central Tendency - Ungrouped Data',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Measure',header=TRUE)
a<-table.element(a,'Value',header=TRUE)
a<-table.element(a,'S.E.',header=TRUE)
a<-table.element(a,'Value/S.E.',header=TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('arithmetic_mean.htm', 'Arithmetic Mean', 'click to view the definition of the Arithmetic Mean'),header=TRUE)
a<-table.element(a,arm)
a<-table.element(a,hyperlink('arithmetic_mean_standard_error.htm', armse, 'click to view the definition of the Standard Error of the Arithmetic Mean'))
a<-table.element(a,armose)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('geometric_mean.htm', 'Geometric Mean', 'click to view the definition of the Geometric Mean'),header=TRUE)
a<-table.element(a,geo)
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('harmonic_mean.htm', 'Harmonic Mean', 'click to view the definition of the Harmonic Mean'),header=TRUE)
a<-table.element(a,har)
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('quadratic_mean.htm', 'Quadratic Mean', 'click to view the definition of the Quadratic Mean'),header=TRUE)
a<-table.element(a,qua)
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
for (j in 1:length(win[,1])) {
a<-table.row.start(a)
mylabel <- paste('Winsorized Mean (',j)
mylabel <- paste(mylabel,'/')
mylabel <- paste(mylabel,length(win[,1]))
mylabel <- paste(mylabel,')')
a<-table.element(a,hyperlink('winsorized_mean.htm', mylabel, 'click to view the definition of the Winsorized Mean'),header=TRUE)
a<-table.element(a,win[j,1])
a<-table.element(a,win[j,2])
a<-table.element(a,win[j,1]/win[j,2])
a<-table.row.end(a)
}
for (j in 1:length(tri[,1])) {
a<-table.row.start(a)
mylabel <- paste('Trimmed Mean (',j)
mylabel <- paste(mylabel,'/')
mylabel <- paste(mylabel,length(tri[,1]))
mylabel <- paste(mylabel,')')
a<-table.element(a,hyperlink('arithmetic_mean.htm', mylabel, 'click to view the definition of the Trimmed Mean'),header=TRUE)
a<-table.element(a,tri[j,1])
a<-table.element(a,tri[j,2])
a<-table.element(a,tri[j,1]/tri[j,2])
a<-table.row.end(a)
}
a<-table.row.start(a)
a<-table.element(a,hyperlink('median_1.htm', 'Median', 'click to view the definition of the Median'),header=TRUE)
a<-table.element(a,median(x))
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,hyperlink('midrange.htm', 'Midrange', 'click to view the definition of the Midrange'),header=TRUE)
a<-table.element(a,midr)
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_1.htm','Weighted Average at Xnp',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[1])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_2.htm','Weighted Average at X(n+1)p',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[2])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_3.htm','Empirical Distribution Function',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[3])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_4.htm','Empirical Distribution Function - Averaging',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[4])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_5.htm','Empirical Distribution Function - Interpolation',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[5])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_6.htm','Closest Observation',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[6])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_7.htm','True Basic - Statistics Graphics Toolkit',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[7])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
mymid <- hyperlink('midmean.htm', 'Midmean', 'click to view the definition of the Midmean')
mylabel <- paste(mymid,hyperlink('method_8.htm','MS Excel (old versions)',''),sep=' - ')
a<-table.element(a,mylabel,header=TRUE)
a<-table.element(a,midm[8])
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Number of observations',header=TRUE)
a<-table.element(a,length(x))
a<-table.element(a,'')
a<-table.element(a,'')
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')