Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationSun, 17 Aug 2014 18:15:44 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Aug/17/t14082958000ljqwfa5fpnntg5.htm/, Retrieved Thu, 31 Oct 2024 23:21:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=235625, Retrieved Thu, 31 Oct 2024 23:21:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsVan Reusel Raphael
Estimated Impact158
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Harrell-Davis Quantiles] [Tijdreeks 1] [2014-08-17 17:04:09] [01050b0485b0192e33ca8050be87927f]
- RMP     [Central Tendency] [Tijdreeks 1] [2014-08-17 17:15:44] [bf566d88435d8cc6ce5d208f6f8dd684] [Current]
Feedback Forum

Post a new message
Dataseries X:
1095
1085
1075
1054
1261
1250
1095
992
1002
1002
1013
1033
1095
1075
1106
1157
1447
1447
1385
1323
1374
1436
1447
1478
1571
1509
1509
1602
1860
1881
1829
1705
1798
1798
1808
1860
1901
1922
1922
1984
2222
2284
2294
2139
2222
2191
2129
2263
2294
2242
2253
2325
2594
2728
2728
2666
2759
2666
2614
2811
2842
2769
2955
3028
3245
3389
3369
3358
3441
3431
3307
3493
3555
3493
3751
3875
4164
4278
4247
4185
4237
4299
4092
4257
4361
4319
4588
4681
5074
5146
5053
5105
5136
5167
4970
5156
5259
5156
5456
5549
5952
6014
6034
6138
6138
6179
5993
6086
6148
6034
6365
6427
6840
6913
7016
7109
7119
7130
6944
7130




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235625&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=235625&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235625&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'Gertrude Mary Cox' @ cox.wessa.net







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean3354.625172.40565969058919.4577428955664
Geometric Mean2825.09773413344
Harmonic Mean2358.17101358197
Quadratic Mean3845.85888434994
Winsorized Mean ( 1 / 40 )3354.70833333333172.39608301580519.4593071643384
Winsorized Mean ( 2 / 40 )3354.525172.36239019046719.4620473543742
Winsorized Mean ( 3 / 40 )3354.55172.28508304242619.4709254031815
Winsorized Mean ( 4 / 40 )3352.11666666667171.6472806695519.5290985886346
Winsorized Mean ( 5 / 40 )3349.99166666667171.01427508348419.5889592551926
Winsorized Mean ( 6 / 40 )3349.49166666667170.62334638011519.6309106445765
Winsorized Mean ( 7 / 40 )3345.23333333333169.88157876293719.69156018971
Winsorized Mean ( 8 / 40 )3318.36666666667165.24731483655320.0812138457371
Winsorized Mean ( 9 / 40 )3314.46666666667164.43216736920120.1570454230203
Winsorized Mean ( 10 / 40 )3298.96666666667162.06624848569220.3556674970355
Winsorized Mean ( 11 / 40 )3296.125161.64341463897820.3913348858766
Winsorized Mean ( 12 / 40 )3296.225161.36962349495920.4265519656677
Winsorized Mean ( 13 / 40 )3301.75160.74479366522620.5403231091662
Winsorized Mean ( 14 / 40 )3306.53333333333158.64910673020920.8418023995324
Winsorized Mean ( 15 / 40 )3301.40833333333157.54720447558520.9550422955613
Winsorized Mean ( 16 / 40 )3309.675156.6568513355821.1269087293873
Winsorized Mean ( 17 / 40 )3314.06666666667155.4792936276921.3151641568588
Winsorized Mean ( 18 / 40 )3312.56666666667154.84754575916821.3924389335731
Winsorized Mean ( 19 / 40 )3314.15153.06663689103421.6516810411095
Winsorized Mean ( 20 / 40 )3248.81666666667143.47664582372122.6435225608651
Winsorized Mean ( 21 / 40 )3232.54166666667141.30418739289622.8764746912885
Winsorized Mean ( 22 / 40 )3196.425136.62377631749223.395817961963
Winsorized Mean ( 23 / 40 )3184.73333333333133.76893762804723.80771941382
Winsorized Mean ( 24 / 40 )3188.73333333333132.83325762925324.005534383816
Winsorized Mean ( 25 / 40 )3188.73333333333132.83325762925324.005534383816
Winsorized Mean ( 26 / 40 )3200131.1484559840624.3998297653534
Winsorized Mean ( 27 / 40 )3204.725130.14294121776124.6246547835254
Winsorized Mean ( 28 / 40 )3221.525126.78857208579425.4086385468565
Winsorized Mean ( 29 / 40 )3236.50833333333123.62436609735926.1801814278623
Winsorized Mean ( 30 / 40 )3231.25833333333122.96970004138426.2768660267195
Winsorized Mean ( 31 / 40 )3212.4120.06253412634726.7560569446206
Winsorized Mean ( 32 / 40 )3140.93333333333110.23408231499128.4933050411596
Winsorized Mean ( 33 / 40 )3123.88333333333106.40196378274929.3592638920807
Winsorized Mean ( 34 / 40 )3059.5666666666799.12953126215230.8643310193359
Winsorized Mean ( 35 / 40 )3053.4416666666797.161340881450531.4265081046202
Winsorized Mean ( 36 / 40 )3053.4416666666795.898353630853931.8403971607315
Winsorized Mean ( 37 / 40 )3053.4416666666794.540048126159532.2978645260682
Winsorized Mean ( 38 / 40 )3046.7916666666793.817696675523232.4756605057601
Winsorized Mean ( 39 / 40 )3063.6916666666791.450045903624233.5012589265989
Winsorized Mean ( 40 / 40 )3108.6916666666786.382379670993835.9875668916138
Trimmed Mean ( 1 / 40 )3342.65254237288171.19071388686619.5258987270882
Trimmed Mean ( 2 / 40 )3330.18103448276169.83136869546319.6087510809287
Trimmed Mean ( 3 / 40 )3317.36842105263168.31983507092819.7087195318053
Trimmed Mean ( 4 / 40 )3304.08928571429166.64918934436219.8266148111093
Trimmed Mean ( 5 / 40 )3290.99090909091164.96920403864319.9491227970041
Trimmed Mean ( 6 / 40 )3277.87962962963163.24068128770720.0800413461426
Trimmed Mean ( 7 / 40 )3264.3679245283161.37677271488820.2282389814277
Trimmed Mean ( 8 / 40 )3251.03846153846159.42380609023420.3924278391545
Trimmed Mean ( 9 / 40 )3241.13725490196158.08846551040520.5020476632347
Trimmed Mean ( 10 / 40 )3231.36156.69993813049520.6213227557819
Trimmed Mean ( 11 / 40 )3223.08163265306155.4920274562520.7282758182565
Trimmed Mean ( 12 / 40 )3214.78125154.16135401215420.8533537513334
Trimmed Mean ( 13 / 40 )3206.1170212766152.66419640792821.0011063282295
Trimmed Mean ( 14 / 40 )3196.52173913043151.0201347452921.1661957825801
Trimmed Mean ( 15 / 40 )3186.04444444444149.40287799382221.3251878894609
Trimmed Mean ( 16 / 40 )3175.55681818182147.67735282569821.5033433185242
Trimmed Mean ( 17 / 40 )3163.86046511628145.78070234854221.7028757177471
Trimmed Mean ( 18 / 40 )3151.2380952381143.72110811857721.9260631683842
Trimmed Mean ( 19 / 40 )3138.12195121951141.401458958822.192995562612
Trimmed Mean ( 20 / 40 )3124.225138.92218700668922.489028335334
Trimmed Mean ( 21 / 40 )3114.64102564103137.33117080368922.6797820728793
Trimmed Mean ( 22 / 40 )3105.77631578947135.72631207327522.8826398385654
Trimmed Mean ( 23 / 40 )3099.09459459459134.42328605191423.0547450937758
Trimmed Mean ( 24 / 40 )3092.88888888889133.20499480082823.2190158748436
Trimmed Mean ( 25 / 40 )3086.04285714286131.82641267580223.4098978687398
Trimmed Mean ( 26 / 40 )3078.79411764706130.13918489298623.6577024835276
Trimmed Mean ( 27 / 40 )3070.31818181818128.29329407625923.9320239138388
Trimmed Mean ( 28 / 40 )3060.984375126.16644353511524.261477848094
Trimmed Mean ( 29 / 40 )3049.88709677419124.00522435054424.5948274578547
Trimmed Mean ( 30 / 40 )3037.01666666667121.76055388001324.9425332744416
Trimmed Mean ( 31 / 40 )3023.62068965517119.07205703115225.3932011006086
Trimmed Mean ( 32 / 40 )3010.57142857143116.21369383385225.9054792017502
Trimmed Mean ( 33 / 40 )3001.51851851852114.32426799891426.2544302365183
Trimmed Mean ( 34 / 40 )2992.96153846154112.53062918570626.5968613178402
Trimmed Mean ( 35 / 40 )2988.26111.440324691526.8148895677789
Trimmed Mean ( 36 / 40 )2983.60416666667110.26339250440727.0588823624977
Trimmed Mean ( 37 / 40 )2978.54347826087108.84773616450227.364312600488
Trimmed Mean ( 38 / 40 )2973.02272727273107.14139503111727.7485907889221
Trimmed Mean ( 39 / 40 )2967.47619047619104.9424832130528.2771676409804
Trimmed Mean ( 40 / 40 )2960.075102.39960303596428.9070944831727
Median2790
Midrange4061
Midmean - Weighted Average at Xnp3016.70491803279
Midmean - Weighted Average at X(n+1)p3016.70491803279
Midmean - Empirical Distribution Function3016.70491803279
Midmean - Empirical Distribution Function - Averaging3016.70491803279
Midmean - Empirical Distribution Function - Interpolation3016.70491803279
Midmean - Closest Observation3016.70491803279
Midmean - True Basic - Statistics Graphics Toolkit3016.70491803279
Midmean - MS Excel (old versions)3049.88709677419
Number of observations120

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 3354.625 & 172.405659690589 & 19.4577428955664 \tabularnewline
Geometric Mean & 2825.09773413344 &  &  \tabularnewline
Harmonic Mean & 2358.17101358197 &  &  \tabularnewline
Quadratic Mean & 3845.85888434994 &  &  \tabularnewline
Winsorized Mean ( 1 / 40 ) & 3354.70833333333 & 172.396083015805 & 19.4593071643384 \tabularnewline
Winsorized Mean ( 2 / 40 ) & 3354.525 & 172.362390190467 & 19.4620473543742 \tabularnewline
Winsorized Mean ( 3 / 40 ) & 3354.55 & 172.285083042426 & 19.4709254031815 \tabularnewline
Winsorized Mean ( 4 / 40 ) & 3352.11666666667 & 171.64728066955 & 19.5290985886346 \tabularnewline
Winsorized Mean ( 5 / 40 ) & 3349.99166666667 & 171.014275083484 & 19.5889592551926 \tabularnewline
Winsorized Mean ( 6 / 40 ) & 3349.49166666667 & 170.623346380115 & 19.6309106445765 \tabularnewline
Winsorized Mean ( 7 / 40 ) & 3345.23333333333 & 169.881578762937 & 19.69156018971 \tabularnewline
Winsorized Mean ( 8 / 40 ) & 3318.36666666667 & 165.247314836553 & 20.0812138457371 \tabularnewline
Winsorized Mean ( 9 / 40 ) & 3314.46666666667 & 164.432167369201 & 20.1570454230203 \tabularnewline
Winsorized Mean ( 10 / 40 ) & 3298.96666666667 & 162.066248485692 & 20.3556674970355 \tabularnewline
Winsorized Mean ( 11 / 40 ) & 3296.125 & 161.643414638978 & 20.3913348858766 \tabularnewline
Winsorized Mean ( 12 / 40 ) & 3296.225 & 161.369623494959 & 20.4265519656677 \tabularnewline
Winsorized Mean ( 13 / 40 ) & 3301.75 & 160.744793665226 & 20.5403231091662 \tabularnewline
Winsorized Mean ( 14 / 40 ) & 3306.53333333333 & 158.649106730209 & 20.8418023995324 \tabularnewline
Winsorized Mean ( 15 / 40 ) & 3301.40833333333 & 157.547204475585 & 20.9550422955613 \tabularnewline
Winsorized Mean ( 16 / 40 ) & 3309.675 & 156.65685133558 & 21.1269087293873 \tabularnewline
Winsorized Mean ( 17 / 40 ) & 3314.06666666667 & 155.47929362769 & 21.3151641568588 \tabularnewline
Winsorized Mean ( 18 / 40 ) & 3312.56666666667 & 154.847545759168 & 21.3924389335731 \tabularnewline
Winsorized Mean ( 19 / 40 ) & 3314.15 & 153.066636891034 & 21.6516810411095 \tabularnewline
Winsorized Mean ( 20 / 40 ) & 3248.81666666667 & 143.476645823721 & 22.6435225608651 \tabularnewline
Winsorized Mean ( 21 / 40 ) & 3232.54166666667 & 141.304187392896 & 22.8764746912885 \tabularnewline
Winsorized Mean ( 22 / 40 ) & 3196.425 & 136.623776317492 & 23.395817961963 \tabularnewline
Winsorized Mean ( 23 / 40 ) & 3184.73333333333 & 133.768937628047 & 23.80771941382 \tabularnewline
Winsorized Mean ( 24 / 40 ) & 3188.73333333333 & 132.833257629253 & 24.005534383816 \tabularnewline
Winsorized Mean ( 25 / 40 ) & 3188.73333333333 & 132.833257629253 & 24.005534383816 \tabularnewline
Winsorized Mean ( 26 / 40 ) & 3200 & 131.14845598406 & 24.3998297653534 \tabularnewline
Winsorized Mean ( 27 / 40 ) & 3204.725 & 130.142941217761 & 24.6246547835254 \tabularnewline
Winsorized Mean ( 28 / 40 ) & 3221.525 & 126.788572085794 & 25.4086385468565 \tabularnewline
Winsorized Mean ( 29 / 40 ) & 3236.50833333333 & 123.624366097359 & 26.1801814278623 \tabularnewline
Winsorized Mean ( 30 / 40 ) & 3231.25833333333 & 122.969700041384 & 26.2768660267195 \tabularnewline
Winsorized Mean ( 31 / 40 ) & 3212.4 & 120.062534126347 & 26.7560569446206 \tabularnewline
Winsorized Mean ( 32 / 40 ) & 3140.93333333333 & 110.234082314991 & 28.4933050411596 \tabularnewline
Winsorized Mean ( 33 / 40 ) & 3123.88333333333 & 106.401963782749 & 29.3592638920807 \tabularnewline
Winsorized Mean ( 34 / 40 ) & 3059.56666666667 & 99.129531262152 & 30.8643310193359 \tabularnewline
Winsorized Mean ( 35 / 40 ) & 3053.44166666667 & 97.1613408814505 & 31.4265081046202 \tabularnewline
Winsorized Mean ( 36 / 40 ) & 3053.44166666667 & 95.8983536308539 & 31.8403971607315 \tabularnewline
Winsorized Mean ( 37 / 40 ) & 3053.44166666667 & 94.5400481261595 & 32.2978645260682 \tabularnewline
Winsorized Mean ( 38 / 40 ) & 3046.79166666667 & 93.8176966755232 & 32.4756605057601 \tabularnewline
Winsorized Mean ( 39 / 40 ) & 3063.69166666667 & 91.4500459036242 & 33.5012589265989 \tabularnewline
Winsorized Mean ( 40 / 40 ) & 3108.69166666667 & 86.3823796709938 & 35.9875668916138 \tabularnewline
Trimmed Mean ( 1 / 40 ) & 3342.65254237288 & 171.190713886866 & 19.5258987270882 \tabularnewline
Trimmed Mean ( 2 / 40 ) & 3330.18103448276 & 169.831368695463 & 19.6087510809287 \tabularnewline
Trimmed Mean ( 3 / 40 ) & 3317.36842105263 & 168.319835070928 & 19.7087195318053 \tabularnewline
Trimmed Mean ( 4 / 40 ) & 3304.08928571429 & 166.649189344362 & 19.8266148111093 \tabularnewline
Trimmed Mean ( 5 / 40 ) & 3290.99090909091 & 164.969204038643 & 19.9491227970041 \tabularnewline
Trimmed Mean ( 6 / 40 ) & 3277.87962962963 & 163.240681287707 & 20.0800413461426 \tabularnewline
Trimmed Mean ( 7 / 40 ) & 3264.3679245283 & 161.376772714888 & 20.2282389814277 \tabularnewline
Trimmed Mean ( 8 / 40 ) & 3251.03846153846 & 159.423806090234 & 20.3924278391545 \tabularnewline
Trimmed Mean ( 9 / 40 ) & 3241.13725490196 & 158.088465510405 & 20.5020476632347 \tabularnewline
Trimmed Mean ( 10 / 40 ) & 3231.36 & 156.699938130495 & 20.6213227557819 \tabularnewline
Trimmed Mean ( 11 / 40 ) & 3223.08163265306 & 155.49202745625 & 20.7282758182565 \tabularnewline
Trimmed Mean ( 12 / 40 ) & 3214.78125 & 154.161354012154 & 20.8533537513334 \tabularnewline
Trimmed Mean ( 13 / 40 ) & 3206.1170212766 & 152.664196407928 & 21.0011063282295 \tabularnewline
Trimmed Mean ( 14 / 40 ) & 3196.52173913043 & 151.02013474529 & 21.1661957825801 \tabularnewline
Trimmed Mean ( 15 / 40 ) & 3186.04444444444 & 149.402877993822 & 21.3251878894609 \tabularnewline
Trimmed Mean ( 16 / 40 ) & 3175.55681818182 & 147.677352825698 & 21.5033433185242 \tabularnewline
Trimmed Mean ( 17 / 40 ) & 3163.86046511628 & 145.780702348542 & 21.7028757177471 \tabularnewline
Trimmed Mean ( 18 / 40 ) & 3151.2380952381 & 143.721108118577 & 21.9260631683842 \tabularnewline
Trimmed Mean ( 19 / 40 ) & 3138.12195121951 & 141.4014589588 & 22.192995562612 \tabularnewline
Trimmed Mean ( 20 / 40 ) & 3124.225 & 138.922187006689 & 22.489028335334 \tabularnewline
Trimmed Mean ( 21 / 40 ) & 3114.64102564103 & 137.331170803689 & 22.6797820728793 \tabularnewline
Trimmed Mean ( 22 / 40 ) & 3105.77631578947 & 135.726312073275 & 22.8826398385654 \tabularnewline
Trimmed Mean ( 23 / 40 ) & 3099.09459459459 & 134.423286051914 & 23.0547450937758 \tabularnewline
Trimmed Mean ( 24 / 40 ) & 3092.88888888889 & 133.204994800828 & 23.2190158748436 \tabularnewline
Trimmed Mean ( 25 / 40 ) & 3086.04285714286 & 131.826412675802 & 23.4098978687398 \tabularnewline
Trimmed Mean ( 26 / 40 ) & 3078.79411764706 & 130.139184892986 & 23.6577024835276 \tabularnewline
Trimmed Mean ( 27 / 40 ) & 3070.31818181818 & 128.293294076259 & 23.9320239138388 \tabularnewline
Trimmed Mean ( 28 / 40 ) & 3060.984375 & 126.166443535115 & 24.261477848094 \tabularnewline
Trimmed Mean ( 29 / 40 ) & 3049.88709677419 & 124.005224350544 & 24.5948274578547 \tabularnewline
Trimmed Mean ( 30 / 40 ) & 3037.01666666667 & 121.760553880013 & 24.9425332744416 \tabularnewline
Trimmed Mean ( 31 / 40 ) & 3023.62068965517 & 119.072057031152 & 25.3932011006086 \tabularnewline
Trimmed Mean ( 32 / 40 ) & 3010.57142857143 & 116.213693833852 & 25.9054792017502 \tabularnewline
Trimmed Mean ( 33 / 40 ) & 3001.51851851852 & 114.324267998914 & 26.2544302365183 \tabularnewline
Trimmed Mean ( 34 / 40 ) & 2992.96153846154 & 112.530629185706 & 26.5968613178402 \tabularnewline
Trimmed Mean ( 35 / 40 ) & 2988.26 & 111.4403246915 & 26.8148895677789 \tabularnewline
Trimmed Mean ( 36 / 40 ) & 2983.60416666667 & 110.263392504407 & 27.0588823624977 \tabularnewline
Trimmed Mean ( 37 / 40 ) & 2978.54347826087 & 108.847736164502 & 27.364312600488 \tabularnewline
Trimmed Mean ( 38 / 40 ) & 2973.02272727273 & 107.141395031117 & 27.7485907889221 \tabularnewline
Trimmed Mean ( 39 / 40 ) & 2967.47619047619 & 104.94248321305 & 28.2771676409804 \tabularnewline
Trimmed Mean ( 40 / 40 ) & 2960.075 & 102.399603035964 & 28.9070944831727 \tabularnewline
Median & 2790 &  &  \tabularnewline
Midrange & 4061 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 3016.70491803279 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 3016.70491803279 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 3016.70491803279 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 3016.70491803279 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 3016.70491803279 &  &  \tabularnewline
Midmean - Closest Observation & 3016.70491803279 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 3016.70491803279 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 3049.88709677419 &  &  \tabularnewline
Number of observations & 120 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=235625&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]3354.625[/C][C]172.405659690589[/C][C]19.4577428955664[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]2825.09773413344[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]2358.17101358197[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]3845.85888434994[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 40 )[/C][C]3354.70833333333[/C][C]172.396083015805[/C][C]19.4593071643384[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 40 )[/C][C]3354.525[/C][C]172.362390190467[/C][C]19.4620473543742[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 40 )[/C][C]3354.55[/C][C]172.285083042426[/C][C]19.4709254031815[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 40 )[/C][C]3352.11666666667[/C][C]171.64728066955[/C][C]19.5290985886346[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 40 )[/C][C]3349.99166666667[/C][C]171.014275083484[/C][C]19.5889592551926[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 40 )[/C][C]3349.49166666667[/C][C]170.623346380115[/C][C]19.6309106445765[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 40 )[/C][C]3345.23333333333[/C][C]169.881578762937[/C][C]19.69156018971[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 40 )[/C][C]3318.36666666667[/C][C]165.247314836553[/C][C]20.0812138457371[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 40 )[/C][C]3314.46666666667[/C][C]164.432167369201[/C][C]20.1570454230203[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 40 )[/C][C]3298.96666666667[/C][C]162.066248485692[/C][C]20.3556674970355[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 40 )[/C][C]3296.125[/C][C]161.643414638978[/C][C]20.3913348858766[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 40 )[/C][C]3296.225[/C][C]161.369623494959[/C][C]20.4265519656677[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 40 )[/C][C]3301.75[/C][C]160.744793665226[/C][C]20.5403231091662[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 40 )[/C][C]3306.53333333333[/C][C]158.649106730209[/C][C]20.8418023995324[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 40 )[/C][C]3301.40833333333[/C][C]157.547204475585[/C][C]20.9550422955613[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 40 )[/C][C]3309.675[/C][C]156.65685133558[/C][C]21.1269087293873[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 40 )[/C][C]3314.06666666667[/C][C]155.47929362769[/C][C]21.3151641568588[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 40 )[/C][C]3312.56666666667[/C][C]154.847545759168[/C][C]21.3924389335731[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 40 )[/C][C]3314.15[/C][C]153.066636891034[/C][C]21.6516810411095[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 40 )[/C][C]3248.81666666667[/C][C]143.476645823721[/C][C]22.6435225608651[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 40 )[/C][C]3232.54166666667[/C][C]141.304187392896[/C][C]22.8764746912885[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 40 )[/C][C]3196.425[/C][C]136.623776317492[/C][C]23.395817961963[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 40 )[/C][C]3184.73333333333[/C][C]133.768937628047[/C][C]23.80771941382[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 40 )[/C][C]3188.73333333333[/C][C]132.833257629253[/C][C]24.005534383816[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 40 )[/C][C]3188.73333333333[/C][C]132.833257629253[/C][C]24.005534383816[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 40 )[/C][C]3200[/C][C]131.14845598406[/C][C]24.3998297653534[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 40 )[/C][C]3204.725[/C][C]130.142941217761[/C][C]24.6246547835254[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 40 )[/C][C]3221.525[/C][C]126.788572085794[/C][C]25.4086385468565[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 40 )[/C][C]3236.50833333333[/C][C]123.624366097359[/C][C]26.1801814278623[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 40 )[/C][C]3231.25833333333[/C][C]122.969700041384[/C][C]26.2768660267195[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 40 )[/C][C]3212.4[/C][C]120.062534126347[/C][C]26.7560569446206[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 40 )[/C][C]3140.93333333333[/C][C]110.234082314991[/C][C]28.4933050411596[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 40 )[/C][C]3123.88333333333[/C][C]106.401963782749[/C][C]29.3592638920807[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 40 )[/C][C]3059.56666666667[/C][C]99.129531262152[/C][C]30.8643310193359[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 40 )[/C][C]3053.44166666667[/C][C]97.1613408814505[/C][C]31.4265081046202[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 40 )[/C][C]3053.44166666667[/C][C]95.8983536308539[/C][C]31.8403971607315[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 40 )[/C][C]3053.44166666667[/C][C]94.5400481261595[/C][C]32.2978645260682[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 40 )[/C][C]3046.79166666667[/C][C]93.8176966755232[/C][C]32.4756605057601[/C][/ROW]
[ROW][C]Winsorized Mean ( 39 / 40 )[/C][C]3063.69166666667[/C][C]91.4500459036242[/C][C]33.5012589265989[/C][/ROW]
[ROW][C]Winsorized Mean ( 40 / 40 )[/C][C]3108.69166666667[/C][C]86.3823796709938[/C][C]35.9875668916138[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 40 )[/C][C]3342.65254237288[/C][C]171.190713886866[/C][C]19.5258987270882[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 40 )[/C][C]3330.18103448276[/C][C]169.831368695463[/C][C]19.6087510809287[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 40 )[/C][C]3317.36842105263[/C][C]168.319835070928[/C][C]19.7087195318053[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 40 )[/C][C]3304.08928571429[/C][C]166.649189344362[/C][C]19.8266148111093[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 40 )[/C][C]3290.99090909091[/C][C]164.969204038643[/C][C]19.9491227970041[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 40 )[/C][C]3277.87962962963[/C][C]163.240681287707[/C][C]20.0800413461426[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 40 )[/C][C]3264.3679245283[/C][C]161.376772714888[/C][C]20.2282389814277[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 40 )[/C][C]3251.03846153846[/C][C]159.423806090234[/C][C]20.3924278391545[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 40 )[/C][C]3241.13725490196[/C][C]158.088465510405[/C][C]20.5020476632347[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 40 )[/C][C]3231.36[/C][C]156.699938130495[/C][C]20.6213227557819[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 40 )[/C][C]3223.08163265306[/C][C]155.49202745625[/C][C]20.7282758182565[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 40 )[/C][C]3214.78125[/C][C]154.161354012154[/C][C]20.8533537513334[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 40 )[/C][C]3206.1170212766[/C][C]152.664196407928[/C][C]21.0011063282295[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 40 )[/C][C]3196.52173913043[/C][C]151.02013474529[/C][C]21.1661957825801[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 40 )[/C][C]3186.04444444444[/C][C]149.402877993822[/C][C]21.3251878894609[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 40 )[/C][C]3175.55681818182[/C][C]147.677352825698[/C][C]21.5033433185242[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 40 )[/C][C]3163.86046511628[/C][C]145.780702348542[/C][C]21.7028757177471[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 40 )[/C][C]3151.2380952381[/C][C]143.721108118577[/C][C]21.9260631683842[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 40 )[/C][C]3138.12195121951[/C][C]141.4014589588[/C][C]22.192995562612[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 40 )[/C][C]3124.225[/C][C]138.922187006689[/C][C]22.489028335334[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 40 )[/C][C]3114.64102564103[/C][C]137.331170803689[/C][C]22.6797820728793[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 40 )[/C][C]3105.77631578947[/C][C]135.726312073275[/C][C]22.8826398385654[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 40 )[/C][C]3099.09459459459[/C][C]134.423286051914[/C][C]23.0547450937758[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 40 )[/C][C]3092.88888888889[/C][C]133.204994800828[/C][C]23.2190158748436[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 40 )[/C][C]3086.04285714286[/C][C]131.826412675802[/C][C]23.4098978687398[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 40 )[/C][C]3078.79411764706[/C][C]130.139184892986[/C][C]23.6577024835276[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 40 )[/C][C]3070.31818181818[/C][C]128.293294076259[/C][C]23.9320239138388[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 40 )[/C][C]3060.984375[/C][C]126.166443535115[/C][C]24.261477848094[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 40 )[/C][C]3049.88709677419[/C][C]124.005224350544[/C][C]24.5948274578547[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 40 )[/C][C]3037.01666666667[/C][C]121.760553880013[/C][C]24.9425332744416[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 40 )[/C][C]3023.62068965517[/C][C]119.072057031152[/C][C]25.3932011006086[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 40 )[/C][C]3010.57142857143[/C][C]116.213693833852[/C][C]25.9054792017502[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 40 )[/C][C]3001.51851851852[/C][C]114.324267998914[/C][C]26.2544302365183[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 40 )[/C][C]2992.96153846154[/C][C]112.530629185706[/C][C]26.5968613178402[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 40 )[/C][C]2988.26[/C][C]111.4403246915[/C][C]26.8148895677789[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 40 )[/C][C]2983.60416666667[/C][C]110.263392504407[/C][C]27.0588823624977[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 40 )[/C][C]2978.54347826087[/C][C]108.847736164502[/C][C]27.364312600488[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 40 )[/C][C]2973.02272727273[/C][C]107.141395031117[/C][C]27.7485907889221[/C][/ROW]
[ROW][C]Trimmed Mean ( 39 / 40 )[/C][C]2967.47619047619[/C][C]104.94248321305[/C][C]28.2771676409804[/C][/ROW]
[ROW][C]Trimmed Mean ( 40 / 40 )[/C][C]2960.075[/C][C]102.399603035964[/C][C]28.9070944831727[/C][/ROW]
[ROW][C]Median[/C][C]2790[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]4061[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]3016.70491803279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]3049.88709677419[/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=235625&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=235625&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 Mean3354.625172.40565969058919.4577428955664
Geometric Mean2825.09773413344
Harmonic Mean2358.17101358197
Quadratic Mean3845.85888434994
Winsorized Mean ( 1 / 40 )3354.70833333333172.39608301580519.4593071643384
Winsorized Mean ( 2 / 40 )3354.525172.36239019046719.4620473543742
Winsorized Mean ( 3 / 40 )3354.55172.28508304242619.4709254031815
Winsorized Mean ( 4 / 40 )3352.11666666667171.6472806695519.5290985886346
Winsorized Mean ( 5 / 40 )3349.99166666667171.01427508348419.5889592551926
Winsorized Mean ( 6 / 40 )3349.49166666667170.62334638011519.6309106445765
Winsorized Mean ( 7 / 40 )3345.23333333333169.88157876293719.69156018971
Winsorized Mean ( 8 / 40 )3318.36666666667165.24731483655320.0812138457371
Winsorized Mean ( 9 / 40 )3314.46666666667164.43216736920120.1570454230203
Winsorized Mean ( 10 / 40 )3298.96666666667162.06624848569220.3556674970355
Winsorized Mean ( 11 / 40 )3296.125161.64341463897820.3913348858766
Winsorized Mean ( 12 / 40 )3296.225161.36962349495920.4265519656677
Winsorized Mean ( 13 / 40 )3301.75160.74479366522620.5403231091662
Winsorized Mean ( 14 / 40 )3306.53333333333158.64910673020920.8418023995324
Winsorized Mean ( 15 / 40 )3301.40833333333157.54720447558520.9550422955613
Winsorized Mean ( 16 / 40 )3309.675156.6568513355821.1269087293873
Winsorized Mean ( 17 / 40 )3314.06666666667155.4792936276921.3151641568588
Winsorized Mean ( 18 / 40 )3312.56666666667154.84754575916821.3924389335731
Winsorized Mean ( 19 / 40 )3314.15153.06663689103421.6516810411095
Winsorized Mean ( 20 / 40 )3248.81666666667143.47664582372122.6435225608651
Winsorized Mean ( 21 / 40 )3232.54166666667141.30418739289622.8764746912885
Winsorized Mean ( 22 / 40 )3196.425136.62377631749223.395817961963
Winsorized Mean ( 23 / 40 )3184.73333333333133.76893762804723.80771941382
Winsorized Mean ( 24 / 40 )3188.73333333333132.83325762925324.005534383816
Winsorized Mean ( 25 / 40 )3188.73333333333132.83325762925324.005534383816
Winsorized Mean ( 26 / 40 )3200131.1484559840624.3998297653534
Winsorized Mean ( 27 / 40 )3204.725130.14294121776124.6246547835254
Winsorized Mean ( 28 / 40 )3221.525126.78857208579425.4086385468565
Winsorized Mean ( 29 / 40 )3236.50833333333123.62436609735926.1801814278623
Winsorized Mean ( 30 / 40 )3231.25833333333122.96970004138426.2768660267195
Winsorized Mean ( 31 / 40 )3212.4120.06253412634726.7560569446206
Winsorized Mean ( 32 / 40 )3140.93333333333110.23408231499128.4933050411596
Winsorized Mean ( 33 / 40 )3123.88333333333106.40196378274929.3592638920807
Winsorized Mean ( 34 / 40 )3059.5666666666799.12953126215230.8643310193359
Winsorized Mean ( 35 / 40 )3053.4416666666797.161340881450531.4265081046202
Winsorized Mean ( 36 / 40 )3053.4416666666795.898353630853931.8403971607315
Winsorized Mean ( 37 / 40 )3053.4416666666794.540048126159532.2978645260682
Winsorized Mean ( 38 / 40 )3046.7916666666793.817696675523232.4756605057601
Winsorized Mean ( 39 / 40 )3063.6916666666791.450045903624233.5012589265989
Winsorized Mean ( 40 / 40 )3108.6916666666786.382379670993835.9875668916138
Trimmed Mean ( 1 / 40 )3342.65254237288171.19071388686619.5258987270882
Trimmed Mean ( 2 / 40 )3330.18103448276169.83136869546319.6087510809287
Trimmed Mean ( 3 / 40 )3317.36842105263168.31983507092819.7087195318053
Trimmed Mean ( 4 / 40 )3304.08928571429166.64918934436219.8266148111093
Trimmed Mean ( 5 / 40 )3290.99090909091164.96920403864319.9491227970041
Trimmed Mean ( 6 / 40 )3277.87962962963163.24068128770720.0800413461426
Trimmed Mean ( 7 / 40 )3264.3679245283161.37677271488820.2282389814277
Trimmed Mean ( 8 / 40 )3251.03846153846159.42380609023420.3924278391545
Trimmed Mean ( 9 / 40 )3241.13725490196158.08846551040520.5020476632347
Trimmed Mean ( 10 / 40 )3231.36156.69993813049520.6213227557819
Trimmed Mean ( 11 / 40 )3223.08163265306155.4920274562520.7282758182565
Trimmed Mean ( 12 / 40 )3214.78125154.16135401215420.8533537513334
Trimmed Mean ( 13 / 40 )3206.1170212766152.66419640792821.0011063282295
Trimmed Mean ( 14 / 40 )3196.52173913043151.0201347452921.1661957825801
Trimmed Mean ( 15 / 40 )3186.04444444444149.40287799382221.3251878894609
Trimmed Mean ( 16 / 40 )3175.55681818182147.67735282569821.5033433185242
Trimmed Mean ( 17 / 40 )3163.86046511628145.78070234854221.7028757177471
Trimmed Mean ( 18 / 40 )3151.2380952381143.72110811857721.9260631683842
Trimmed Mean ( 19 / 40 )3138.12195121951141.401458958822.192995562612
Trimmed Mean ( 20 / 40 )3124.225138.92218700668922.489028335334
Trimmed Mean ( 21 / 40 )3114.64102564103137.33117080368922.6797820728793
Trimmed Mean ( 22 / 40 )3105.77631578947135.72631207327522.8826398385654
Trimmed Mean ( 23 / 40 )3099.09459459459134.42328605191423.0547450937758
Trimmed Mean ( 24 / 40 )3092.88888888889133.20499480082823.2190158748436
Trimmed Mean ( 25 / 40 )3086.04285714286131.82641267580223.4098978687398
Trimmed Mean ( 26 / 40 )3078.79411764706130.13918489298623.6577024835276
Trimmed Mean ( 27 / 40 )3070.31818181818128.29329407625923.9320239138388
Trimmed Mean ( 28 / 40 )3060.984375126.16644353511524.261477848094
Trimmed Mean ( 29 / 40 )3049.88709677419124.00522435054424.5948274578547
Trimmed Mean ( 30 / 40 )3037.01666666667121.76055388001324.9425332744416
Trimmed Mean ( 31 / 40 )3023.62068965517119.07205703115225.3932011006086
Trimmed Mean ( 32 / 40 )3010.57142857143116.21369383385225.9054792017502
Trimmed Mean ( 33 / 40 )3001.51851851852114.32426799891426.2544302365183
Trimmed Mean ( 34 / 40 )2992.96153846154112.53062918570626.5968613178402
Trimmed Mean ( 35 / 40 )2988.26111.440324691526.8148895677789
Trimmed Mean ( 36 / 40 )2983.60416666667110.26339250440727.0588823624977
Trimmed Mean ( 37 / 40 )2978.54347826087108.84773616450227.364312600488
Trimmed Mean ( 38 / 40 )2973.02272727273107.14139503111727.7485907889221
Trimmed Mean ( 39 / 40 )2967.47619047619104.9424832130528.2771676409804
Trimmed Mean ( 40 / 40 )2960.075102.39960303596428.9070944831727
Median2790
Midrange4061
Midmean - Weighted Average at Xnp3016.70491803279
Midmean - Weighted Average at X(n+1)p3016.70491803279
Midmean - Empirical Distribution Function3016.70491803279
Midmean - Empirical Distribution Function - Averaging3016.70491803279
Midmean - Empirical Distribution Function - Interpolation3016.70491803279
Midmean - Closest Observation3016.70491803279
Midmean - True Basic - Statistics Graphics Toolkit3016.70491803279
Midmean - MS Excel (old versions)3049.88709677419
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')