Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationTue, 16 Mar 2010 17:36:09 -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/t1268782704zx5ssy0bopxuybv.htm/, Retrieved Fri, 21 Jan 2022 11:33:25 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74493, Retrieved Fri, 21 Jan 2022 11:33:25 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact136
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [Melino Olivini - ...] [2010-03-16 23:36:09] [2156736b6f7843cba1ea73b621b47743] [Current]
Feedback Forum

Post a new message
Dataseries X:
5221,3
5115,9
5107,4
5202,1
5307,5
5266,1
5329,8
5263,4
5177,1
5204,9
5185,2
5189,8
5253,8
5372,3
5478,4
5590,5
5699,8
5797,9
5854,3
5902,4
5956,9
6007,8
6101,7
6148,6
6207,4
6232
6291,7
6323,4
6365
6435
6493,4
6606,8
6639,1
6723,5
6759,4
6848,6
6918,1
6963,5
7013,1
7030,9
7112,1
7130,3
7130,8
7076,9
7040,8
7086,5
7120,7
7154,1
7228,2
7297,9
7369,5
7450,7
7459,7
7497,5
7536
7637,4
7715,1
7815,7
7859,5
7951,6
7973,7
7988
8053,1
8112
8169,2
8303,1
8372,7
8470,6
8536,1
8665,8
8773,7
8838,4
8936,2
8995,3
9098,9
9237,1
9315,5
9392,6
9502,2
9671,1
9695,6
9847,9
9836,6
9887,7
9875,6
9905,9
9871,1
9910
9977,3
10031,6
10090,7
10095,8
10126
10212,7
10398,7
10467
10543,6
10634,2
10728,7
10796,4
10875,8
10946,1
11050
11086,1
11217,3
11291,7
11314,1
11356,4
11357,8
11491,4
11625,7
11620,7
11646
11700,6




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=74493&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=74493&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74493&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 Mean8080.48157894737189.07362715592142.7372220044403
Geometric Mean7829.12982272115
Harmonic Mean7582.03306404301
Quadratic Mean8326.69208453237
Winsorized Mean ( 1 / 38 )8080.07719298246188.98270036066342.7556447101354
Winsorized Mean ( 2 / 38 )8080.7947368421188.77578128514542.8063106497549
Winsorized Mean ( 3 / 38 )8080.87631578947188.724948988242.818272619031
Winsorized Mean ( 4 / 38 )8076.50087719298187.96175577509442.9688520618892
Winsorized Mean ( 5 / 38 )8071.18070175439186.96158342359343.1702628634021
Winsorized Mean ( 6 / 38 )8071.25438596491186.93011680093343.1779240504097
Winsorized Mean ( 7 / 38 )8069.66403508772186.39167053322443.2941236698092
Winsorized Mean ( 8 / 38 )8070.37280701754185.84287397086943.4257856358946
Winsorized Mean ( 9 / 38 )8065.25701754386184.84752142242043.6319457003314
Winsorized Mean ( 10 / 38 )8053.9850877193183.10392978998943.9858669169843
Winsorized Mean ( 11 / 38 )8054.49649122807182.05926170464944.2410697253882
Winsorized Mean ( 12 / 38 )8045.90701754386180.17065978135244.6571435510535
Winsorized Mean ( 13 / 38 )8042.73684210526178.39198883869345.0846301701234
Winsorized Mean ( 14 / 38 )8046.01578947368175.32230430248245.8927106935119
Winsorized Mean ( 15 / 38 )8051.85789473684172.20232366213546.7581256948355
Winsorized Mean ( 16 / 38 )8053.9350877193168.47215989628347.8057329631054
Winsorized Mean ( 17 / 38 )8055.05350877193164.86313848072848.8590329105833
Winsorized Mean ( 18 / 38 )8051.86403508772162.18487128881249.6462091137299
Winsorized Mean ( 19 / 38 )8048.49736842105159.73643242609950.3861094565553
Winsorized Mean ( 20 / 38 )8025.42719298246154.43057071405451.9678659210713
Winsorized Mean ( 21 / 38 )8018.83245614035151.3384696255352.9860813049191
Winsorized Mean ( 22 / 38 )8031.1254385965148.51350543331054.0767347398104
Winsorized Mean ( 23 / 38 )8039.55877192983147.30538445914354.5774942406109
Winsorized Mean ( 24 / 38 )8039.49561403509144.38085816229355.6825587294835
Winsorized Mean ( 25 / 38 )8032.98245614035142.32907901693156.4395028171634
Winsorized Mean ( 26 / 38 )8031.24912280702138.96638549498357.7927467437582
Winsorized Mean ( 27 / 38 )8037.78596491228138.02164052209358.2356935804257
Winsorized Mean ( 28 / 38 )8043.53333333333136.36835623413858.9838695387878
Winsorized Mean ( 29 / 38 )8058.26228070175134.07564995389060.1023547786127
Winsorized Mean ( 30 / 38 )8072.44649122807132.29837240285261.0169750739431
Winsorized Mean ( 31 / 38 )8096.97456140351128.32427592495963.097761534524
Winsorized Mean ( 32 / 38 )8102.86929824562127.01296106222463.795609758881
Winsorized Mean ( 33 / 38 )8086.4850877193119.63980127755267.5902584371525
Winsorized Mean ( 34 / 38 )8089.8850877193117.69524329297968.73587123297
Winsorized Mean ( 35 / 38 )8065.41578947368108.85712858033674.0917558147924
Winsorized Mean ( 36 / 38 )8052.75263157895102.67771504828578.4274623543389
Winsorized Mean ( 37 / 38 )8042.4640350877298.363817397912681.762422889236
Winsorized Mean ( 38 / 38 )8032.8640350877293.784088358309485.6527389208875
Trimmed Mean ( 1 / 38 )8074.70446428571187.8227171600542.9910959993460
Trimmed Mean ( 2 / 38 )8069.13636363636186.50380978798643.2652629070108
Trimmed Mean ( 3 / 38 )8062.98333333333185.12508470683343.5542452072447
Trimmed Mean ( 4 / 38 )8056.56886792453183.57920989625543.886063527986
Trimmed Mean ( 5 / 38 )8051.10673076923182.06460290974244.2211533823549
Trimmed Mean ( 6 / 38 )8046.61960784314180.60251972258944.5543042267794
Trimmed Mean ( 7 / 38 )8041.939178.93932990728144.9422662092622
Trimmed Mean ( 8 / 38 )8037.33163265306177.15217657796245.3696465259964
Trimmed Mean ( 9 / 38 )8032.42708333333175.21431617637945.84344052827
Trimmed Mean ( 10 / 38 )8028.00319148936173.17593670830246.3574982996151
Trimmed Mean ( 11 / 38 )8024.78369565217171.13443857423446.8916938198339
Trimmed Mean ( 12 / 38 )8021.36222222222168.95585677041047.4760826617705
Trimmed Mean ( 13 / 38 )8018.7125166.74040831931048.0909971423606
Trimmed Mean ( 14 / 38 )8016.26279069767164.44905855377948.746176239593
Trimmed Mean ( 15 / 38 )8013.37857142857162.24071223481049.391909472333
Trimmed Mean ( 16 / 38 )8009.81219512195160.11182932677150.0263611302247
Trimmed Mean ( 17 / 38 )8005.8825158.13798177836250.6259306585854
Trimmed Mean ( 18 / 38 )8001.65512820513156.30365252833351.1930143587316
Trimmed Mean ( 19 / 38 )7997.47105263158154.48907636186851.7672267901885
Trimmed Mean ( 20 / 38 )7993.33378378378152.65434772337452.3623067602934
Trimmed Mean ( 21 / 38 )7990.79305555556151.16370603555552.8618493494467
Trimmed Mean ( 22 / 38 )7988.61857142857149.75472090005953.3446860534027
Trimmed Mean ( 23 / 38 )7985.3794117647148.38795197489353.8142032792248
Trimmed Mean ( 24 / 38 )7981.3106060606146.84821334574754.3507505077298
Trimmed Mean ( 25 / 38 )7976.9921875145.33044879428954.8886503391399
Trimmed Mean ( 26 / 38 )7972.87419354839143.71400128994555.4773656149412
Trimmed Mean ( 27 / 38 )7968.60833333333142.15100197757956.0573490336014
Trimmed Mean ( 28 / 38 )7963.5724137931140.29522464875456.7629613461959
Trimmed Mean ( 29 / 38 )7957.75892857143138.18345884096257.5883611201986
Trimmed Mean ( 30 / 38 )7950.4425925926135.84091009470958.5276010522124
Trimmed Mean ( 31 / 38 )7941.52692307692133.11975811602959.6570113668247
Trimmed Mean ( 32 / 38 )7930.094130.26418585947860.8770088852707
Trimmed Mean ( 33 / 38 )7917.27083333333126.78535978299962.4462544167896
Trimmed Mean ( 34 / 38 )7904.56304347826123.68957963282963.9064589510522
Trimmed Mean ( 35 / 38 )7890.44090909091119.96373598977165.7735510151476
Trimmed Mean ( 36 / 38 )7876.87142857143116.91296976988867.3738033006512
Trimmed Mean ( 37 / 38 )7862.9475114.11019078445868.906619522285
Trimmed Mean ( 38 / 38 )7848.39210526316111.20063233326070.5786643527538
Median7765.4
Midrange8404
Midmean - Weighted Average at Xnp7929.81578947368
Midmean - Weighted Average at X(n+1)p7963.5724137931
Midmean - Empirical Distribution Function7963.5724137931
Midmean - Empirical Distribution Function - Averaging7963.5724137931
Midmean - Empirical Distribution Function - Interpolation7957.75892857143
Midmean - Closest Observation7963.5724137931
Midmean - True Basic - Statistics Graphics Toolkit7963.5724137931
Midmean - MS Excel (old versions)7963.5724137931
Number of observations114

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 8080.48157894737 & 189.073627155921 & 42.7372220044403 \tabularnewline
Geometric Mean & 7829.12982272115 &  &  \tabularnewline
Harmonic Mean & 7582.03306404301 &  &  \tabularnewline
Quadratic Mean & 8326.69208453237 &  &  \tabularnewline
Winsorized Mean ( 1 / 38 ) & 8080.07719298246 & 188.982700360663 & 42.7556447101354 \tabularnewline
Winsorized Mean ( 2 / 38 ) & 8080.7947368421 & 188.775781285145 & 42.8063106497549 \tabularnewline
Winsorized Mean ( 3 / 38 ) & 8080.87631578947 & 188.7249489882 & 42.818272619031 \tabularnewline
Winsorized Mean ( 4 / 38 ) & 8076.50087719298 & 187.961755775094 & 42.9688520618892 \tabularnewline
Winsorized Mean ( 5 / 38 ) & 8071.18070175439 & 186.961583423593 & 43.1702628634021 \tabularnewline
Winsorized Mean ( 6 / 38 ) & 8071.25438596491 & 186.930116800933 & 43.1779240504097 \tabularnewline
Winsorized Mean ( 7 / 38 ) & 8069.66403508772 & 186.391670533224 & 43.2941236698092 \tabularnewline
Winsorized Mean ( 8 / 38 ) & 8070.37280701754 & 185.842873970869 & 43.4257856358946 \tabularnewline
Winsorized Mean ( 9 / 38 ) & 8065.25701754386 & 184.847521422420 & 43.6319457003314 \tabularnewline
Winsorized Mean ( 10 / 38 ) & 8053.9850877193 & 183.103929789989 & 43.9858669169843 \tabularnewline
Winsorized Mean ( 11 / 38 ) & 8054.49649122807 & 182.059261704649 & 44.2410697253882 \tabularnewline
Winsorized Mean ( 12 / 38 ) & 8045.90701754386 & 180.170659781352 & 44.6571435510535 \tabularnewline
Winsorized Mean ( 13 / 38 ) & 8042.73684210526 & 178.391988838693 & 45.0846301701234 \tabularnewline
Winsorized Mean ( 14 / 38 ) & 8046.01578947368 & 175.322304302482 & 45.8927106935119 \tabularnewline
Winsorized Mean ( 15 / 38 ) & 8051.85789473684 & 172.202323662135 & 46.7581256948355 \tabularnewline
Winsorized Mean ( 16 / 38 ) & 8053.9350877193 & 168.472159896283 & 47.8057329631054 \tabularnewline
Winsorized Mean ( 17 / 38 ) & 8055.05350877193 & 164.863138480728 & 48.8590329105833 \tabularnewline
Winsorized Mean ( 18 / 38 ) & 8051.86403508772 & 162.184871288812 & 49.6462091137299 \tabularnewline
Winsorized Mean ( 19 / 38 ) & 8048.49736842105 & 159.736432426099 & 50.3861094565553 \tabularnewline
Winsorized Mean ( 20 / 38 ) & 8025.42719298246 & 154.430570714054 & 51.9678659210713 \tabularnewline
Winsorized Mean ( 21 / 38 ) & 8018.83245614035 & 151.33846962553 & 52.9860813049191 \tabularnewline
Winsorized Mean ( 22 / 38 ) & 8031.1254385965 & 148.513505433310 & 54.0767347398104 \tabularnewline
Winsorized Mean ( 23 / 38 ) & 8039.55877192983 & 147.305384459143 & 54.5774942406109 \tabularnewline
Winsorized Mean ( 24 / 38 ) & 8039.49561403509 & 144.380858162293 & 55.6825587294835 \tabularnewline
Winsorized Mean ( 25 / 38 ) & 8032.98245614035 & 142.329079016931 & 56.4395028171634 \tabularnewline
Winsorized Mean ( 26 / 38 ) & 8031.24912280702 & 138.966385494983 & 57.7927467437582 \tabularnewline
Winsorized Mean ( 27 / 38 ) & 8037.78596491228 & 138.021640522093 & 58.2356935804257 \tabularnewline
Winsorized Mean ( 28 / 38 ) & 8043.53333333333 & 136.368356234138 & 58.9838695387878 \tabularnewline
Winsorized Mean ( 29 / 38 ) & 8058.26228070175 & 134.075649953890 & 60.1023547786127 \tabularnewline
Winsorized Mean ( 30 / 38 ) & 8072.44649122807 & 132.298372402852 & 61.0169750739431 \tabularnewline
Winsorized Mean ( 31 / 38 ) & 8096.97456140351 & 128.324275924959 & 63.097761534524 \tabularnewline
Winsorized Mean ( 32 / 38 ) & 8102.86929824562 & 127.012961062224 & 63.795609758881 \tabularnewline
Winsorized Mean ( 33 / 38 ) & 8086.4850877193 & 119.639801277552 & 67.5902584371525 \tabularnewline
Winsorized Mean ( 34 / 38 ) & 8089.8850877193 & 117.695243292979 & 68.73587123297 \tabularnewline
Winsorized Mean ( 35 / 38 ) & 8065.41578947368 & 108.857128580336 & 74.0917558147924 \tabularnewline
Winsorized Mean ( 36 / 38 ) & 8052.75263157895 & 102.677715048285 & 78.4274623543389 \tabularnewline
Winsorized Mean ( 37 / 38 ) & 8042.46403508772 & 98.3638173979126 & 81.762422889236 \tabularnewline
Winsorized Mean ( 38 / 38 ) & 8032.86403508772 & 93.7840883583094 & 85.6527389208875 \tabularnewline
Trimmed Mean ( 1 / 38 ) & 8074.70446428571 & 187.82271716005 & 42.9910959993460 \tabularnewline
Trimmed Mean ( 2 / 38 ) & 8069.13636363636 & 186.503809787986 & 43.2652629070108 \tabularnewline
Trimmed Mean ( 3 / 38 ) & 8062.98333333333 & 185.125084706833 & 43.5542452072447 \tabularnewline
Trimmed Mean ( 4 / 38 ) & 8056.56886792453 & 183.579209896255 & 43.886063527986 \tabularnewline
Trimmed Mean ( 5 / 38 ) & 8051.10673076923 & 182.064602909742 & 44.2211533823549 \tabularnewline
Trimmed Mean ( 6 / 38 ) & 8046.61960784314 & 180.602519722589 & 44.5543042267794 \tabularnewline
Trimmed Mean ( 7 / 38 ) & 8041.939 & 178.939329907281 & 44.9422662092622 \tabularnewline
Trimmed Mean ( 8 / 38 ) & 8037.33163265306 & 177.152176577962 & 45.3696465259964 \tabularnewline
Trimmed Mean ( 9 / 38 ) & 8032.42708333333 & 175.214316176379 & 45.84344052827 \tabularnewline
Trimmed Mean ( 10 / 38 ) & 8028.00319148936 & 173.175936708302 & 46.3574982996151 \tabularnewline
Trimmed Mean ( 11 / 38 ) & 8024.78369565217 & 171.134438574234 & 46.8916938198339 \tabularnewline
Trimmed Mean ( 12 / 38 ) & 8021.36222222222 & 168.955856770410 & 47.4760826617705 \tabularnewline
Trimmed Mean ( 13 / 38 ) & 8018.7125 & 166.740408319310 & 48.0909971423606 \tabularnewline
Trimmed Mean ( 14 / 38 ) & 8016.26279069767 & 164.449058553779 & 48.746176239593 \tabularnewline
Trimmed Mean ( 15 / 38 ) & 8013.37857142857 & 162.240712234810 & 49.391909472333 \tabularnewline
Trimmed Mean ( 16 / 38 ) & 8009.81219512195 & 160.111829326771 & 50.0263611302247 \tabularnewline
Trimmed Mean ( 17 / 38 ) & 8005.8825 & 158.137981778362 & 50.6259306585854 \tabularnewline
Trimmed Mean ( 18 / 38 ) & 8001.65512820513 & 156.303652528333 & 51.1930143587316 \tabularnewline
Trimmed Mean ( 19 / 38 ) & 7997.47105263158 & 154.489076361868 & 51.7672267901885 \tabularnewline
Trimmed Mean ( 20 / 38 ) & 7993.33378378378 & 152.654347723374 & 52.3623067602934 \tabularnewline
Trimmed Mean ( 21 / 38 ) & 7990.79305555556 & 151.163706035555 & 52.8618493494467 \tabularnewline
Trimmed Mean ( 22 / 38 ) & 7988.61857142857 & 149.754720900059 & 53.3446860534027 \tabularnewline
Trimmed Mean ( 23 / 38 ) & 7985.3794117647 & 148.387951974893 & 53.8142032792248 \tabularnewline
Trimmed Mean ( 24 / 38 ) & 7981.3106060606 & 146.848213345747 & 54.3507505077298 \tabularnewline
Trimmed Mean ( 25 / 38 ) & 7976.9921875 & 145.330448794289 & 54.8886503391399 \tabularnewline
Trimmed Mean ( 26 / 38 ) & 7972.87419354839 & 143.714001289945 & 55.4773656149412 \tabularnewline
Trimmed Mean ( 27 / 38 ) & 7968.60833333333 & 142.151001977579 & 56.0573490336014 \tabularnewline
Trimmed Mean ( 28 / 38 ) & 7963.5724137931 & 140.295224648754 & 56.7629613461959 \tabularnewline
Trimmed Mean ( 29 / 38 ) & 7957.75892857143 & 138.183458840962 & 57.5883611201986 \tabularnewline
Trimmed Mean ( 30 / 38 ) & 7950.4425925926 & 135.840910094709 & 58.5276010522124 \tabularnewline
Trimmed Mean ( 31 / 38 ) & 7941.52692307692 & 133.119758116029 & 59.6570113668247 \tabularnewline
Trimmed Mean ( 32 / 38 ) & 7930.094 & 130.264185859478 & 60.8770088852707 \tabularnewline
Trimmed Mean ( 33 / 38 ) & 7917.27083333333 & 126.785359782999 & 62.4462544167896 \tabularnewline
Trimmed Mean ( 34 / 38 ) & 7904.56304347826 & 123.689579632829 & 63.9064589510522 \tabularnewline
Trimmed Mean ( 35 / 38 ) & 7890.44090909091 & 119.963735989771 & 65.7735510151476 \tabularnewline
Trimmed Mean ( 36 / 38 ) & 7876.87142857143 & 116.912969769888 & 67.3738033006512 \tabularnewline
Trimmed Mean ( 37 / 38 ) & 7862.9475 & 114.110190784458 & 68.906619522285 \tabularnewline
Trimmed Mean ( 38 / 38 ) & 7848.39210526316 & 111.200632333260 & 70.5786643527538 \tabularnewline
Median & 7765.4 &  &  \tabularnewline
Midrange & 8404 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 7929.81578947368 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 7963.5724137931 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 7963.5724137931 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 7963.5724137931 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 7957.75892857143 &  &  \tabularnewline
Midmean - Closest Observation & 7963.5724137931 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 7963.5724137931 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 7963.5724137931 &  &  \tabularnewline
Number of observations & 114 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74493&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]8080.48157894737[/C][C]189.073627155921[/C][C]42.7372220044403[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]7829.12982272115[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]7582.03306404301[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]8326.69208453237[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 38 )[/C][C]8080.07719298246[/C][C]188.982700360663[/C][C]42.7556447101354[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 38 )[/C][C]8080.7947368421[/C][C]188.775781285145[/C][C]42.8063106497549[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 38 )[/C][C]8080.87631578947[/C][C]188.7249489882[/C][C]42.818272619031[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 38 )[/C][C]8076.50087719298[/C][C]187.961755775094[/C][C]42.9688520618892[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 38 )[/C][C]8071.18070175439[/C][C]186.961583423593[/C][C]43.1702628634021[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 38 )[/C][C]8071.25438596491[/C][C]186.930116800933[/C][C]43.1779240504097[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 38 )[/C][C]8069.66403508772[/C][C]186.391670533224[/C][C]43.2941236698092[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 38 )[/C][C]8070.37280701754[/C][C]185.842873970869[/C][C]43.4257856358946[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 38 )[/C][C]8065.25701754386[/C][C]184.847521422420[/C][C]43.6319457003314[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 38 )[/C][C]8053.9850877193[/C][C]183.103929789989[/C][C]43.9858669169843[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 38 )[/C][C]8054.49649122807[/C][C]182.059261704649[/C][C]44.2410697253882[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 38 )[/C][C]8045.90701754386[/C][C]180.170659781352[/C][C]44.6571435510535[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 38 )[/C][C]8042.73684210526[/C][C]178.391988838693[/C][C]45.0846301701234[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 38 )[/C][C]8046.01578947368[/C][C]175.322304302482[/C][C]45.8927106935119[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 38 )[/C][C]8051.85789473684[/C][C]172.202323662135[/C][C]46.7581256948355[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 38 )[/C][C]8053.9350877193[/C][C]168.472159896283[/C][C]47.8057329631054[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 38 )[/C][C]8055.05350877193[/C][C]164.863138480728[/C][C]48.8590329105833[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 38 )[/C][C]8051.86403508772[/C][C]162.184871288812[/C][C]49.6462091137299[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 38 )[/C][C]8048.49736842105[/C][C]159.736432426099[/C][C]50.3861094565553[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 38 )[/C][C]8025.42719298246[/C][C]154.430570714054[/C][C]51.9678659210713[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 38 )[/C][C]8018.83245614035[/C][C]151.33846962553[/C][C]52.9860813049191[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 38 )[/C][C]8031.1254385965[/C][C]148.513505433310[/C][C]54.0767347398104[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 38 )[/C][C]8039.55877192983[/C][C]147.305384459143[/C][C]54.5774942406109[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 38 )[/C][C]8039.49561403509[/C][C]144.380858162293[/C][C]55.6825587294835[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 38 )[/C][C]8032.98245614035[/C][C]142.329079016931[/C][C]56.4395028171634[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 38 )[/C][C]8031.24912280702[/C][C]138.966385494983[/C][C]57.7927467437582[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 38 )[/C][C]8037.78596491228[/C][C]138.021640522093[/C][C]58.2356935804257[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 38 )[/C][C]8043.53333333333[/C][C]136.368356234138[/C][C]58.9838695387878[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 38 )[/C][C]8058.26228070175[/C][C]134.075649953890[/C][C]60.1023547786127[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 38 )[/C][C]8072.44649122807[/C][C]132.298372402852[/C][C]61.0169750739431[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 38 )[/C][C]8096.97456140351[/C][C]128.324275924959[/C][C]63.097761534524[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 38 )[/C][C]8102.86929824562[/C][C]127.012961062224[/C][C]63.795609758881[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 38 )[/C][C]8086.4850877193[/C][C]119.639801277552[/C][C]67.5902584371525[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 38 )[/C][C]8089.8850877193[/C][C]117.695243292979[/C][C]68.73587123297[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 38 )[/C][C]8065.41578947368[/C][C]108.857128580336[/C][C]74.0917558147924[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 38 )[/C][C]8052.75263157895[/C][C]102.677715048285[/C][C]78.4274623543389[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 38 )[/C][C]8042.46403508772[/C][C]98.3638173979126[/C][C]81.762422889236[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 38 )[/C][C]8032.86403508772[/C][C]93.7840883583094[/C][C]85.6527389208875[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 38 )[/C][C]8074.70446428571[/C][C]187.82271716005[/C][C]42.9910959993460[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 38 )[/C][C]8069.13636363636[/C][C]186.503809787986[/C][C]43.2652629070108[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 38 )[/C][C]8062.98333333333[/C][C]185.125084706833[/C][C]43.5542452072447[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 38 )[/C][C]8056.56886792453[/C][C]183.579209896255[/C][C]43.886063527986[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 38 )[/C][C]8051.10673076923[/C][C]182.064602909742[/C][C]44.2211533823549[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 38 )[/C][C]8046.61960784314[/C][C]180.602519722589[/C][C]44.5543042267794[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 38 )[/C][C]8041.939[/C][C]178.939329907281[/C][C]44.9422662092622[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 38 )[/C][C]8037.33163265306[/C][C]177.152176577962[/C][C]45.3696465259964[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 38 )[/C][C]8032.42708333333[/C][C]175.214316176379[/C][C]45.84344052827[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 38 )[/C][C]8028.00319148936[/C][C]173.175936708302[/C][C]46.3574982996151[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 38 )[/C][C]8024.78369565217[/C][C]171.134438574234[/C][C]46.8916938198339[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 38 )[/C][C]8021.36222222222[/C][C]168.955856770410[/C][C]47.4760826617705[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 38 )[/C][C]8018.7125[/C][C]166.740408319310[/C][C]48.0909971423606[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 38 )[/C][C]8016.26279069767[/C][C]164.449058553779[/C][C]48.746176239593[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 38 )[/C][C]8013.37857142857[/C][C]162.240712234810[/C][C]49.391909472333[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 38 )[/C][C]8009.81219512195[/C][C]160.111829326771[/C][C]50.0263611302247[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 38 )[/C][C]8005.8825[/C][C]158.137981778362[/C][C]50.6259306585854[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 38 )[/C][C]8001.65512820513[/C][C]156.303652528333[/C][C]51.1930143587316[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 38 )[/C][C]7997.47105263158[/C][C]154.489076361868[/C][C]51.7672267901885[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 38 )[/C][C]7993.33378378378[/C][C]152.654347723374[/C][C]52.3623067602934[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 38 )[/C][C]7990.79305555556[/C][C]151.163706035555[/C][C]52.8618493494467[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 38 )[/C][C]7988.61857142857[/C][C]149.754720900059[/C][C]53.3446860534027[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 38 )[/C][C]7985.3794117647[/C][C]148.387951974893[/C][C]53.8142032792248[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 38 )[/C][C]7981.3106060606[/C][C]146.848213345747[/C][C]54.3507505077298[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 38 )[/C][C]7976.9921875[/C][C]145.330448794289[/C][C]54.8886503391399[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 38 )[/C][C]7972.87419354839[/C][C]143.714001289945[/C][C]55.4773656149412[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 38 )[/C][C]7968.60833333333[/C][C]142.151001977579[/C][C]56.0573490336014[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 38 )[/C][C]7963.5724137931[/C][C]140.295224648754[/C][C]56.7629613461959[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 38 )[/C][C]7957.75892857143[/C][C]138.183458840962[/C][C]57.5883611201986[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 38 )[/C][C]7950.4425925926[/C][C]135.840910094709[/C][C]58.5276010522124[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 38 )[/C][C]7941.52692307692[/C][C]133.119758116029[/C][C]59.6570113668247[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 38 )[/C][C]7930.094[/C][C]130.264185859478[/C][C]60.8770088852707[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 38 )[/C][C]7917.27083333333[/C][C]126.785359782999[/C][C]62.4462544167896[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 38 )[/C][C]7904.56304347826[/C][C]123.689579632829[/C][C]63.9064589510522[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 38 )[/C][C]7890.44090909091[/C][C]119.963735989771[/C][C]65.7735510151476[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 38 )[/C][C]7876.87142857143[/C][C]116.912969769888[/C][C]67.3738033006512[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 38 )[/C][C]7862.9475[/C][C]114.110190784458[/C][C]68.906619522285[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 38 )[/C][C]7848.39210526316[/C][C]111.200632333260[/C][C]70.5786643527538[/C][/ROW]
[ROW][C]Median[/C][C]7765.4[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]8404[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]7929.81578947368[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]7957.75892857143[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]7963.5724137931[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]114[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74493&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74493&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 Mean8080.48157894737189.07362715592142.7372220044403
Geometric Mean7829.12982272115
Harmonic Mean7582.03306404301
Quadratic Mean8326.69208453237
Winsorized Mean ( 1 / 38 )8080.07719298246188.98270036066342.7556447101354
Winsorized Mean ( 2 / 38 )8080.7947368421188.77578128514542.8063106497549
Winsorized Mean ( 3 / 38 )8080.87631578947188.724948988242.818272619031
Winsorized Mean ( 4 / 38 )8076.50087719298187.96175577509442.9688520618892
Winsorized Mean ( 5 / 38 )8071.18070175439186.96158342359343.1702628634021
Winsorized Mean ( 6 / 38 )8071.25438596491186.93011680093343.1779240504097
Winsorized Mean ( 7 / 38 )8069.66403508772186.39167053322443.2941236698092
Winsorized Mean ( 8 / 38 )8070.37280701754185.84287397086943.4257856358946
Winsorized Mean ( 9 / 38 )8065.25701754386184.84752142242043.6319457003314
Winsorized Mean ( 10 / 38 )8053.9850877193183.10392978998943.9858669169843
Winsorized Mean ( 11 / 38 )8054.49649122807182.05926170464944.2410697253882
Winsorized Mean ( 12 / 38 )8045.90701754386180.17065978135244.6571435510535
Winsorized Mean ( 13 / 38 )8042.73684210526178.39198883869345.0846301701234
Winsorized Mean ( 14 / 38 )8046.01578947368175.32230430248245.8927106935119
Winsorized Mean ( 15 / 38 )8051.85789473684172.20232366213546.7581256948355
Winsorized Mean ( 16 / 38 )8053.9350877193168.47215989628347.8057329631054
Winsorized Mean ( 17 / 38 )8055.05350877193164.86313848072848.8590329105833
Winsorized Mean ( 18 / 38 )8051.86403508772162.18487128881249.6462091137299
Winsorized Mean ( 19 / 38 )8048.49736842105159.73643242609950.3861094565553
Winsorized Mean ( 20 / 38 )8025.42719298246154.43057071405451.9678659210713
Winsorized Mean ( 21 / 38 )8018.83245614035151.3384696255352.9860813049191
Winsorized Mean ( 22 / 38 )8031.1254385965148.51350543331054.0767347398104
Winsorized Mean ( 23 / 38 )8039.55877192983147.30538445914354.5774942406109
Winsorized Mean ( 24 / 38 )8039.49561403509144.38085816229355.6825587294835
Winsorized Mean ( 25 / 38 )8032.98245614035142.32907901693156.4395028171634
Winsorized Mean ( 26 / 38 )8031.24912280702138.96638549498357.7927467437582
Winsorized Mean ( 27 / 38 )8037.78596491228138.02164052209358.2356935804257
Winsorized Mean ( 28 / 38 )8043.53333333333136.36835623413858.9838695387878
Winsorized Mean ( 29 / 38 )8058.26228070175134.07564995389060.1023547786127
Winsorized Mean ( 30 / 38 )8072.44649122807132.29837240285261.0169750739431
Winsorized Mean ( 31 / 38 )8096.97456140351128.32427592495963.097761534524
Winsorized Mean ( 32 / 38 )8102.86929824562127.01296106222463.795609758881
Winsorized Mean ( 33 / 38 )8086.4850877193119.63980127755267.5902584371525
Winsorized Mean ( 34 / 38 )8089.8850877193117.69524329297968.73587123297
Winsorized Mean ( 35 / 38 )8065.41578947368108.85712858033674.0917558147924
Winsorized Mean ( 36 / 38 )8052.75263157895102.67771504828578.4274623543389
Winsorized Mean ( 37 / 38 )8042.4640350877298.363817397912681.762422889236
Winsorized Mean ( 38 / 38 )8032.8640350877293.784088358309485.6527389208875
Trimmed Mean ( 1 / 38 )8074.70446428571187.8227171600542.9910959993460
Trimmed Mean ( 2 / 38 )8069.13636363636186.50380978798643.2652629070108
Trimmed Mean ( 3 / 38 )8062.98333333333185.12508470683343.5542452072447
Trimmed Mean ( 4 / 38 )8056.56886792453183.57920989625543.886063527986
Trimmed Mean ( 5 / 38 )8051.10673076923182.06460290974244.2211533823549
Trimmed Mean ( 6 / 38 )8046.61960784314180.60251972258944.5543042267794
Trimmed Mean ( 7 / 38 )8041.939178.93932990728144.9422662092622
Trimmed Mean ( 8 / 38 )8037.33163265306177.15217657796245.3696465259964
Trimmed Mean ( 9 / 38 )8032.42708333333175.21431617637945.84344052827
Trimmed Mean ( 10 / 38 )8028.00319148936173.17593670830246.3574982996151
Trimmed Mean ( 11 / 38 )8024.78369565217171.13443857423446.8916938198339
Trimmed Mean ( 12 / 38 )8021.36222222222168.95585677041047.4760826617705
Trimmed Mean ( 13 / 38 )8018.7125166.74040831931048.0909971423606
Trimmed Mean ( 14 / 38 )8016.26279069767164.44905855377948.746176239593
Trimmed Mean ( 15 / 38 )8013.37857142857162.24071223481049.391909472333
Trimmed Mean ( 16 / 38 )8009.81219512195160.11182932677150.0263611302247
Trimmed Mean ( 17 / 38 )8005.8825158.13798177836250.6259306585854
Trimmed Mean ( 18 / 38 )8001.65512820513156.30365252833351.1930143587316
Trimmed Mean ( 19 / 38 )7997.47105263158154.48907636186851.7672267901885
Trimmed Mean ( 20 / 38 )7993.33378378378152.65434772337452.3623067602934
Trimmed Mean ( 21 / 38 )7990.79305555556151.16370603555552.8618493494467
Trimmed Mean ( 22 / 38 )7988.61857142857149.75472090005953.3446860534027
Trimmed Mean ( 23 / 38 )7985.3794117647148.38795197489353.8142032792248
Trimmed Mean ( 24 / 38 )7981.3106060606146.84821334574754.3507505077298
Trimmed Mean ( 25 / 38 )7976.9921875145.33044879428954.8886503391399
Trimmed Mean ( 26 / 38 )7972.87419354839143.71400128994555.4773656149412
Trimmed Mean ( 27 / 38 )7968.60833333333142.15100197757956.0573490336014
Trimmed Mean ( 28 / 38 )7963.5724137931140.29522464875456.7629613461959
Trimmed Mean ( 29 / 38 )7957.75892857143138.18345884096257.5883611201986
Trimmed Mean ( 30 / 38 )7950.4425925926135.84091009470958.5276010522124
Trimmed Mean ( 31 / 38 )7941.52692307692133.11975811602959.6570113668247
Trimmed Mean ( 32 / 38 )7930.094130.26418585947860.8770088852707
Trimmed Mean ( 33 / 38 )7917.27083333333126.78535978299962.4462544167896
Trimmed Mean ( 34 / 38 )7904.56304347826123.68957963282963.9064589510522
Trimmed Mean ( 35 / 38 )7890.44090909091119.96373598977165.7735510151476
Trimmed Mean ( 36 / 38 )7876.87142857143116.91296976988867.3738033006512
Trimmed Mean ( 37 / 38 )7862.9475114.11019078445868.906619522285
Trimmed Mean ( 38 / 38 )7848.39210526316111.20063233326070.5786643527538
Median7765.4
Midrange8404
Midmean - Weighted Average at Xnp7929.81578947368
Midmean - Weighted Average at X(n+1)p7963.5724137931
Midmean - Empirical Distribution Function7963.5724137931
Midmean - Empirical Distribution Function - Averaging7963.5724137931
Midmean - Empirical Distribution Function - Interpolation7957.75892857143
Midmean - Closest Observation7963.5724137931
Midmean - True Basic - Statistics Graphics Toolkit7963.5724137931
Midmean - MS Excel (old versions)7963.5724137931
Number of observations114



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