Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationThu, 08 Oct 2015 19:52:47 +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/2015/Oct/08/t144433038799gbbwqj95df3o5.htm/, Retrieved Thu, 31 Oct 2024 22:54:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=281637, Retrieved Thu, 31 Oct 2024 22:54:36 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact80
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [] [2015-10-08 18:52:47] [5a70237751c59f15349851dd3eb2a645] [Current]
Feedback Forum

Post a new message
Dataseries X:
92,51
92,51
92,51
92,51
92,51
92,51
92,51
92,51
92,51
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,67
96,19
96,19
96,19
96,19
96,19
96,19
96,19
96,19
96,19
96,19
96,19
96,19
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,13
99,58
99,58
99,58
99,58
99,58
99,58
99,58
99,58
99,58
99,58
99,58
99,58
101,27
101,27
101,27
101,25
101,25
101,25
101,25
101,25
101,25
101,25
101,25
101,25
102,55
102,55
102,55




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=281637&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'George Udny Yule' @ yule.wessa.net







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean97.97416666666670.332828593795966294.368237864586
Geometric Mean97.9336172508504
Harmonic Mean97.8926565184696
Quadratic Mean98.0142966612524
Winsorized Mean ( 1 / 24 )97.97416666666670.332828593795966294.368237864586
Winsorized Mean ( 2 / 24 )97.97416666666670.332828593795966294.368237864586
Winsorized Mean ( 3 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 4 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 5 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 6 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 7 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 8 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 9 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 10 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 11 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 12 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 13 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 14 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 15 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 16 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 17 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 18 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 19 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 20 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 21 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 22 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 23 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 24 / 24 )98.171250.164889460945768595.376135241831
Trimmed Mean ( 1 / 24 )97.98685714285710.326685629833064299.942354957358
Trimmed Mean ( 2 / 24 )98.00029411764710.319351018999068306.873278265422
Trimmed Mean ( 3 / 24 )98.01454545454550.310570358969286315.595299499392
Trimmed Mean ( 4 / 24 )98.04968750.304077120604786322.450065644488
Trimmed Mean ( 5 / 24 )98.08709677419360.296134570998551331.224741655285
Trimmed Mean ( 6 / 24 )98.1270.286383380589667342.642089767763
Trimmed Mean ( 7 / 24 )98.170.274398423570242357.764446029588
Trimmed Mean ( 8 / 24 )98.21607142857140.259421644273613378.596287536372
Trimmed Mean ( 9 / 24 )98.26555555555560.240389368907828408.776627693686
Trimmed Mean ( 10 / 24 )98.24807692307690.239528672189826410.172510976956
Trimmed Mean ( 11 / 24 )98.22920.238096848756457412.559849124573
Trimmed Mean ( 12 / 24 )98.208750.23594078041259416.2432192869
Trimmed Mean ( 13 / 24 )98.18652173913040.232856493591773421.661085008279
Trimmed Mean ( 14 / 24 )98.16227272727270.228566371122421429.469445768541
Trimmed Mean ( 15 / 24 )98.13571428571430.222682188093204440.698535998935
Trimmed Mean ( 16 / 24 )98.148250.225762777558146434.740620493657
Trimmed Mean ( 17 / 24 )98.16210526315790.228825051938592428.983209799515
Trimmed Mean ( 18 / 24 )98.17750.231816969057179423.51299992963
Trimmed Mean ( 19 / 24 )98.19470588235290.234661448892014418.45265315625
Trimmed Mean ( 20 / 24 )98.21406250.23724343500851413.980106536888
Trimmed Mean ( 21 / 24 )98.2360.239388877107435410.361589005294
Trimmed Mean ( 22 / 24 )98.24392857142860.245587159112785400.036911238957
Trimmed Mean ( 23 / 24 )98.25307692307690.252166470796739389.635769627258
Trimmed Mean ( 24 / 24 )98.263750.259118357839743379.223420599066
Median99.13
Midrange97.53
Midmean - Weighted Average at Xnp97.8925
Midmean - Weighted Average at X(n+1)p97.8925
Midmean - Empirical Distribution Function97.8925
Midmean - Empirical Distribution Function - Averaging97.8925
Midmean - Empirical Distribution Function - Interpolation97.8925
Midmean - Closest Observation97.8925
Midmean - True Basic - Statistics Graphics Toolkit97.8925
Midmean - MS Excel (old versions)97.8925
Number of observations72

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 97.9741666666667 & 0.332828593795966 & 294.368237864586 \tabularnewline
Geometric Mean & 97.9336172508504 &  &  \tabularnewline
Harmonic Mean & 97.8926565184696 &  &  \tabularnewline
Quadratic Mean & 98.0142966612524 &  &  \tabularnewline
Winsorized Mean ( 1 / 24 ) & 97.9741666666667 & 0.332828593795966 & 294.368237864586 \tabularnewline
Winsorized Mean ( 2 / 24 ) & 97.9741666666667 & 0.332828593795966 & 294.368237864586 \tabularnewline
Winsorized Mean ( 3 / 24 ) & 97.9208333333333 & 0.323761982334257 & 302.446978571556 \tabularnewline
Winsorized Mean ( 4 / 24 ) & 97.9208333333333 & 0.323761982334257 & 302.446978571556 \tabularnewline
Winsorized Mean ( 5 / 24 ) & 97.9208333333333 & 0.323761982334257 & 302.446978571556 \tabularnewline
Winsorized Mean ( 6 / 24 ) & 97.9191666666667 & 0.323519726899722 & 302.668302811153 \tabularnewline
Winsorized Mean ( 7 / 24 ) & 97.9191666666667 & 0.323519726899722 & 302.668302811153 \tabularnewline
Winsorized Mean ( 8 / 24 ) & 97.9191666666667 & 0.323519726899722 & 302.668302811153 \tabularnewline
Winsorized Mean ( 9 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 10 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 11 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 12 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 13 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 14 / 24 ) & 98.3791666666667 & 0.235449304937641 & 417.835876358703 \tabularnewline
Winsorized Mean ( 15 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 16 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 17 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 18 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 19 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 20 / 24 ) & 98.03125 & 0.183791673917532 & 533.382431915751 \tabularnewline
Winsorized Mean ( 21 / 24 ) & 98.17125 & 0.164889460945768 & 595.376135241831 \tabularnewline
Winsorized Mean ( 22 / 24 ) & 98.17125 & 0.164889460945768 & 595.376135241831 \tabularnewline
Winsorized Mean ( 23 / 24 ) & 98.17125 & 0.164889460945768 & 595.376135241831 \tabularnewline
Winsorized Mean ( 24 / 24 ) & 98.17125 & 0.164889460945768 & 595.376135241831 \tabularnewline
Trimmed Mean ( 1 / 24 ) & 97.9868571428571 & 0.326685629833064 & 299.942354957358 \tabularnewline
Trimmed Mean ( 2 / 24 ) & 98.0002941176471 & 0.319351018999068 & 306.873278265422 \tabularnewline
Trimmed Mean ( 3 / 24 ) & 98.0145454545455 & 0.310570358969286 & 315.595299499392 \tabularnewline
Trimmed Mean ( 4 / 24 ) & 98.0496875 & 0.304077120604786 & 322.450065644488 \tabularnewline
Trimmed Mean ( 5 / 24 ) & 98.0870967741936 & 0.296134570998551 & 331.224741655285 \tabularnewline
Trimmed Mean ( 6 / 24 ) & 98.127 & 0.286383380589667 & 342.642089767763 \tabularnewline
Trimmed Mean ( 7 / 24 ) & 98.17 & 0.274398423570242 & 357.764446029588 \tabularnewline
Trimmed Mean ( 8 / 24 ) & 98.2160714285714 & 0.259421644273613 & 378.596287536372 \tabularnewline
Trimmed Mean ( 9 / 24 ) & 98.2655555555556 & 0.240389368907828 & 408.776627693686 \tabularnewline
Trimmed Mean ( 10 / 24 ) & 98.2480769230769 & 0.239528672189826 & 410.172510976956 \tabularnewline
Trimmed Mean ( 11 / 24 ) & 98.2292 & 0.238096848756457 & 412.559849124573 \tabularnewline
Trimmed Mean ( 12 / 24 ) & 98.20875 & 0.23594078041259 & 416.2432192869 \tabularnewline
Trimmed Mean ( 13 / 24 ) & 98.1865217391304 & 0.232856493591773 & 421.661085008279 \tabularnewline
Trimmed Mean ( 14 / 24 ) & 98.1622727272727 & 0.228566371122421 & 429.469445768541 \tabularnewline
Trimmed Mean ( 15 / 24 ) & 98.1357142857143 & 0.222682188093204 & 440.698535998935 \tabularnewline
Trimmed Mean ( 16 / 24 ) & 98.14825 & 0.225762777558146 & 434.740620493657 \tabularnewline
Trimmed Mean ( 17 / 24 ) & 98.1621052631579 & 0.228825051938592 & 428.983209799515 \tabularnewline
Trimmed Mean ( 18 / 24 ) & 98.1775 & 0.231816969057179 & 423.51299992963 \tabularnewline
Trimmed Mean ( 19 / 24 ) & 98.1947058823529 & 0.234661448892014 & 418.45265315625 \tabularnewline
Trimmed Mean ( 20 / 24 ) & 98.2140625 & 0.23724343500851 & 413.980106536888 \tabularnewline
Trimmed Mean ( 21 / 24 ) & 98.236 & 0.239388877107435 & 410.361589005294 \tabularnewline
Trimmed Mean ( 22 / 24 ) & 98.2439285714286 & 0.245587159112785 & 400.036911238957 \tabularnewline
Trimmed Mean ( 23 / 24 ) & 98.2530769230769 & 0.252166470796739 & 389.635769627258 \tabularnewline
Trimmed Mean ( 24 / 24 ) & 98.26375 & 0.259118357839743 & 379.223420599066 \tabularnewline
Median & 99.13 &  &  \tabularnewline
Midrange & 97.53 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 97.8925 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 97.8925 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 97.8925 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 97.8925 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 97.8925 &  &  \tabularnewline
Midmean - Closest Observation & 97.8925 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 97.8925 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 97.8925 &  &  \tabularnewline
Number of observations & 72 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=281637&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]97.9741666666667[/C][C]0.332828593795966[/C][C]294.368237864586[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]97.9336172508504[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]97.8926565184696[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]98.0142966612524[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 24 )[/C][C]97.9741666666667[/C][C]0.332828593795966[/C][C]294.368237864586[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 24 )[/C][C]97.9741666666667[/C][C]0.332828593795966[/C][C]294.368237864586[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 24 )[/C][C]97.9208333333333[/C][C]0.323761982334257[/C][C]302.446978571556[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 24 )[/C][C]97.9208333333333[/C][C]0.323761982334257[/C][C]302.446978571556[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 24 )[/C][C]97.9208333333333[/C][C]0.323761982334257[/C][C]302.446978571556[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 24 )[/C][C]97.9191666666667[/C][C]0.323519726899722[/C][C]302.668302811153[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 24 )[/C][C]97.9191666666667[/C][C]0.323519726899722[/C][C]302.668302811153[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 24 )[/C][C]97.9191666666667[/C][C]0.323519726899722[/C][C]302.668302811153[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 24 )[/C][C]98.3791666666667[/C][C]0.235449304937641[/C][C]417.835876358703[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 24 )[/C][C]98.03125[/C][C]0.183791673917532[/C][C]533.382431915751[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 24 )[/C][C]98.17125[/C][C]0.164889460945768[/C][C]595.376135241831[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 24 )[/C][C]98.17125[/C][C]0.164889460945768[/C][C]595.376135241831[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 24 )[/C][C]98.17125[/C][C]0.164889460945768[/C][C]595.376135241831[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 24 )[/C][C]98.17125[/C][C]0.164889460945768[/C][C]595.376135241831[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 24 )[/C][C]97.9868571428571[/C][C]0.326685629833064[/C][C]299.942354957358[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 24 )[/C][C]98.0002941176471[/C][C]0.319351018999068[/C][C]306.873278265422[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 24 )[/C][C]98.0145454545455[/C][C]0.310570358969286[/C][C]315.595299499392[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 24 )[/C][C]98.0496875[/C][C]0.304077120604786[/C][C]322.450065644488[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 24 )[/C][C]98.0870967741936[/C][C]0.296134570998551[/C][C]331.224741655285[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 24 )[/C][C]98.127[/C][C]0.286383380589667[/C][C]342.642089767763[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 24 )[/C][C]98.17[/C][C]0.274398423570242[/C][C]357.764446029588[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 24 )[/C][C]98.2160714285714[/C][C]0.259421644273613[/C][C]378.596287536372[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 24 )[/C][C]98.2655555555556[/C][C]0.240389368907828[/C][C]408.776627693686[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 24 )[/C][C]98.2480769230769[/C][C]0.239528672189826[/C][C]410.172510976956[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 24 )[/C][C]98.2292[/C][C]0.238096848756457[/C][C]412.559849124573[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 24 )[/C][C]98.20875[/C][C]0.23594078041259[/C][C]416.2432192869[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 24 )[/C][C]98.1865217391304[/C][C]0.232856493591773[/C][C]421.661085008279[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 24 )[/C][C]98.1622727272727[/C][C]0.228566371122421[/C][C]429.469445768541[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 24 )[/C][C]98.1357142857143[/C][C]0.222682188093204[/C][C]440.698535998935[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 24 )[/C][C]98.14825[/C][C]0.225762777558146[/C][C]434.740620493657[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 24 )[/C][C]98.1621052631579[/C][C]0.228825051938592[/C][C]428.983209799515[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 24 )[/C][C]98.1775[/C][C]0.231816969057179[/C][C]423.51299992963[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 24 )[/C][C]98.1947058823529[/C][C]0.234661448892014[/C][C]418.45265315625[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 24 )[/C][C]98.2140625[/C][C]0.23724343500851[/C][C]413.980106536888[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 24 )[/C][C]98.236[/C][C]0.239388877107435[/C][C]410.361589005294[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 24 )[/C][C]98.2439285714286[/C][C]0.245587159112785[/C][C]400.036911238957[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 24 )[/C][C]98.2530769230769[/C][C]0.252166470796739[/C][C]389.635769627258[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 24 )[/C][C]98.26375[/C][C]0.259118357839743[/C][C]379.223420599066[/C][/ROW]
[ROW][C]Median[/C][C]99.13[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]97.53[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]97.8925[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]72[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=281637&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=281637&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 Mean97.97416666666670.332828593795966294.368237864586
Geometric Mean97.9336172508504
Harmonic Mean97.8926565184696
Quadratic Mean98.0142966612524
Winsorized Mean ( 1 / 24 )97.97416666666670.332828593795966294.368237864586
Winsorized Mean ( 2 / 24 )97.97416666666670.332828593795966294.368237864586
Winsorized Mean ( 3 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 4 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 5 / 24 )97.92083333333330.323761982334257302.446978571556
Winsorized Mean ( 6 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 7 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 8 / 24 )97.91916666666670.323519726899722302.668302811153
Winsorized Mean ( 9 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 10 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 11 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 12 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 13 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 14 / 24 )98.37916666666670.235449304937641417.835876358703
Winsorized Mean ( 15 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 16 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 17 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 18 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 19 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 20 / 24 )98.031250.183791673917532533.382431915751
Winsorized Mean ( 21 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 22 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 23 / 24 )98.171250.164889460945768595.376135241831
Winsorized Mean ( 24 / 24 )98.171250.164889460945768595.376135241831
Trimmed Mean ( 1 / 24 )97.98685714285710.326685629833064299.942354957358
Trimmed Mean ( 2 / 24 )98.00029411764710.319351018999068306.873278265422
Trimmed Mean ( 3 / 24 )98.01454545454550.310570358969286315.595299499392
Trimmed Mean ( 4 / 24 )98.04968750.304077120604786322.450065644488
Trimmed Mean ( 5 / 24 )98.08709677419360.296134570998551331.224741655285
Trimmed Mean ( 6 / 24 )98.1270.286383380589667342.642089767763
Trimmed Mean ( 7 / 24 )98.170.274398423570242357.764446029588
Trimmed Mean ( 8 / 24 )98.21607142857140.259421644273613378.596287536372
Trimmed Mean ( 9 / 24 )98.26555555555560.240389368907828408.776627693686
Trimmed Mean ( 10 / 24 )98.24807692307690.239528672189826410.172510976956
Trimmed Mean ( 11 / 24 )98.22920.238096848756457412.559849124573
Trimmed Mean ( 12 / 24 )98.208750.23594078041259416.2432192869
Trimmed Mean ( 13 / 24 )98.18652173913040.232856493591773421.661085008279
Trimmed Mean ( 14 / 24 )98.16227272727270.228566371122421429.469445768541
Trimmed Mean ( 15 / 24 )98.13571428571430.222682188093204440.698535998935
Trimmed Mean ( 16 / 24 )98.148250.225762777558146434.740620493657
Trimmed Mean ( 17 / 24 )98.16210526315790.228825051938592428.983209799515
Trimmed Mean ( 18 / 24 )98.17750.231816969057179423.51299992963
Trimmed Mean ( 19 / 24 )98.19470588235290.234661448892014418.45265315625
Trimmed Mean ( 20 / 24 )98.21406250.23724343500851413.980106536888
Trimmed Mean ( 21 / 24 )98.2360.239388877107435410.361589005294
Trimmed Mean ( 22 / 24 )98.24392857142860.245587159112785400.036911238957
Trimmed Mean ( 23 / 24 )98.25307692307690.252166470796739389.635769627258
Trimmed Mean ( 24 / 24 )98.263750.259118357839743379.223420599066
Median99.13
Midrange97.53
Midmean - Weighted Average at Xnp97.8925
Midmean - Weighted Average at X(n+1)p97.8925
Midmean - Empirical Distribution Function97.8925
Midmean - Empirical Distribution Function - Averaging97.8925
Midmean - Empirical Distribution Function - Interpolation97.8925
Midmean - Closest Observation97.8925
Midmean - True Basic - Statistics Graphics Toolkit97.8925
Midmean - MS Excel (old versions)97.8925
Number of observations72



Parameters (Session):
par1 = 0.01 ; par2 = 0.99 ; par3 = 0.01 ;
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')