Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationTue, 18 Dec 2012 17:48:41 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/18/t1355870937xqcphge97phex1v.htm/, Retrieved Thu, 28 Mar 2024 09:44:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201714, Retrieved Thu, 28 Mar 2024 09:44:35 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact58
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [Central tendency ...] [2012-12-18 22:48:41] [5821104a6123eb5bf529ba8614395dc8] [Current]
Feedback Forum

Post a new message
Dataseries X:
867.887509505211
-2250.28069676838
33618.3570412959
9954.34468238836
354.191730842355
18882.406400463
20229.4310915672
268402.416151187
-113346.926055862
-45016.394227939
35069.861367254
58531.0957290091
-77256.3771198791
-31473.594568955
-52391.0075132882
32854.9847569661
101107.732845397
-176275.960398033
79531.884415102
-176414.251561376
151290.579462589
167731.594163443
143237.122434691
80251.9665265577
118735.726273623
75035.8259037494
19198.3085437346
-36364.5639276314
-36170.5787440905
-109567.395064155
-100783.336097857
-149267.403931369
38947.3510583149
58613.0600994635
16074.4602044407
-41563.0049150659
-15970.5964777959
-47563.9548420802
59595.3577179922
65897.8405390448
-166489.283203891
46312.3269884632
-15952.8722863516
-87780.6523566012
134744.172737777
75232.8122408289
24408.7558471514
-15406.1403381955
-3766.75348767364
27197.2239951006
-46777.2890031503
-82472.8212609495
-35154.7184801844
-46946.870011609
-43641.5364941684
-54920.7084991732
54905.4038222157
-10509.5840707596
-13706.8046976985
-42347.6087628011
-28990.4687708701




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201714&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201714&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201714&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'Herman Ole Andreas Wold' @ wold.wessa.net







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean1807.7826953104110863.31319241510.166411725712983
Geometric MeanNaN
Harmonic Mean19115.3068565648
Quadratic Mean84166.278813213
Winsorized Mean ( 1 / 20 )159.70841950056110298.3553872520.0155081479998504
Winsorized Mean ( 2 / 20 )-58.466580719504810067.6346383503-0.00580738006689178
Winsorized Mean ( 3 / 20 )392.4394313111859744.393691136770.0402733555057547
Winsorized Mean ( 4 / 20 )2190.965869251719054.613646613640.241972319831793
Winsorized Mean ( 5 / 20 )1188.595748559338680.325258237460.136929863017677
Winsorized Mean ( 6 / 20 )318.7005555828088123.282322362670.039232977869728
Winsorized Mean ( 7 / 20 )-582.4728549595617352.5748347681-0.0792202552234114
Winsorized Mean ( 8 / 20 )19.1991429677847199.948872750060.00266656656972215
Winsorized Mean ( 9 / 20 )154.549105282146939.299729535880.0222715708076897
Winsorized Mean ( 10 / 20 )3783.841282925816306.225808250930.600016776750226
Winsorized Mean ( 11 / 20 )2592.183444122285933.687561910650.436858769032927
Winsorized Mean ( 12 / 20 )2301.934890054485572.900472311710.413058675906985
Winsorized Mean ( 13 / 20 )2224.102656534045517.563387956070.403095080228509
Winsorized Mean ( 14 / 20 )2244.211393125195508.582802636620.407402679333606
Winsorized Mean ( 15 / 20 )1785.654721424675294.075053360250.337293049952377
Winsorized Mean ( 16 / 20 )-107.6486490623874872.88805955857-0.0220913445469418
Winsorized Mean ( 17 / 20 )-1799.580114296444500.86851459867-0.3998295236707
Winsorized Mean ( 18 / 20 )-2712.234953310584295.80281489747-0.631368587008878
Winsorized Mean ( 19 / 20 )-1545.156321047443989.50762001212-0.387305018117183
Winsorized Mean ( 20 / 20 )-1731.840616388063943.57662178052-0.439154803490578
Trimmed Mean ( 1 / 20 )309.942030917369804.551104457320.0316120572594553
Trimmed Mean ( 2 / 20 )470.7183519072689192.663097212060.0512058743945513
Trimmed Mean ( 3 / 20 )764.1754509093878589.264419730850.0889686722362347
Trimmed Mean ( 4 / 20 )906.7911565414017998.186308017070.113374597892583
Trimmed Mean ( 5 / 20 )522.7977375446917549.319042152160.0692509794096147
Trimmed Mean ( 6 / 20 )357.0276205165567120.042802598060.0501440272783583
Trimmed Mean ( 7 / 20 )365.3182267610916761.928212845380.0540257475770165
Trimmed Mean ( 8 / 20 )548.8587219514396540.529306099250.0839165603064588
Trimmed Mean ( 9 / 20 )642.7809147363316295.165916013640.102107064898993
Trimmed Mean ( 10 / 20 )723.4913222612796045.455915195470.119675229198638
Trimmed Mean ( 11 / 20 )244.8212002086215884.081840918850.0416073750888533
Trimmed Mean ( 12 / 20 )-106.9947626383895762.11323989463-0.0185686671163625
Trimmed Mean ( 13 / 20 )-456.8631169580685680.88182784063-0.0804211618553817
Trimmed Mean ( 14 / 20 )-838.0727024662695568.85325570901-0.150492868815874
Trimmed Mean ( 15 / 20 )-1271.296964749865398.91244889084-0.23547278767431
Trimmed Mean ( 16 / 20 )-1699.972948328365209.06435261352-0.32634900113596
Trimmed Mean ( 17 / 20 )-1924.815036882125059.11671878504-0.380464643113506
Trimmed Mean ( 18 / 20 )-1942.789931653244943.49883089045-0.392998966544368
Trimmed Mean ( 19 / 20 )-1829.417597544314813.29577323433-0.380075873940117
Trimmed Mean ( 20 / 20 )-1872.876088437314698.94980090181-0.398573333998562
Median-2250.28069676838
Midrange45994.0822949055
Midmean - Weighted Average at Xnp-3143.85365764871
Midmean - Weighted Average at X(n+1)p-1271.29696474986
Midmean - Empirical Distribution Function-1271.29696474986
Midmean - Empirical Distribution Function - Averaging-1271.29696474986
Midmean - Empirical Distribution Function - Interpolation-1271.29696474986
Midmean - Closest Observation-2693.35921594987
Midmean - True Basic - Statistics Graphics Toolkit-1271.29696474986
Midmean - MS Excel (old versions)-1271.29696474986
Number of observations61

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 1807.78269531041 & 10863.3131924151 & 0.166411725712983 \tabularnewline
Geometric Mean & NaN &  &  \tabularnewline
Harmonic Mean & 19115.3068565648 &  &  \tabularnewline
Quadratic Mean & 84166.278813213 &  &  \tabularnewline
Winsorized Mean ( 1 / 20 ) & 159.708419500561 & 10298.355387252 & 0.0155081479998504 \tabularnewline
Winsorized Mean ( 2 / 20 ) & -58.4665807195048 & 10067.6346383503 & -0.00580738006689178 \tabularnewline
Winsorized Mean ( 3 / 20 ) & 392.439431311185 & 9744.39369113677 & 0.0402733555057547 \tabularnewline
Winsorized Mean ( 4 / 20 ) & 2190.96586925171 & 9054.61364661364 & 0.241972319831793 \tabularnewline
Winsorized Mean ( 5 / 20 ) & 1188.59574855933 & 8680.32525823746 & 0.136929863017677 \tabularnewline
Winsorized Mean ( 6 / 20 ) & 318.700555582808 & 8123.28232236267 & 0.039232977869728 \tabularnewline
Winsorized Mean ( 7 / 20 ) & -582.472854959561 & 7352.5748347681 & -0.0792202552234114 \tabularnewline
Winsorized Mean ( 8 / 20 ) & 19.199142967784 & 7199.94887275006 & 0.00266656656972215 \tabularnewline
Winsorized Mean ( 9 / 20 ) & 154.54910528214 & 6939.29972953588 & 0.0222715708076897 \tabularnewline
Winsorized Mean ( 10 / 20 ) & 3783.84128292581 & 6306.22580825093 & 0.600016776750226 \tabularnewline
Winsorized Mean ( 11 / 20 ) & 2592.18344412228 & 5933.68756191065 & 0.436858769032927 \tabularnewline
Winsorized Mean ( 12 / 20 ) & 2301.93489005448 & 5572.90047231171 & 0.413058675906985 \tabularnewline
Winsorized Mean ( 13 / 20 ) & 2224.10265653404 & 5517.56338795607 & 0.403095080228509 \tabularnewline
Winsorized Mean ( 14 / 20 ) & 2244.21139312519 & 5508.58280263662 & 0.407402679333606 \tabularnewline
Winsorized Mean ( 15 / 20 ) & 1785.65472142467 & 5294.07505336025 & 0.337293049952377 \tabularnewline
Winsorized Mean ( 16 / 20 ) & -107.648649062387 & 4872.88805955857 & -0.0220913445469418 \tabularnewline
Winsorized Mean ( 17 / 20 ) & -1799.58011429644 & 4500.86851459867 & -0.3998295236707 \tabularnewline
Winsorized Mean ( 18 / 20 ) & -2712.23495331058 & 4295.80281489747 & -0.631368587008878 \tabularnewline
Winsorized Mean ( 19 / 20 ) & -1545.15632104744 & 3989.50762001212 & -0.387305018117183 \tabularnewline
Winsorized Mean ( 20 / 20 ) & -1731.84061638806 & 3943.57662178052 & -0.439154803490578 \tabularnewline
Trimmed Mean ( 1 / 20 ) & 309.94203091736 & 9804.55110445732 & 0.0316120572594553 \tabularnewline
Trimmed Mean ( 2 / 20 ) & 470.718351907268 & 9192.66309721206 & 0.0512058743945513 \tabularnewline
Trimmed Mean ( 3 / 20 ) & 764.175450909387 & 8589.26441973085 & 0.0889686722362347 \tabularnewline
Trimmed Mean ( 4 / 20 ) & 906.791156541401 & 7998.18630801707 & 0.113374597892583 \tabularnewline
Trimmed Mean ( 5 / 20 ) & 522.797737544691 & 7549.31904215216 & 0.0692509794096147 \tabularnewline
Trimmed Mean ( 6 / 20 ) & 357.027620516556 & 7120.04280259806 & 0.0501440272783583 \tabularnewline
Trimmed Mean ( 7 / 20 ) & 365.318226761091 & 6761.92821284538 & 0.0540257475770165 \tabularnewline
Trimmed Mean ( 8 / 20 ) & 548.858721951439 & 6540.52930609925 & 0.0839165603064588 \tabularnewline
Trimmed Mean ( 9 / 20 ) & 642.780914736331 & 6295.16591601364 & 0.102107064898993 \tabularnewline
Trimmed Mean ( 10 / 20 ) & 723.491322261279 & 6045.45591519547 & 0.119675229198638 \tabularnewline
Trimmed Mean ( 11 / 20 ) & 244.821200208621 & 5884.08184091885 & 0.0416073750888533 \tabularnewline
Trimmed Mean ( 12 / 20 ) & -106.994762638389 & 5762.11323989463 & -0.0185686671163625 \tabularnewline
Trimmed Mean ( 13 / 20 ) & -456.863116958068 & 5680.88182784063 & -0.0804211618553817 \tabularnewline
Trimmed Mean ( 14 / 20 ) & -838.072702466269 & 5568.85325570901 & -0.150492868815874 \tabularnewline
Trimmed Mean ( 15 / 20 ) & -1271.29696474986 & 5398.91244889084 & -0.23547278767431 \tabularnewline
Trimmed Mean ( 16 / 20 ) & -1699.97294832836 & 5209.06435261352 & -0.32634900113596 \tabularnewline
Trimmed Mean ( 17 / 20 ) & -1924.81503688212 & 5059.11671878504 & -0.380464643113506 \tabularnewline
Trimmed Mean ( 18 / 20 ) & -1942.78993165324 & 4943.49883089045 & -0.392998966544368 \tabularnewline
Trimmed Mean ( 19 / 20 ) & -1829.41759754431 & 4813.29577323433 & -0.380075873940117 \tabularnewline
Trimmed Mean ( 20 / 20 ) & -1872.87608843731 & 4698.94980090181 & -0.398573333998562 \tabularnewline
Median & -2250.28069676838 &  &  \tabularnewline
Midrange & 45994.0822949055 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & -3143.85365764871 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & -1271.29696474986 &  &  \tabularnewline
Midmean - Empirical Distribution Function & -1271.29696474986 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & -1271.29696474986 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & -1271.29696474986 &  &  \tabularnewline
Midmean - Closest Observation & -2693.35921594987 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & -1271.29696474986 &  &  \tabularnewline
Midmean - MS Excel (old versions) & -1271.29696474986 &  &  \tabularnewline
Number of observations & 61 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201714&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]1807.78269531041[/C][C]10863.3131924151[/C][C]0.166411725712983[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]NaN[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]19115.3068565648[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]84166.278813213[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 20 )[/C][C]159.708419500561[/C][C]10298.355387252[/C][C]0.0155081479998504[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 20 )[/C][C]-58.4665807195048[/C][C]10067.6346383503[/C][C]-0.00580738006689178[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 20 )[/C][C]392.439431311185[/C][C]9744.39369113677[/C][C]0.0402733555057547[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 20 )[/C][C]2190.96586925171[/C][C]9054.61364661364[/C][C]0.241972319831793[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 20 )[/C][C]1188.59574855933[/C][C]8680.32525823746[/C][C]0.136929863017677[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 20 )[/C][C]318.700555582808[/C][C]8123.28232236267[/C][C]0.039232977869728[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 20 )[/C][C]-582.472854959561[/C][C]7352.5748347681[/C][C]-0.0792202552234114[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 20 )[/C][C]19.199142967784[/C][C]7199.94887275006[/C][C]0.00266656656972215[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 20 )[/C][C]154.54910528214[/C][C]6939.29972953588[/C][C]0.0222715708076897[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 20 )[/C][C]3783.84128292581[/C][C]6306.22580825093[/C][C]0.600016776750226[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 20 )[/C][C]2592.18344412228[/C][C]5933.68756191065[/C][C]0.436858769032927[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 20 )[/C][C]2301.93489005448[/C][C]5572.90047231171[/C][C]0.413058675906985[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 20 )[/C][C]2224.10265653404[/C][C]5517.56338795607[/C][C]0.403095080228509[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 20 )[/C][C]2244.21139312519[/C][C]5508.58280263662[/C][C]0.407402679333606[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 20 )[/C][C]1785.65472142467[/C][C]5294.07505336025[/C][C]0.337293049952377[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 20 )[/C][C]-107.648649062387[/C][C]4872.88805955857[/C][C]-0.0220913445469418[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 20 )[/C][C]-1799.58011429644[/C][C]4500.86851459867[/C][C]-0.3998295236707[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 20 )[/C][C]-2712.23495331058[/C][C]4295.80281489747[/C][C]-0.631368587008878[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 20 )[/C][C]-1545.15632104744[/C][C]3989.50762001212[/C][C]-0.387305018117183[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 20 )[/C][C]-1731.84061638806[/C][C]3943.57662178052[/C][C]-0.439154803490578[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 20 )[/C][C]309.94203091736[/C][C]9804.55110445732[/C][C]0.0316120572594553[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 20 )[/C][C]470.718351907268[/C][C]9192.66309721206[/C][C]0.0512058743945513[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 20 )[/C][C]764.175450909387[/C][C]8589.26441973085[/C][C]0.0889686722362347[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 20 )[/C][C]906.791156541401[/C][C]7998.18630801707[/C][C]0.113374597892583[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 20 )[/C][C]522.797737544691[/C][C]7549.31904215216[/C][C]0.0692509794096147[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 20 )[/C][C]357.027620516556[/C][C]7120.04280259806[/C][C]0.0501440272783583[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 20 )[/C][C]365.318226761091[/C][C]6761.92821284538[/C][C]0.0540257475770165[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 20 )[/C][C]548.858721951439[/C][C]6540.52930609925[/C][C]0.0839165603064588[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 20 )[/C][C]642.780914736331[/C][C]6295.16591601364[/C][C]0.102107064898993[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 20 )[/C][C]723.491322261279[/C][C]6045.45591519547[/C][C]0.119675229198638[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 20 )[/C][C]244.821200208621[/C][C]5884.08184091885[/C][C]0.0416073750888533[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 20 )[/C][C]-106.994762638389[/C][C]5762.11323989463[/C][C]-0.0185686671163625[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 20 )[/C][C]-456.863116958068[/C][C]5680.88182784063[/C][C]-0.0804211618553817[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 20 )[/C][C]-838.072702466269[/C][C]5568.85325570901[/C][C]-0.150492868815874[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 20 )[/C][C]-1271.29696474986[/C][C]5398.91244889084[/C][C]-0.23547278767431[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 20 )[/C][C]-1699.97294832836[/C][C]5209.06435261352[/C][C]-0.32634900113596[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 20 )[/C][C]-1924.81503688212[/C][C]5059.11671878504[/C][C]-0.380464643113506[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 20 )[/C][C]-1942.78993165324[/C][C]4943.49883089045[/C][C]-0.392998966544368[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 20 )[/C][C]-1829.41759754431[/C][C]4813.29577323433[/C][C]-0.380075873940117[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 20 )[/C][C]-1872.87608843731[/C][C]4698.94980090181[/C][C]-0.398573333998562[/C][/ROW]
[ROW][C]Median[/C][C]-2250.28069676838[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]45994.0822949055[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]-3143.85365764871[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]-2693.35921594987[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]-1271.29696474986[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]61[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201714&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201714&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 Mean1807.7826953104110863.31319241510.166411725712983
Geometric MeanNaN
Harmonic Mean19115.3068565648
Quadratic Mean84166.278813213
Winsorized Mean ( 1 / 20 )159.70841950056110298.3553872520.0155081479998504
Winsorized Mean ( 2 / 20 )-58.466580719504810067.6346383503-0.00580738006689178
Winsorized Mean ( 3 / 20 )392.4394313111859744.393691136770.0402733555057547
Winsorized Mean ( 4 / 20 )2190.965869251719054.613646613640.241972319831793
Winsorized Mean ( 5 / 20 )1188.595748559338680.325258237460.136929863017677
Winsorized Mean ( 6 / 20 )318.7005555828088123.282322362670.039232977869728
Winsorized Mean ( 7 / 20 )-582.4728549595617352.5748347681-0.0792202552234114
Winsorized Mean ( 8 / 20 )19.1991429677847199.948872750060.00266656656972215
Winsorized Mean ( 9 / 20 )154.549105282146939.299729535880.0222715708076897
Winsorized Mean ( 10 / 20 )3783.841282925816306.225808250930.600016776750226
Winsorized Mean ( 11 / 20 )2592.183444122285933.687561910650.436858769032927
Winsorized Mean ( 12 / 20 )2301.934890054485572.900472311710.413058675906985
Winsorized Mean ( 13 / 20 )2224.102656534045517.563387956070.403095080228509
Winsorized Mean ( 14 / 20 )2244.211393125195508.582802636620.407402679333606
Winsorized Mean ( 15 / 20 )1785.654721424675294.075053360250.337293049952377
Winsorized Mean ( 16 / 20 )-107.6486490623874872.88805955857-0.0220913445469418
Winsorized Mean ( 17 / 20 )-1799.580114296444500.86851459867-0.3998295236707
Winsorized Mean ( 18 / 20 )-2712.234953310584295.80281489747-0.631368587008878
Winsorized Mean ( 19 / 20 )-1545.156321047443989.50762001212-0.387305018117183
Winsorized Mean ( 20 / 20 )-1731.840616388063943.57662178052-0.439154803490578
Trimmed Mean ( 1 / 20 )309.942030917369804.551104457320.0316120572594553
Trimmed Mean ( 2 / 20 )470.7183519072689192.663097212060.0512058743945513
Trimmed Mean ( 3 / 20 )764.1754509093878589.264419730850.0889686722362347
Trimmed Mean ( 4 / 20 )906.7911565414017998.186308017070.113374597892583
Trimmed Mean ( 5 / 20 )522.7977375446917549.319042152160.0692509794096147
Trimmed Mean ( 6 / 20 )357.0276205165567120.042802598060.0501440272783583
Trimmed Mean ( 7 / 20 )365.3182267610916761.928212845380.0540257475770165
Trimmed Mean ( 8 / 20 )548.8587219514396540.529306099250.0839165603064588
Trimmed Mean ( 9 / 20 )642.7809147363316295.165916013640.102107064898993
Trimmed Mean ( 10 / 20 )723.4913222612796045.455915195470.119675229198638
Trimmed Mean ( 11 / 20 )244.8212002086215884.081840918850.0416073750888533
Trimmed Mean ( 12 / 20 )-106.9947626383895762.11323989463-0.0185686671163625
Trimmed Mean ( 13 / 20 )-456.8631169580685680.88182784063-0.0804211618553817
Trimmed Mean ( 14 / 20 )-838.0727024662695568.85325570901-0.150492868815874
Trimmed Mean ( 15 / 20 )-1271.296964749865398.91244889084-0.23547278767431
Trimmed Mean ( 16 / 20 )-1699.972948328365209.06435261352-0.32634900113596
Trimmed Mean ( 17 / 20 )-1924.815036882125059.11671878504-0.380464643113506
Trimmed Mean ( 18 / 20 )-1942.789931653244943.49883089045-0.392998966544368
Trimmed Mean ( 19 / 20 )-1829.417597544314813.29577323433-0.380075873940117
Trimmed Mean ( 20 / 20 )-1872.876088437314698.94980090181-0.398573333998562
Median-2250.28069676838
Midrange45994.0822949055
Midmean - Weighted Average at Xnp-3143.85365764871
Midmean - Weighted Average at X(n+1)p-1271.29696474986
Midmean - Empirical Distribution Function-1271.29696474986
Midmean - Empirical Distribution Function - Averaging-1271.29696474986
Midmean - Empirical Distribution Function - Interpolation-1271.29696474986
Midmean - Closest Observation-2693.35921594987
Midmean - True Basic - Statistics Graphics Toolkit-1271.29696474986
Midmean - MS Excel (old versions)-1271.29696474986
Number of observations61



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