Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationWed, 17 Mar 2010 13:02:24 -0600
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/17/t12688525848f48ihxahkrrned.htm/, Retrieved Fri, 21 Jan 2022 11:29:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74539, Retrieved Fri, 21 Jan 2022 11:29:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact118
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [] [2010-03-17 19:02:24] [917a4afc20628654d1f716afbd7d9cc1] [Current]
Feedback Forum

Post a new message
Dataseries X:
2953
2635
2404
2413
2136
1565
1451
2037
2477
2785
2994
2681
3098
2708
2517
2445
2087
1801
1216
2173
2286
3121
3458
3511
3524
2767
2744
2603
2527
1846
1066
2327
3066
3048
3806
4042
3583
3438
2957
2885
2744
1837
1447
2504
3248
3098
4318
3561
3316
3379
2717
2354
2445
1542
1606
2590
3588
3202
4704
4005
3810
3488
2781
2944
2817
1960
1937
2903
3357
3552
4581
3905
4581
4037
3345
3175
2808
2050
1719
3143
3756
4776
4540
4309
4563
3506
3665
3361
3094
2440
1633
2935
4159
4159
4894
4921
4577
4155
3851
3429
3370
2726




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74539&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]2 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=74539&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74539&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean3030.3725490196188.6151450791834.1970048834416
Geometric Mean2888.43095922629
Harmonic Mean2732.65189930145
Quadratic Mean3158.52415275385
Winsorized Mean ( 1 / 34 )3031.5784313725588.248346243378634.3528072810771
Winsorized Mean ( 2 / 34 )3033.7941176470686.905773909309534.909005249904
Winsorized Mean ( 3 / 34 )3031.7941176470686.471582406127535.0611615201831
Winsorized Mean ( 4 / 34 )3030.5392156862784.941031164565435.6781542928868
Winsorized Mean ( 5 / 34 )3031.6666666666784.746623317523735.77330338352
Winsorized Mean ( 6 / 34 )3033.843137254984.29512542417435.9907304483927
Winsorized Mean ( 7 / 34 )3034.7352941176583.812524711286636.2086132659953
Winsorized Mean ( 8 / 34 )3039.6764705882482.393177121297336.8923323118527
Winsorized Mean ( 9 / 34 )3027.3235294117677.87735600598438.8729623689221
Winsorized Mean ( 10 / 34 )3029.9705882352977.1873808340739.2547402890744
Winsorized Mean ( 11 / 34 )3014.7647058823574.478711492828840.4782070668963
Winsorized Mean ( 12 / 34 )3025.4705882352972.85474695401641.5274325246767
Winsorized Mean ( 13 / 34 )3027.8921568627572.345133005819641.8534327197819
Winsorized Mean ( 14 / 34 )3022.9509803921668.478721862934744.1443838049843
Winsorized Mean ( 15 / 34 )3024.1274509803968.098763557443144.4079641538493
Winsorized Mean ( 16 / 34 )3024.9117647058866.547116798634245.4551888981006
Winsorized Mean ( 17 / 34 )3016.4117647058863.032770368671547.8546595217572
Winsorized Mean ( 18 / 34 )3013.4117647058860.819545810375149.546765345818
Winsorized Mean ( 19 / 34 )3026.8235294117656.981765930569853.119159787007
Winsorized Mean ( 20 / 34 )3034.0784313725555.853362256702854.3222164035154
Winsorized Mean ( 21 / 34 )3029.343137254953.765923305122156.3431807924762
Winsorized Mean ( 22 / 34 )3020.549.863603028745860.5752456006582
Winsorized Mean ( 23 / 34 )3005.1666666666747.445801433242363.3389378171855
Winsorized Mean ( 24 / 34 )3010.3431372549046.524427184118464.7045717584356
Winsorized Mean ( 25 / 34 )3006.1764705882445.723072742821865.7474725615458
Winsorized Mean ( 26 / 34 )3003.8823529411845.448290785643166.0945065483098
Winsorized Mean ( 27 / 34 )3004.9411764705943.544055893268369.009216409148
Winsorized Mean ( 28 / 34 )3008.7843137254942.239967298764571.2307443905975
Winsorized Mean ( 29 / 34 )3011.0588235294141.636851666773672.3171590308363
Winsorized Mean ( 30 / 34 )3008.7058823529440.671195031225373.9763333740995
Winsorized Mean ( 31 / 34 )3018.7352941176537.398230316990580.7186668601855
Winsorized Mean ( 32 / 34 )3016.5392156862736.209730299321183.3074201533845
Winsorized Mean ( 33 / 34 )3023.9803921568634.713915187816187.1114760693492
Winsorized Mean ( 34 / 34 )3022.6470588235331.120676954116497.1266487319683
Trimmed Mean ( 1 / 34 )3031.1186.143321842031435.1868251094196
Trimmed Mean ( 2 / 34 )3030.6224489795983.765050825554536.180034741351
Trimmed Mean ( 3 / 34 )3028.937581.881098021872836.9919013444456
Trimmed Mean ( 4 / 34 )3027.9042553191579.928866323337237.8824871989342
Trimmed Mean ( 5 / 34 )3027.1739130434878.224810798960238.6983858717587
Trimmed Mean ( 6 / 34 )3026.1555555555676.336906694096939.6421034936901
Trimmed Mean ( 7 / 34 )3024.6704545454574.291063749119140.7137857759012
Trimmed Mean ( 8 / 34 )3022.9651162790772.05338013561241.9545219195759
Trimmed Mean ( 9 / 34 )3020.4285714285769.78060710850943.2846416301853
Trimmed Mean ( 10 / 34 )3019.475609756168.072594461462844.3566993978095
Trimmed Mean ( 11 / 34 )3018.137566.22381675990945.5748044686416
Trimmed Mean ( 12 / 34 )3018.5384615384664.570957008139146.7476184557397
Trimmed Mean ( 13 / 34 )3017.7631578947462.927197891958547.956420418974
Trimmed Mean ( 14 / 34 )3016.6891891891961.087860826406649.3827930521535
Trimmed Mean ( 15 / 34 )3016.0555555555659.58205008266850.6202044302082
Trimmed Mean ( 16 / 34 )3015.2714285714357.864108391376952.1095289013522
Trimmed Mean ( 17 / 34 )3014.3676470588256.084498618204553.7468947984923
Trimmed Mean ( 18 / 34 )3014.1818181818254.550521520674655.2548671242207
Trimmed Mean ( 19 / 34 )3014.2553.07544607622756.7917977678592
Trimmed Mean ( 20 / 34 )3013.1612903225851.918549649924358.0363147784305
Trimmed Mean ( 21 / 34 )3011.3833333333350.687132119735759.4111997936615
Trimmed Mean ( 22 / 34 )3009.8793103448349.523373019704260.7769448407173
Trimmed Mean ( 23 / 34 )300948.723517615533161.7566248755555
Trimmed Mean ( 24 / 34 )3009.3148148148148.099447296621262.5644364738097
Trimmed Mean ( 25 / 34 )3009.2307692307747.438796128465563.4339615423986
Trimmed Mean ( 26 / 34 )3009.4846.709508187327864.4297085709086
Trimmed Mean ( 27 / 34 )3009.937545.800507970583465.7184305015397
Trimmed Mean ( 28 / 34 )3010.3478260869644.958867055878166.9578221876784
Trimmed Mean ( 29 / 34 )3010.4772727272744.084827041769368.2882858965268
Trimmed Mean ( 30 / 34 )3010.4285714285743.027057673659669.9659408333538
Trimmed Mean ( 31 / 34 )3010.4285714285741.803936256511372.0130409001777
Trimmed Mean ( 32 / 34 )3009.8684210526340.875172900876873.635613196099
Trimmed Mean ( 33 / 34 )3009.2777777777839.843595233471975.527265050864
Trimmed Mean ( 34 / 34 )3007.9411764705938.740807458349477.6427073623711
Median2975.5
Midrange2993.5
Midmean - Weighted Average at Xnp2998.41176470588
Midmean - Weighted Average at X(n+1)p3009.23076923077
Midmean - Empirical Distribution Function3009.23076923077
Midmean - Empirical Distribution Function - Averaging3009.23076923077
Midmean - Empirical Distribution Function - Interpolation2998.41176470588
Midmean - Closest Observation3009.23076923077
Midmean - True Basic - Statistics Graphics Toolkit3009.23076923077
Midmean - MS Excel (old versions)3009.23076923077
Number of observations102

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 3030.37254901961 & 88.61514507918 & 34.1970048834416 \tabularnewline
Geometric Mean & 2888.43095922629 &  &  \tabularnewline
Harmonic Mean & 2732.65189930145 &  &  \tabularnewline
Quadratic Mean & 3158.52415275385 &  &  \tabularnewline
Winsorized Mean ( 1 / 34 ) & 3031.57843137255 & 88.2483462433786 & 34.3528072810771 \tabularnewline
Winsorized Mean ( 2 / 34 ) & 3033.79411764706 & 86.9057739093095 & 34.909005249904 \tabularnewline
Winsorized Mean ( 3 / 34 ) & 3031.79411764706 & 86.4715824061275 & 35.0611615201831 \tabularnewline
Winsorized Mean ( 4 / 34 ) & 3030.53921568627 & 84.9410311645654 & 35.6781542928868 \tabularnewline
Winsorized Mean ( 5 / 34 ) & 3031.66666666667 & 84.7466233175237 & 35.77330338352 \tabularnewline
Winsorized Mean ( 6 / 34 ) & 3033.8431372549 & 84.295125424174 & 35.9907304483927 \tabularnewline
Winsorized Mean ( 7 / 34 ) & 3034.73529411765 & 83.8125247112866 & 36.2086132659953 \tabularnewline
Winsorized Mean ( 8 / 34 ) & 3039.67647058824 & 82.3931771212973 & 36.8923323118527 \tabularnewline
Winsorized Mean ( 9 / 34 ) & 3027.32352941176 & 77.877356005984 & 38.8729623689221 \tabularnewline
Winsorized Mean ( 10 / 34 ) & 3029.97058823529 & 77.18738083407 & 39.2547402890744 \tabularnewline
Winsorized Mean ( 11 / 34 ) & 3014.76470588235 & 74.4787114928288 & 40.4782070668963 \tabularnewline
Winsorized Mean ( 12 / 34 ) & 3025.47058823529 & 72.854746954016 & 41.5274325246767 \tabularnewline
Winsorized Mean ( 13 / 34 ) & 3027.89215686275 & 72.3451330058196 & 41.8534327197819 \tabularnewline
Winsorized Mean ( 14 / 34 ) & 3022.95098039216 & 68.4787218629347 & 44.1443838049843 \tabularnewline
Winsorized Mean ( 15 / 34 ) & 3024.12745098039 & 68.0987635574431 & 44.4079641538493 \tabularnewline
Winsorized Mean ( 16 / 34 ) & 3024.91176470588 & 66.5471167986342 & 45.4551888981006 \tabularnewline
Winsorized Mean ( 17 / 34 ) & 3016.41176470588 & 63.0327703686715 & 47.8546595217572 \tabularnewline
Winsorized Mean ( 18 / 34 ) & 3013.41176470588 & 60.8195458103751 & 49.546765345818 \tabularnewline
Winsorized Mean ( 19 / 34 ) & 3026.82352941176 & 56.9817659305698 & 53.119159787007 \tabularnewline
Winsorized Mean ( 20 / 34 ) & 3034.07843137255 & 55.8533622567028 & 54.3222164035154 \tabularnewline
Winsorized Mean ( 21 / 34 ) & 3029.3431372549 & 53.7659233051221 & 56.3431807924762 \tabularnewline
Winsorized Mean ( 22 / 34 ) & 3020.5 & 49.8636030287458 & 60.5752456006582 \tabularnewline
Winsorized Mean ( 23 / 34 ) & 3005.16666666667 & 47.4458014332423 & 63.3389378171855 \tabularnewline
Winsorized Mean ( 24 / 34 ) & 3010.34313725490 & 46.5244271841184 & 64.7045717584356 \tabularnewline
Winsorized Mean ( 25 / 34 ) & 3006.17647058824 & 45.7230727428218 & 65.7474725615458 \tabularnewline
Winsorized Mean ( 26 / 34 ) & 3003.88235294118 & 45.4482907856431 & 66.0945065483098 \tabularnewline
Winsorized Mean ( 27 / 34 ) & 3004.94117647059 & 43.5440558932683 & 69.009216409148 \tabularnewline
Winsorized Mean ( 28 / 34 ) & 3008.78431372549 & 42.2399672987645 & 71.2307443905975 \tabularnewline
Winsorized Mean ( 29 / 34 ) & 3011.05882352941 & 41.6368516667736 & 72.3171590308363 \tabularnewline
Winsorized Mean ( 30 / 34 ) & 3008.70588235294 & 40.6711950312253 & 73.9763333740995 \tabularnewline
Winsorized Mean ( 31 / 34 ) & 3018.73529411765 & 37.3982303169905 & 80.7186668601855 \tabularnewline
Winsorized Mean ( 32 / 34 ) & 3016.53921568627 & 36.2097302993211 & 83.3074201533845 \tabularnewline
Winsorized Mean ( 33 / 34 ) & 3023.98039215686 & 34.7139151878161 & 87.1114760693492 \tabularnewline
Winsorized Mean ( 34 / 34 ) & 3022.64705882353 & 31.1206769541164 & 97.1266487319683 \tabularnewline
Trimmed Mean ( 1 / 34 ) & 3031.11 & 86.1433218420314 & 35.1868251094196 \tabularnewline
Trimmed Mean ( 2 / 34 ) & 3030.62244897959 & 83.7650508255545 & 36.180034741351 \tabularnewline
Trimmed Mean ( 3 / 34 ) & 3028.9375 & 81.8810980218728 & 36.9919013444456 \tabularnewline
Trimmed Mean ( 4 / 34 ) & 3027.90425531915 & 79.9288663233372 & 37.8824871989342 \tabularnewline
Trimmed Mean ( 5 / 34 ) & 3027.17391304348 & 78.2248107989602 & 38.6983858717587 \tabularnewline
Trimmed Mean ( 6 / 34 ) & 3026.15555555556 & 76.3369066940969 & 39.6421034936901 \tabularnewline
Trimmed Mean ( 7 / 34 ) & 3024.67045454545 & 74.2910637491191 & 40.7137857759012 \tabularnewline
Trimmed Mean ( 8 / 34 ) & 3022.96511627907 & 72.053380135612 & 41.9545219195759 \tabularnewline
Trimmed Mean ( 9 / 34 ) & 3020.42857142857 & 69.780607108509 & 43.2846416301853 \tabularnewline
Trimmed Mean ( 10 / 34 ) & 3019.4756097561 & 68.0725944614628 & 44.3566993978095 \tabularnewline
Trimmed Mean ( 11 / 34 ) & 3018.1375 & 66.223816759909 & 45.5748044686416 \tabularnewline
Trimmed Mean ( 12 / 34 ) & 3018.53846153846 & 64.5709570081391 & 46.7476184557397 \tabularnewline
Trimmed Mean ( 13 / 34 ) & 3017.76315789474 & 62.9271978919585 & 47.956420418974 \tabularnewline
Trimmed Mean ( 14 / 34 ) & 3016.68918918919 & 61.0878608264066 & 49.3827930521535 \tabularnewline
Trimmed Mean ( 15 / 34 ) & 3016.05555555556 & 59.582050082668 & 50.6202044302082 \tabularnewline
Trimmed Mean ( 16 / 34 ) & 3015.27142857143 & 57.8641083913769 & 52.1095289013522 \tabularnewline
Trimmed Mean ( 17 / 34 ) & 3014.36764705882 & 56.0844986182045 & 53.7468947984923 \tabularnewline
Trimmed Mean ( 18 / 34 ) & 3014.18181818182 & 54.5505215206746 & 55.2548671242207 \tabularnewline
Trimmed Mean ( 19 / 34 ) & 3014.25 & 53.075446076227 & 56.7917977678592 \tabularnewline
Trimmed Mean ( 20 / 34 ) & 3013.16129032258 & 51.9185496499243 & 58.0363147784305 \tabularnewline
Trimmed Mean ( 21 / 34 ) & 3011.38333333333 & 50.6871321197357 & 59.4111997936615 \tabularnewline
Trimmed Mean ( 22 / 34 ) & 3009.87931034483 & 49.5233730197042 & 60.7769448407173 \tabularnewline
Trimmed Mean ( 23 / 34 ) & 3009 & 48.7235176155331 & 61.7566248755555 \tabularnewline
Trimmed Mean ( 24 / 34 ) & 3009.31481481481 & 48.0994472966212 & 62.5644364738097 \tabularnewline
Trimmed Mean ( 25 / 34 ) & 3009.23076923077 & 47.4387961284655 & 63.4339615423986 \tabularnewline
Trimmed Mean ( 26 / 34 ) & 3009.48 & 46.7095081873278 & 64.4297085709086 \tabularnewline
Trimmed Mean ( 27 / 34 ) & 3009.9375 & 45.8005079705834 & 65.7184305015397 \tabularnewline
Trimmed Mean ( 28 / 34 ) & 3010.34782608696 & 44.9588670558781 & 66.9578221876784 \tabularnewline
Trimmed Mean ( 29 / 34 ) & 3010.47727272727 & 44.0848270417693 & 68.2882858965268 \tabularnewline
Trimmed Mean ( 30 / 34 ) & 3010.42857142857 & 43.0270576736596 & 69.9659408333538 \tabularnewline
Trimmed Mean ( 31 / 34 ) & 3010.42857142857 & 41.8039362565113 & 72.0130409001777 \tabularnewline
Trimmed Mean ( 32 / 34 ) & 3009.86842105263 & 40.8751729008768 & 73.635613196099 \tabularnewline
Trimmed Mean ( 33 / 34 ) & 3009.27777777778 & 39.8435952334719 & 75.527265050864 \tabularnewline
Trimmed Mean ( 34 / 34 ) & 3007.94117647059 & 38.7408074583494 & 77.6427073623711 \tabularnewline
Median & 2975.5 &  &  \tabularnewline
Midrange & 2993.5 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 2998.41176470588 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 3009.23076923077 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 3009.23076923077 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 3009.23076923077 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 2998.41176470588 &  &  \tabularnewline
Midmean - Closest Observation & 3009.23076923077 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 3009.23076923077 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 3009.23076923077 &  &  \tabularnewline
Number of observations & 102 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74539&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]3030.37254901961[/C][C]88.61514507918[/C][C]34.1970048834416[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]2888.43095922629[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]2732.65189930145[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]3158.52415275385[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 34 )[/C][C]3031.57843137255[/C][C]88.2483462433786[/C][C]34.3528072810771[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 34 )[/C][C]3033.79411764706[/C][C]86.9057739093095[/C][C]34.909005249904[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 34 )[/C][C]3031.79411764706[/C][C]86.4715824061275[/C][C]35.0611615201831[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 34 )[/C][C]3030.53921568627[/C][C]84.9410311645654[/C][C]35.6781542928868[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 34 )[/C][C]3031.66666666667[/C][C]84.7466233175237[/C][C]35.77330338352[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 34 )[/C][C]3033.8431372549[/C][C]84.295125424174[/C][C]35.9907304483927[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 34 )[/C][C]3034.73529411765[/C][C]83.8125247112866[/C][C]36.2086132659953[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 34 )[/C][C]3039.67647058824[/C][C]82.3931771212973[/C][C]36.8923323118527[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 34 )[/C][C]3027.32352941176[/C][C]77.877356005984[/C][C]38.8729623689221[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 34 )[/C][C]3029.97058823529[/C][C]77.18738083407[/C][C]39.2547402890744[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 34 )[/C][C]3014.76470588235[/C][C]74.4787114928288[/C][C]40.4782070668963[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 34 )[/C][C]3025.47058823529[/C][C]72.854746954016[/C][C]41.5274325246767[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 34 )[/C][C]3027.89215686275[/C][C]72.3451330058196[/C][C]41.8534327197819[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 34 )[/C][C]3022.95098039216[/C][C]68.4787218629347[/C][C]44.1443838049843[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 34 )[/C][C]3024.12745098039[/C][C]68.0987635574431[/C][C]44.4079641538493[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 34 )[/C][C]3024.91176470588[/C][C]66.5471167986342[/C][C]45.4551888981006[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 34 )[/C][C]3016.41176470588[/C][C]63.0327703686715[/C][C]47.8546595217572[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 34 )[/C][C]3013.41176470588[/C][C]60.8195458103751[/C][C]49.546765345818[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 34 )[/C][C]3026.82352941176[/C][C]56.9817659305698[/C][C]53.119159787007[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 34 )[/C][C]3034.07843137255[/C][C]55.8533622567028[/C][C]54.3222164035154[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 34 )[/C][C]3029.3431372549[/C][C]53.7659233051221[/C][C]56.3431807924762[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 34 )[/C][C]3020.5[/C][C]49.8636030287458[/C][C]60.5752456006582[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 34 )[/C][C]3005.16666666667[/C][C]47.4458014332423[/C][C]63.3389378171855[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 34 )[/C][C]3010.34313725490[/C][C]46.5244271841184[/C][C]64.7045717584356[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 34 )[/C][C]3006.17647058824[/C][C]45.7230727428218[/C][C]65.7474725615458[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 34 )[/C][C]3003.88235294118[/C][C]45.4482907856431[/C][C]66.0945065483098[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 34 )[/C][C]3004.94117647059[/C][C]43.5440558932683[/C][C]69.009216409148[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 34 )[/C][C]3008.78431372549[/C][C]42.2399672987645[/C][C]71.2307443905975[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 34 )[/C][C]3011.05882352941[/C][C]41.6368516667736[/C][C]72.3171590308363[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 34 )[/C][C]3008.70588235294[/C][C]40.6711950312253[/C][C]73.9763333740995[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 34 )[/C][C]3018.73529411765[/C][C]37.3982303169905[/C][C]80.7186668601855[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 34 )[/C][C]3016.53921568627[/C][C]36.2097302993211[/C][C]83.3074201533845[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 34 )[/C][C]3023.98039215686[/C][C]34.7139151878161[/C][C]87.1114760693492[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 34 )[/C][C]3022.64705882353[/C][C]31.1206769541164[/C][C]97.1266487319683[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 34 )[/C][C]3031.11[/C][C]86.1433218420314[/C][C]35.1868251094196[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 34 )[/C][C]3030.62244897959[/C][C]83.7650508255545[/C][C]36.180034741351[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 34 )[/C][C]3028.9375[/C][C]81.8810980218728[/C][C]36.9919013444456[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 34 )[/C][C]3027.90425531915[/C][C]79.9288663233372[/C][C]37.8824871989342[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 34 )[/C][C]3027.17391304348[/C][C]78.2248107989602[/C][C]38.6983858717587[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 34 )[/C][C]3026.15555555556[/C][C]76.3369066940969[/C][C]39.6421034936901[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 34 )[/C][C]3024.67045454545[/C][C]74.2910637491191[/C][C]40.7137857759012[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 34 )[/C][C]3022.96511627907[/C][C]72.053380135612[/C][C]41.9545219195759[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 34 )[/C][C]3020.42857142857[/C][C]69.780607108509[/C][C]43.2846416301853[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 34 )[/C][C]3019.4756097561[/C][C]68.0725944614628[/C][C]44.3566993978095[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 34 )[/C][C]3018.1375[/C][C]66.223816759909[/C][C]45.5748044686416[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 34 )[/C][C]3018.53846153846[/C][C]64.5709570081391[/C][C]46.7476184557397[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 34 )[/C][C]3017.76315789474[/C][C]62.9271978919585[/C][C]47.956420418974[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 34 )[/C][C]3016.68918918919[/C][C]61.0878608264066[/C][C]49.3827930521535[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 34 )[/C][C]3016.05555555556[/C][C]59.582050082668[/C][C]50.6202044302082[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 34 )[/C][C]3015.27142857143[/C][C]57.8641083913769[/C][C]52.1095289013522[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 34 )[/C][C]3014.36764705882[/C][C]56.0844986182045[/C][C]53.7468947984923[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 34 )[/C][C]3014.18181818182[/C][C]54.5505215206746[/C][C]55.2548671242207[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 34 )[/C][C]3014.25[/C][C]53.075446076227[/C][C]56.7917977678592[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 34 )[/C][C]3013.16129032258[/C][C]51.9185496499243[/C][C]58.0363147784305[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 34 )[/C][C]3011.38333333333[/C][C]50.6871321197357[/C][C]59.4111997936615[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 34 )[/C][C]3009.87931034483[/C][C]49.5233730197042[/C][C]60.7769448407173[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 34 )[/C][C]3009[/C][C]48.7235176155331[/C][C]61.7566248755555[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 34 )[/C][C]3009.31481481481[/C][C]48.0994472966212[/C][C]62.5644364738097[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 34 )[/C][C]3009.23076923077[/C][C]47.4387961284655[/C][C]63.4339615423986[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 34 )[/C][C]3009.48[/C][C]46.7095081873278[/C][C]64.4297085709086[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 34 )[/C][C]3009.9375[/C][C]45.8005079705834[/C][C]65.7184305015397[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 34 )[/C][C]3010.34782608696[/C][C]44.9588670558781[/C][C]66.9578221876784[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 34 )[/C][C]3010.47727272727[/C][C]44.0848270417693[/C][C]68.2882858965268[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 34 )[/C][C]3010.42857142857[/C][C]43.0270576736596[/C][C]69.9659408333538[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 34 )[/C][C]3010.42857142857[/C][C]41.8039362565113[/C][C]72.0130409001777[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 34 )[/C][C]3009.86842105263[/C][C]40.8751729008768[/C][C]73.635613196099[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 34 )[/C][C]3009.27777777778[/C][C]39.8435952334719[/C][C]75.527265050864[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 34 )[/C][C]3007.94117647059[/C][C]38.7408074583494[/C][C]77.6427073623711[/C][/ROW]
[ROW][C]Median[/C][C]2975.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]2993.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]2998.41176470588[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]2998.41176470588[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]3009.23076923077[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]102[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74539&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74539&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 Mean3030.3725490196188.6151450791834.1970048834416
Geometric Mean2888.43095922629
Harmonic Mean2732.65189930145
Quadratic Mean3158.52415275385
Winsorized Mean ( 1 / 34 )3031.5784313725588.248346243378634.3528072810771
Winsorized Mean ( 2 / 34 )3033.7941176470686.905773909309534.909005249904
Winsorized Mean ( 3 / 34 )3031.7941176470686.471582406127535.0611615201831
Winsorized Mean ( 4 / 34 )3030.5392156862784.941031164565435.6781542928868
Winsorized Mean ( 5 / 34 )3031.6666666666784.746623317523735.77330338352
Winsorized Mean ( 6 / 34 )3033.843137254984.29512542417435.9907304483927
Winsorized Mean ( 7 / 34 )3034.7352941176583.812524711286636.2086132659953
Winsorized Mean ( 8 / 34 )3039.6764705882482.393177121297336.8923323118527
Winsorized Mean ( 9 / 34 )3027.3235294117677.87735600598438.8729623689221
Winsorized Mean ( 10 / 34 )3029.9705882352977.1873808340739.2547402890744
Winsorized Mean ( 11 / 34 )3014.7647058823574.478711492828840.4782070668963
Winsorized Mean ( 12 / 34 )3025.4705882352972.85474695401641.5274325246767
Winsorized Mean ( 13 / 34 )3027.8921568627572.345133005819641.8534327197819
Winsorized Mean ( 14 / 34 )3022.9509803921668.478721862934744.1443838049843
Winsorized Mean ( 15 / 34 )3024.1274509803968.098763557443144.4079641538493
Winsorized Mean ( 16 / 34 )3024.9117647058866.547116798634245.4551888981006
Winsorized Mean ( 17 / 34 )3016.4117647058863.032770368671547.8546595217572
Winsorized Mean ( 18 / 34 )3013.4117647058860.819545810375149.546765345818
Winsorized Mean ( 19 / 34 )3026.8235294117656.981765930569853.119159787007
Winsorized Mean ( 20 / 34 )3034.0784313725555.853362256702854.3222164035154
Winsorized Mean ( 21 / 34 )3029.343137254953.765923305122156.3431807924762
Winsorized Mean ( 22 / 34 )3020.549.863603028745860.5752456006582
Winsorized Mean ( 23 / 34 )3005.1666666666747.445801433242363.3389378171855
Winsorized Mean ( 24 / 34 )3010.3431372549046.524427184118464.7045717584356
Winsorized Mean ( 25 / 34 )3006.1764705882445.723072742821865.7474725615458
Winsorized Mean ( 26 / 34 )3003.8823529411845.448290785643166.0945065483098
Winsorized Mean ( 27 / 34 )3004.9411764705943.544055893268369.009216409148
Winsorized Mean ( 28 / 34 )3008.7843137254942.239967298764571.2307443905975
Winsorized Mean ( 29 / 34 )3011.0588235294141.636851666773672.3171590308363
Winsorized Mean ( 30 / 34 )3008.7058823529440.671195031225373.9763333740995
Winsorized Mean ( 31 / 34 )3018.7352941176537.398230316990580.7186668601855
Winsorized Mean ( 32 / 34 )3016.5392156862736.209730299321183.3074201533845
Winsorized Mean ( 33 / 34 )3023.9803921568634.713915187816187.1114760693492
Winsorized Mean ( 34 / 34 )3022.6470588235331.120676954116497.1266487319683
Trimmed Mean ( 1 / 34 )3031.1186.143321842031435.1868251094196
Trimmed Mean ( 2 / 34 )3030.6224489795983.765050825554536.180034741351
Trimmed Mean ( 3 / 34 )3028.937581.881098021872836.9919013444456
Trimmed Mean ( 4 / 34 )3027.9042553191579.928866323337237.8824871989342
Trimmed Mean ( 5 / 34 )3027.1739130434878.224810798960238.6983858717587
Trimmed Mean ( 6 / 34 )3026.1555555555676.336906694096939.6421034936901
Trimmed Mean ( 7 / 34 )3024.6704545454574.291063749119140.7137857759012
Trimmed Mean ( 8 / 34 )3022.9651162790772.05338013561241.9545219195759
Trimmed Mean ( 9 / 34 )3020.4285714285769.78060710850943.2846416301853
Trimmed Mean ( 10 / 34 )3019.475609756168.072594461462844.3566993978095
Trimmed Mean ( 11 / 34 )3018.137566.22381675990945.5748044686416
Trimmed Mean ( 12 / 34 )3018.5384615384664.570957008139146.7476184557397
Trimmed Mean ( 13 / 34 )3017.7631578947462.927197891958547.956420418974
Trimmed Mean ( 14 / 34 )3016.6891891891961.087860826406649.3827930521535
Trimmed Mean ( 15 / 34 )3016.0555555555659.58205008266850.6202044302082
Trimmed Mean ( 16 / 34 )3015.2714285714357.864108391376952.1095289013522
Trimmed Mean ( 17 / 34 )3014.3676470588256.084498618204553.7468947984923
Trimmed Mean ( 18 / 34 )3014.1818181818254.550521520674655.2548671242207
Trimmed Mean ( 19 / 34 )3014.2553.07544607622756.7917977678592
Trimmed Mean ( 20 / 34 )3013.1612903225851.918549649924358.0363147784305
Trimmed Mean ( 21 / 34 )3011.3833333333350.687132119735759.4111997936615
Trimmed Mean ( 22 / 34 )3009.8793103448349.523373019704260.7769448407173
Trimmed Mean ( 23 / 34 )300948.723517615533161.7566248755555
Trimmed Mean ( 24 / 34 )3009.3148148148148.099447296621262.5644364738097
Trimmed Mean ( 25 / 34 )3009.2307692307747.438796128465563.4339615423986
Trimmed Mean ( 26 / 34 )3009.4846.709508187327864.4297085709086
Trimmed Mean ( 27 / 34 )3009.937545.800507970583465.7184305015397
Trimmed Mean ( 28 / 34 )3010.3478260869644.958867055878166.9578221876784
Trimmed Mean ( 29 / 34 )3010.4772727272744.084827041769368.2882858965268
Trimmed Mean ( 30 / 34 )3010.4285714285743.027057673659669.9659408333538
Trimmed Mean ( 31 / 34 )3010.4285714285741.803936256511372.0130409001777
Trimmed Mean ( 32 / 34 )3009.8684210526340.875172900876873.635613196099
Trimmed Mean ( 33 / 34 )3009.2777777777839.843595233471975.527265050864
Trimmed Mean ( 34 / 34 )3007.9411764705938.740807458349477.6427073623711
Median2975.5
Midrange2993.5
Midmean - Weighted Average at Xnp2998.41176470588
Midmean - Weighted Average at X(n+1)p3009.23076923077
Midmean - Empirical Distribution Function3009.23076923077
Midmean - Empirical Distribution Function - Averaging3009.23076923077
Midmean - Empirical Distribution Function - Interpolation2998.41176470588
Midmean - Closest Observation3009.23076923077
Midmean - True Basic - Statistics Graphics Toolkit3009.23076923077
Midmean - MS Excel (old versions)3009.23076923077
Number of observations102



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')