Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationThu, 01 Dec 2011 13:07:24 -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/2011/Dec/01/t13227628835ylp3qukvdnaszy.htm/, Retrieved Fri, 29 Mar 2024 06:19:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=149921, Retrieved Fri, 29 Mar 2024 06:19:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact97
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [SHW_WS3_Yt=c+Xt] [2009-10-16 08:10:06] [8b1aef4e7013bd33fbc2a5833375c5f5]
-  M D  [Central Tendency] [paper univariate] [2010-12-04 09:51:15] [814f53995537cd15c528d8efbf1cf544]
- R  D      [Central Tendency] [] [2011-12-01 18:07:24] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
4,00
5,90
7,10
10,50
15,10
16,80
15,30
18,40
16,10
11,30
7,90
5,60
3,40
4,80
6,50
8,50
15,10
15,70
18,70
19,20
12,90
14,40
6,20
3,30
4,60
7,10
7,80
9,90
13,60
17,10
17,80
18,60
14,70
10,50
8,60
4,40
2,30
2,80
8,80
10,70
13,90
19,30
19,50
20,40
15,30
7,90
8,30
4,50
3,20
5,00
6,60
11,10
12,80
16,30
17,40
18,90
15,80
11,70
6,40
2,90
4,70
2,40
7,20
10,70
13,40
18,30
18,40
16,80
16,60
14,10
6,10
3,50
1,70
2,30
4,50
9,30
14,20
17,30
23,00
16,30
18,40
14,20
9,10
5,90
7,20
6,80
8,00
14,30
14,60
17,50
17,20
17,20
14,10
10,40
6,80
4,10




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

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







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean11.10208333333330.56847360098303619.5296374609744
Geometric Mean9.4206371005681
Harmonic Mean7.5699147103715
Quadratic Mean12.407927573397
Winsorized Mean ( 1 / 32 )11.081250.56206525597450419.7152374785868
Winsorized Mean ( 2 / 32 )11.06250.55893902077719419.7919622512986
Winsorized Mean ( 3 / 32 )11.0593750.55744281849186819.8394788364492
Winsorized Mean ( 4 / 32 )11.0718750.55412469131030219.9808367568301
Winsorized Mean ( 5 / 32 )11.06145833333330.55093296029200420.0776848193482
Winsorized Mean ( 6 / 32 )11.06770833333330.54619395772510120.263329860752
Winsorized Mean ( 7 / 32 )11.06770833333330.54402555488477820.3440964012755
Winsorized Mean ( 8 / 32 )11.0593750.54037141654419720.4662472170111
Winsorized Mean ( 9 / 32 )11.068750.53897912049035920.5365098186544
Winsorized Mean ( 10 / 32 )11.12083333333330.53145554159314120.9252373208801
Winsorized Mean ( 11 / 32 )11.12083333333330.52820018107394621.0542020465087
Winsorized Mean ( 12 / 32 )11.09583333333330.51424428598917321.576969614723
Winsorized Mean ( 13 / 32 )11.068750.5068917850964321.8365148645964
Winsorized Mean ( 14 / 32 )11.05416666666670.50495335173350521.8914611195623
Winsorized Mean ( 15 / 32 )11.05416666666670.50076677317001722.074481093644
Winsorized Mean ( 16 / 32 )11.05416666666670.49633286056791822.2716800455609
Winsorized Mean ( 17 / 32 )11.0718750.4939562430124422.4146878526671
Winsorized Mean ( 18 / 32 )11.0906250.48653599721902622.7950759314676
Winsorized Mean ( 19 / 32 )11.150.46355084506978524.0534563114029
Winsorized Mean ( 20 / 32 )11.21250.4557773627397124.600826887498
Winsorized Mean ( 21 / 32 )11.168750.4501761655661724.8097319544971
Winsorized Mean ( 22 / 32 )11.14583333333330.43591483924732825.5688320970635
Winsorized Mean ( 23 / 32 )11.16979166666670.43300794073101125.7958125382404
Winsorized Mean ( 24 / 32 )11.16979166666670.42080259517323826.5440180141195
Winsorized Mean ( 25 / 32 )11.11770833333330.40816232041466927.2384484732408
Winsorized Mean ( 26 / 32 )11.11770833333330.40168503304355127.6776763353489
Winsorized Mean ( 27 / 32 )11.06145833333330.381715799119628.9782564904198
Winsorized Mean ( 28 / 32 )11.06145833333330.381715799119628.9782564904198
Winsorized Mean ( 29 / 32 )11.09166666666670.36412797377645930.4609023899821
Winsorized Mean ( 30 / 32 )11.09166666666670.36412797377645930.4609023899821
Winsorized Mean ( 31 / 32 )10.99479166666670.34562227693691631.8115827605449
Winsorized Mean ( 32 / 32 )10.96145833333330.34187425163222532.0628367915969
Trimmed Mean ( 1 / 32 )11.07553191489360.55751492551876219.8658931051719
Trimmed Mean ( 2 / 32 )11.06956521739130.55224585797482120.0446323997527
Trimmed Mean ( 3 / 32 )11.07333333333330.54798188365946620.207480691487
Trimmed Mean ( 4 / 32 )11.07840909090910.54360163721069820.3796462934771
Trimmed Mean ( 5 / 32 )11.08023255813950.53952864813133320.5368752827419
Trimmed Mean ( 6 / 32 )11.08452380952380.53556928935961320.6967128805644
Trimmed Mean ( 7 / 32 )11.08780487804880.53197203822634320.8428339861937
Trimmed Mean ( 8 / 32 )11.091250.52809723449595821.0022876006651
Trimmed Mean ( 9 / 32 )11.09615384615380.52414064678102721.1701838319545
Trimmed Mean ( 10 / 32 )11.10.51960511321984721.3623763846672
Trimmed Mean ( 11 / 32 )11.09729729729730.51544804065011721.5294198874064
Trimmed Mean ( 12 / 32 )11.09444444444440.51091332840586421.7149246802016
Trimmed Mean ( 13 / 32 )11.09428571428570.50762666101601521.8552069193539
Trimmed Mean ( 14 / 32 )11.09705882352940.50460987542362421.9913627616054
Trimmed Mean ( 15 / 32 )11.10151515151520.50101292467936322.1581412467949
Trimmed Mean ( 16 / 32 )11.106250.49705419425230622.3441430098112
Trimmed Mean ( 17 / 32 )11.11129032258060.49267025602035122.5531989942613
Trimmed Mean ( 18 / 32 )11.1150.48743433571961122.803071481599
Trimmed Mean ( 19 / 32 )11.11724137931030.48193711971851723.0678254993173
Trimmed Mean ( 20 / 32 )11.11428571428570.47847450074838823.2285852159346
Trimmed Mean ( 21 / 32 )11.10555555555560.47495203087563623.382478300137
Trimmed Mean ( 22 / 32 )11.10.47099906652099723.5669256883871
Trimmed Mean ( 23 / 32 )11.0960.46785624863600523.7166865513701
Trimmed Mean ( 24 / 32 )11.08958333333330.46376924348188923.9118559266132
Trimmed Mean ( 25 / 32 )11.08260869565220.46005990313409124.0894905644972
Trimmed Mean ( 26 / 32 )11.07954545454550.45684342488079424.2523911938461
Trimmed Mean ( 27 / 32 )11.07619047619050.45305530763339624.4477667286333
Trimmed Mean ( 28 / 32 )11.07750.45101719081455924.5611480573357
Trimmed Mean ( 29 / 32 )11.07894736842110.44721610661214624.7731403333141
Trimmed Mean ( 30 / 32 )11.07777777777780.44472411835452324.9093254010272
Trimmed Mean ( 31 / 32 )11.07647058823530.43998174535802725.1748412407929
Trimmed Mean ( 32 / 32 )11.0843750.43653948420522225.3914603399062
Median10.7
Midrange12.35
Midmean - Weighted Average at Xnp10.9897959183673
Midmean - Weighted Average at X(n+1)p11.0895833333333
Midmean - Empirical Distribution Function10.9897959183673
Midmean - Empirical Distribution Function - Averaging11.0895833333333
Midmean - Empirical Distribution Function - Interpolation11.0895833333333
Midmean - Closest Observation10.9897959183673
Midmean - True Basic - Statistics Graphics Toolkit11.0895833333333
Midmean - MS Excel (old versions)11.1980392156863
Number of observations96

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 11.1020833333333 & 0.568473600983036 & 19.5296374609744 \tabularnewline
Geometric Mean & 9.4206371005681 &  &  \tabularnewline
Harmonic Mean & 7.5699147103715 &  &  \tabularnewline
Quadratic Mean & 12.407927573397 &  &  \tabularnewline
Winsorized Mean ( 1 / 32 ) & 11.08125 & 0.562065255974504 & 19.7152374785868 \tabularnewline
Winsorized Mean ( 2 / 32 ) & 11.0625 & 0.558939020777194 & 19.7919622512986 \tabularnewline
Winsorized Mean ( 3 / 32 ) & 11.059375 & 0.557442818491868 & 19.8394788364492 \tabularnewline
Winsorized Mean ( 4 / 32 ) & 11.071875 & 0.554124691310302 & 19.9808367568301 \tabularnewline
Winsorized Mean ( 5 / 32 ) & 11.0614583333333 & 0.550932960292004 & 20.0776848193482 \tabularnewline
Winsorized Mean ( 6 / 32 ) & 11.0677083333333 & 0.546193957725101 & 20.263329860752 \tabularnewline
Winsorized Mean ( 7 / 32 ) & 11.0677083333333 & 0.544025554884778 & 20.3440964012755 \tabularnewline
Winsorized Mean ( 8 / 32 ) & 11.059375 & 0.540371416544197 & 20.4662472170111 \tabularnewline
Winsorized Mean ( 9 / 32 ) & 11.06875 & 0.538979120490359 & 20.5365098186544 \tabularnewline
Winsorized Mean ( 10 / 32 ) & 11.1208333333333 & 0.531455541593141 & 20.9252373208801 \tabularnewline
Winsorized Mean ( 11 / 32 ) & 11.1208333333333 & 0.528200181073946 & 21.0542020465087 \tabularnewline
Winsorized Mean ( 12 / 32 ) & 11.0958333333333 & 0.514244285989173 & 21.576969614723 \tabularnewline
Winsorized Mean ( 13 / 32 ) & 11.06875 & 0.50689178509643 & 21.8365148645964 \tabularnewline
Winsorized Mean ( 14 / 32 ) & 11.0541666666667 & 0.504953351733505 & 21.8914611195623 \tabularnewline
Winsorized Mean ( 15 / 32 ) & 11.0541666666667 & 0.500766773170017 & 22.074481093644 \tabularnewline
Winsorized Mean ( 16 / 32 ) & 11.0541666666667 & 0.496332860567918 & 22.2716800455609 \tabularnewline
Winsorized Mean ( 17 / 32 ) & 11.071875 & 0.49395624301244 & 22.4146878526671 \tabularnewline
Winsorized Mean ( 18 / 32 ) & 11.090625 & 0.486535997219026 & 22.7950759314676 \tabularnewline
Winsorized Mean ( 19 / 32 ) & 11.15 & 0.463550845069785 & 24.0534563114029 \tabularnewline
Winsorized Mean ( 20 / 32 ) & 11.2125 & 0.45577736273971 & 24.600826887498 \tabularnewline
Winsorized Mean ( 21 / 32 ) & 11.16875 & 0.45017616556617 & 24.8097319544971 \tabularnewline
Winsorized Mean ( 22 / 32 ) & 11.1458333333333 & 0.435914839247328 & 25.5688320970635 \tabularnewline
Winsorized Mean ( 23 / 32 ) & 11.1697916666667 & 0.433007940731011 & 25.7958125382404 \tabularnewline
Winsorized Mean ( 24 / 32 ) & 11.1697916666667 & 0.420802595173238 & 26.5440180141195 \tabularnewline
Winsorized Mean ( 25 / 32 ) & 11.1177083333333 & 0.408162320414669 & 27.2384484732408 \tabularnewline
Winsorized Mean ( 26 / 32 ) & 11.1177083333333 & 0.401685033043551 & 27.6776763353489 \tabularnewline
Winsorized Mean ( 27 / 32 ) & 11.0614583333333 & 0.3817157991196 & 28.9782564904198 \tabularnewline
Winsorized Mean ( 28 / 32 ) & 11.0614583333333 & 0.3817157991196 & 28.9782564904198 \tabularnewline
Winsorized Mean ( 29 / 32 ) & 11.0916666666667 & 0.364127973776459 & 30.4609023899821 \tabularnewline
Winsorized Mean ( 30 / 32 ) & 11.0916666666667 & 0.364127973776459 & 30.4609023899821 \tabularnewline
Winsorized Mean ( 31 / 32 ) & 10.9947916666667 & 0.345622276936916 & 31.8115827605449 \tabularnewline
Winsorized Mean ( 32 / 32 ) & 10.9614583333333 & 0.341874251632225 & 32.0628367915969 \tabularnewline
Trimmed Mean ( 1 / 32 ) & 11.0755319148936 & 0.557514925518762 & 19.8658931051719 \tabularnewline
Trimmed Mean ( 2 / 32 ) & 11.0695652173913 & 0.552245857974821 & 20.0446323997527 \tabularnewline
Trimmed Mean ( 3 / 32 ) & 11.0733333333333 & 0.547981883659466 & 20.207480691487 \tabularnewline
Trimmed Mean ( 4 / 32 ) & 11.0784090909091 & 0.543601637210698 & 20.3796462934771 \tabularnewline
Trimmed Mean ( 5 / 32 ) & 11.0802325581395 & 0.539528648131333 & 20.5368752827419 \tabularnewline
Trimmed Mean ( 6 / 32 ) & 11.0845238095238 & 0.535569289359613 & 20.6967128805644 \tabularnewline
Trimmed Mean ( 7 / 32 ) & 11.0878048780488 & 0.531972038226343 & 20.8428339861937 \tabularnewline
Trimmed Mean ( 8 / 32 ) & 11.09125 & 0.528097234495958 & 21.0022876006651 \tabularnewline
Trimmed Mean ( 9 / 32 ) & 11.0961538461538 & 0.524140646781027 & 21.1701838319545 \tabularnewline
Trimmed Mean ( 10 / 32 ) & 11.1 & 0.519605113219847 & 21.3623763846672 \tabularnewline
Trimmed Mean ( 11 / 32 ) & 11.0972972972973 & 0.515448040650117 & 21.5294198874064 \tabularnewline
Trimmed Mean ( 12 / 32 ) & 11.0944444444444 & 0.510913328405864 & 21.7149246802016 \tabularnewline
Trimmed Mean ( 13 / 32 ) & 11.0942857142857 & 0.507626661016015 & 21.8552069193539 \tabularnewline
Trimmed Mean ( 14 / 32 ) & 11.0970588235294 & 0.504609875423624 & 21.9913627616054 \tabularnewline
Trimmed Mean ( 15 / 32 ) & 11.1015151515152 & 0.501012924679363 & 22.1581412467949 \tabularnewline
Trimmed Mean ( 16 / 32 ) & 11.10625 & 0.497054194252306 & 22.3441430098112 \tabularnewline
Trimmed Mean ( 17 / 32 ) & 11.1112903225806 & 0.492670256020351 & 22.5531989942613 \tabularnewline
Trimmed Mean ( 18 / 32 ) & 11.115 & 0.487434335719611 & 22.803071481599 \tabularnewline
Trimmed Mean ( 19 / 32 ) & 11.1172413793103 & 0.481937119718517 & 23.0678254993173 \tabularnewline
Trimmed Mean ( 20 / 32 ) & 11.1142857142857 & 0.478474500748388 & 23.2285852159346 \tabularnewline
Trimmed Mean ( 21 / 32 ) & 11.1055555555556 & 0.474952030875636 & 23.382478300137 \tabularnewline
Trimmed Mean ( 22 / 32 ) & 11.1 & 0.470999066520997 & 23.5669256883871 \tabularnewline
Trimmed Mean ( 23 / 32 ) & 11.096 & 0.467856248636005 & 23.7166865513701 \tabularnewline
Trimmed Mean ( 24 / 32 ) & 11.0895833333333 & 0.463769243481889 & 23.9118559266132 \tabularnewline
Trimmed Mean ( 25 / 32 ) & 11.0826086956522 & 0.460059903134091 & 24.0894905644972 \tabularnewline
Trimmed Mean ( 26 / 32 ) & 11.0795454545455 & 0.456843424880794 & 24.2523911938461 \tabularnewline
Trimmed Mean ( 27 / 32 ) & 11.0761904761905 & 0.453055307633396 & 24.4477667286333 \tabularnewline
Trimmed Mean ( 28 / 32 ) & 11.0775 & 0.451017190814559 & 24.5611480573357 \tabularnewline
Trimmed Mean ( 29 / 32 ) & 11.0789473684211 & 0.447216106612146 & 24.7731403333141 \tabularnewline
Trimmed Mean ( 30 / 32 ) & 11.0777777777778 & 0.444724118354523 & 24.9093254010272 \tabularnewline
Trimmed Mean ( 31 / 32 ) & 11.0764705882353 & 0.439981745358027 & 25.1748412407929 \tabularnewline
Trimmed Mean ( 32 / 32 ) & 11.084375 & 0.436539484205222 & 25.3914603399062 \tabularnewline
Median & 10.7 &  &  \tabularnewline
Midrange & 12.35 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 10.9897959183673 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 11.0895833333333 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 10.9897959183673 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 11.0895833333333 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 11.0895833333333 &  &  \tabularnewline
Midmean - Closest Observation & 10.9897959183673 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 11.0895833333333 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 11.1980392156863 &  &  \tabularnewline
Number of observations & 96 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=149921&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]11.1020833333333[/C][C]0.568473600983036[/C][C]19.5296374609744[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]9.4206371005681[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]7.5699147103715[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]12.407927573397[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 32 )[/C][C]11.08125[/C][C]0.562065255974504[/C][C]19.7152374785868[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 32 )[/C][C]11.0625[/C][C]0.558939020777194[/C][C]19.7919622512986[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 32 )[/C][C]11.059375[/C][C]0.557442818491868[/C][C]19.8394788364492[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 32 )[/C][C]11.071875[/C][C]0.554124691310302[/C][C]19.9808367568301[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 32 )[/C][C]11.0614583333333[/C][C]0.550932960292004[/C][C]20.0776848193482[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 32 )[/C][C]11.0677083333333[/C][C]0.546193957725101[/C][C]20.263329860752[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 32 )[/C][C]11.0677083333333[/C][C]0.544025554884778[/C][C]20.3440964012755[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 32 )[/C][C]11.059375[/C][C]0.540371416544197[/C][C]20.4662472170111[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 32 )[/C][C]11.06875[/C][C]0.538979120490359[/C][C]20.5365098186544[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 32 )[/C][C]11.1208333333333[/C][C]0.531455541593141[/C][C]20.9252373208801[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 32 )[/C][C]11.1208333333333[/C][C]0.528200181073946[/C][C]21.0542020465087[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 32 )[/C][C]11.0958333333333[/C][C]0.514244285989173[/C][C]21.576969614723[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 32 )[/C][C]11.06875[/C][C]0.50689178509643[/C][C]21.8365148645964[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 32 )[/C][C]11.0541666666667[/C][C]0.504953351733505[/C][C]21.8914611195623[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 32 )[/C][C]11.0541666666667[/C][C]0.500766773170017[/C][C]22.074481093644[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 32 )[/C][C]11.0541666666667[/C][C]0.496332860567918[/C][C]22.2716800455609[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 32 )[/C][C]11.071875[/C][C]0.49395624301244[/C][C]22.4146878526671[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 32 )[/C][C]11.090625[/C][C]0.486535997219026[/C][C]22.7950759314676[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 32 )[/C][C]11.15[/C][C]0.463550845069785[/C][C]24.0534563114029[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 32 )[/C][C]11.2125[/C][C]0.45577736273971[/C][C]24.600826887498[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 32 )[/C][C]11.16875[/C][C]0.45017616556617[/C][C]24.8097319544971[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 32 )[/C][C]11.1458333333333[/C][C]0.435914839247328[/C][C]25.5688320970635[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 32 )[/C][C]11.1697916666667[/C][C]0.433007940731011[/C][C]25.7958125382404[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 32 )[/C][C]11.1697916666667[/C][C]0.420802595173238[/C][C]26.5440180141195[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 32 )[/C][C]11.1177083333333[/C][C]0.408162320414669[/C][C]27.2384484732408[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 32 )[/C][C]11.1177083333333[/C][C]0.401685033043551[/C][C]27.6776763353489[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 32 )[/C][C]11.0614583333333[/C][C]0.3817157991196[/C][C]28.9782564904198[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 32 )[/C][C]11.0614583333333[/C][C]0.3817157991196[/C][C]28.9782564904198[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 32 )[/C][C]11.0916666666667[/C][C]0.364127973776459[/C][C]30.4609023899821[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 32 )[/C][C]11.0916666666667[/C][C]0.364127973776459[/C][C]30.4609023899821[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 32 )[/C][C]10.9947916666667[/C][C]0.345622276936916[/C][C]31.8115827605449[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 32 )[/C][C]10.9614583333333[/C][C]0.341874251632225[/C][C]32.0628367915969[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 32 )[/C][C]11.0755319148936[/C][C]0.557514925518762[/C][C]19.8658931051719[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 32 )[/C][C]11.0695652173913[/C][C]0.552245857974821[/C][C]20.0446323997527[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 32 )[/C][C]11.0733333333333[/C][C]0.547981883659466[/C][C]20.207480691487[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 32 )[/C][C]11.0784090909091[/C][C]0.543601637210698[/C][C]20.3796462934771[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 32 )[/C][C]11.0802325581395[/C][C]0.539528648131333[/C][C]20.5368752827419[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 32 )[/C][C]11.0845238095238[/C][C]0.535569289359613[/C][C]20.6967128805644[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 32 )[/C][C]11.0878048780488[/C][C]0.531972038226343[/C][C]20.8428339861937[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 32 )[/C][C]11.09125[/C][C]0.528097234495958[/C][C]21.0022876006651[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 32 )[/C][C]11.0961538461538[/C][C]0.524140646781027[/C][C]21.1701838319545[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 32 )[/C][C]11.1[/C][C]0.519605113219847[/C][C]21.3623763846672[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 32 )[/C][C]11.0972972972973[/C][C]0.515448040650117[/C][C]21.5294198874064[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 32 )[/C][C]11.0944444444444[/C][C]0.510913328405864[/C][C]21.7149246802016[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 32 )[/C][C]11.0942857142857[/C][C]0.507626661016015[/C][C]21.8552069193539[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 32 )[/C][C]11.0970588235294[/C][C]0.504609875423624[/C][C]21.9913627616054[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 32 )[/C][C]11.1015151515152[/C][C]0.501012924679363[/C][C]22.1581412467949[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 32 )[/C][C]11.10625[/C][C]0.497054194252306[/C][C]22.3441430098112[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 32 )[/C][C]11.1112903225806[/C][C]0.492670256020351[/C][C]22.5531989942613[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 32 )[/C][C]11.115[/C][C]0.487434335719611[/C][C]22.803071481599[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 32 )[/C][C]11.1172413793103[/C][C]0.481937119718517[/C][C]23.0678254993173[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 32 )[/C][C]11.1142857142857[/C][C]0.478474500748388[/C][C]23.2285852159346[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 32 )[/C][C]11.1055555555556[/C][C]0.474952030875636[/C][C]23.382478300137[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 32 )[/C][C]11.1[/C][C]0.470999066520997[/C][C]23.5669256883871[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 32 )[/C][C]11.096[/C][C]0.467856248636005[/C][C]23.7166865513701[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 32 )[/C][C]11.0895833333333[/C][C]0.463769243481889[/C][C]23.9118559266132[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 32 )[/C][C]11.0826086956522[/C][C]0.460059903134091[/C][C]24.0894905644972[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 32 )[/C][C]11.0795454545455[/C][C]0.456843424880794[/C][C]24.2523911938461[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 32 )[/C][C]11.0761904761905[/C][C]0.453055307633396[/C][C]24.4477667286333[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 32 )[/C][C]11.0775[/C][C]0.451017190814559[/C][C]24.5611480573357[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 32 )[/C][C]11.0789473684211[/C][C]0.447216106612146[/C][C]24.7731403333141[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 32 )[/C][C]11.0777777777778[/C][C]0.444724118354523[/C][C]24.9093254010272[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 32 )[/C][C]11.0764705882353[/C][C]0.439981745358027[/C][C]25.1748412407929[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 32 )[/C][C]11.084375[/C][C]0.436539484205222[/C][C]25.3914603399062[/C][/ROW]
[ROW][C]Median[/C][C]10.7[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]12.35[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]10.9897959183673[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]11.0895833333333[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]10.9897959183673[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]11.0895833333333[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]11.0895833333333[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]10.9897959183673[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]11.0895833333333[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]11.1980392156863[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]96[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=149921&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=149921&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 Mean11.10208333333330.56847360098303619.5296374609744
Geometric Mean9.4206371005681
Harmonic Mean7.5699147103715
Quadratic Mean12.407927573397
Winsorized Mean ( 1 / 32 )11.081250.56206525597450419.7152374785868
Winsorized Mean ( 2 / 32 )11.06250.55893902077719419.7919622512986
Winsorized Mean ( 3 / 32 )11.0593750.55744281849186819.8394788364492
Winsorized Mean ( 4 / 32 )11.0718750.55412469131030219.9808367568301
Winsorized Mean ( 5 / 32 )11.06145833333330.55093296029200420.0776848193482
Winsorized Mean ( 6 / 32 )11.06770833333330.54619395772510120.263329860752
Winsorized Mean ( 7 / 32 )11.06770833333330.54402555488477820.3440964012755
Winsorized Mean ( 8 / 32 )11.0593750.54037141654419720.4662472170111
Winsorized Mean ( 9 / 32 )11.068750.53897912049035920.5365098186544
Winsorized Mean ( 10 / 32 )11.12083333333330.53145554159314120.9252373208801
Winsorized Mean ( 11 / 32 )11.12083333333330.52820018107394621.0542020465087
Winsorized Mean ( 12 / 32 )11.09583333333330.51424428598917321.576969614723
Winsorized Mean ( 13 / 32 )11.068750.5068917850964321.8365148645964
Winsorized Mean ( 14 / 32 )11.05416666666670.50495335173350521.8914611195623
Winsorized Mean ( 15 / 32 )11.05416666666670.50076677317001722.074481093644
Winsorized Mean ( 16 / 32 )11.05416666666670.49633286056791822.2716800455609
Winsorized Mean ( 17 / 32 )11.0718750.4939562430124422.4146878526671
Winsorized Mean ( 18 / 32 )11.0906250.48653599721902622.7950759314676
Winsorized Mean ( 19 / 32 )11.150.46355084506978524.0534563114029
Winsorized Mean ( 20 / 32 )11.21250.4557773627397124.600826887498
Winsorized Mean ( 21 / 32 )11.168750.4501761655661724.8097319544971
Winsorized Mean ( 22 / 32 )11.14583333333330.43591483924732825.5688320970635
Winsorized Mean ( 23 / 32 )11.16979166666670.43300794073101125.7958125382404
Winsorized Mean ( 24 / 32 )11.16979166666670.42080259517323826.5440180141195
Winsorized Mean ( 25 / 32 )11.11770833333330.40816232041466927.2384484732408
Winsorized Mean ( 26 / 32 )11.11770833333330.40168503304355127.6776763353489
Winsorized Mean ( 27 / 32 )11.06145833333330.381715799119628.9782564904198
Winsorized Mean ( 28 / 32 )11.06145833333330.381715799119628.9782564904198
Winsorized Mean ( 29 / 32 )11.09166666666670.36412797377645930.4609023899821
Winsorized Mean ( 30 / 32 )11.09166666666670.36412797377645930.4609023899821
Winsorized Mean ( 31 / 32 )10.99479166666670.34562227693691631.8115827605449
Winsorized Mean ( 32 / 32 )10.96145833333330.34187425163222532.0628367915969
Trimmed Mean ( 1 / 32 )11.07553191489360.55751492551876219.8658931051719
Trimmed Mean ( 2 / 32 )11.06956521739130.55224585797482120.0446323997527
Trimmed Mean ( 3 / 32 )11.07333333333330.54798188365946620.207480691487
Trimmed Mean ( 4 / 32 )11.07840909090910.54360163721069820.3796462934771
Trimmed Mean ( 5 / 32 )11.08023255813950.53952864813133320.5368752827419
Trimmed Mean ( 6 / 32 )11.08452380952380.53556928935961320.6967128805644
Trimmed Mean ( 7 / 32 )11.08780487804880.53197203822634320.8428339861937
Trimmed Mean ( 8 / 32 )11.091250.52809723449595821.0022876006651
Trimmed Mean ( 9 / 32 )11.09615384615380.52414064678102721.1701838319545
Trimmed Mean ( 10 / 32 )11.10.51960511321984721.3623763846672
Trimmed Mean ( 11 / 32 )11.09729729729730.51544804065011721.5294198874064
Trimmed Mean ( 12 / 32 )11.09444444444440.51091332840586421.7149246802016
Trimmed Mean ( 13 / 32 )11.09428571428570.50762666101601521.8552069193539
Trimmed Mean ( 14 / 32 )11.09705882352940.50460987542362421.9913627616054
Trimmed Mean ( 15 / 32 )11.10151515151520.50101292467936322.1581412467949
Trimmed Mean ( 16 / 32 )11.106250.49705419425230622.3441430098112
Trimmed Mean ( 17 / 32 )11.11129032258060.49267025602035122.5531989942613
Trimmed Mean ( 18 / 32 )11.1150.48743433571961122.803071481599
Trimmed Mean ( 19 / 32 )11.11724137931030.48193711971851723.0678254993173
Trimmed Mean ( 20 / 32 )11.11428571428570.47847450074838823.2285852159346
Trimmed Mean ( 21 / 32 )11.10555555555560.47495203087563623.382478300137
Trimmed Mean ( 22 / 32 )11.10.47099906652099723.5669256883871
Trimmed Mean ( 23 / 32 )11.0960.46785624863600523.7166865513701
Trimmed Mean ( 24 / 32 )11.08958333333330.46376924348188923.9118559266132
Trimmed Mean ( 25 / 32 )11.08260869565220.46005990313409124.0894905644972
Trimmed Mean ( 26 / 32 )11.07954545454550.45684342488079424.2523911938461
Trimmed Mean ( 27 / 32 )11.07619047619050.45305530763339624.4477667286333
Trimmed Mean ( 28 / 32 )11.07750.45101719081455924.5611480573357
Trimmed Mean ( 29 / 32 )11.07894736842110.44721610661214624.7731403333141
Trimmed Mean ( 30 / 32 )11.07777777777780.44472411835452324.9093254010272
Trimmed Mean ( 31 / 32 )11.07647058823530.43998174535802725.1748412407929
Trimmed Mean ( 32 / 32 )11.0843750.43653948420522225.3914603399062
Median10.7
Midrange12.35
Midmean - Weighted Average at Xnp10.9897959183673
Midmean - Weighted Average at X(n+1)p11.0895833333333
Midmean - Empirical Distribution Function10.9897959183673
Midmean - Empirical Distribution Function - Averaging11.0895833333333
Midmean - Empirical Distribution Function - Interpolation11.0895833333333
Midmean - Closest Observation10.9897959183673
Midmean - True Basic - Statistics Graphics Toolkit11.0895833333333
Midmean - MS Excel (old versions)11.1980392156863
Number of observations96



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