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 computationFri, 07 Dec 2012 18:04:50 -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/07/t1354921593b70beskin24e7iv.htm/, Retrieved Fri, 29 Mar 2024 04:51:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=197515, Retrieved Fri, 29 Mar 2024 04:51:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [] [2008-12-08 19:22:39] [d2d412c7f4d35ffbf5ee5ee89db327d4]
- RMPD  [Central Tendency] [] [2011-12-06 20:01:16] [b98453cac15ba1066b407e146608df68]
- R  D      [Central Tendency] [Workshop 9: Centr...] [2012-12-07 23:04:50] [02d90269174925f788b5f8bc5e12639b] [Current]
Feedback Forum

Post a new message
Dataseries X:
0.0369999745003413
-5.9623186537317
13.199750510756
-4.38134104653015
-8.55664024772041
11.1858500834747
43.1600828172584
-18.0555098078549
-1.03390376859901
-21.480207773057
12.9526883745974
92.7450087068449
-7.62959923006792
-36.3793071886167
6.34670392141556
5.4438142475064
11.2068476762212
-9.34880084666512
70.7983973254214
-21.4398345761841
19.3537016552739
-24.3407859893616
-47.8930389401323
-5.23120399526416
15.0447379573563
2.66174086946239
-18.5463802136914
24.2312685058628
-22.3926123716306
30.8921837808626
10.2858183676532
-17.6363037027495
-6.4130297615578
-14.0694124848462
-34.2139388425848
23.3594254521777
7.01011297221759
-10.153611430772
-14.8280599663193
13.537714424612
10.981865403099
33.2311335292979
-13.6424737570068
35.0456012872994
2.68076271897523
-6.2039576547908
-1.91546067977486
21.6997226809524
31.3300726113285
-6.0290002401709
-20.550957597228
-7.38401440956276
-22.453555756565
-42.9605320118509
-26.5894843205177
-29.8859887428515
-4.97592443186665
-14.2340692287293
-2.3967562794556
15.7192136412636
-23.9426635182183
-4.34641981100157
-14.9522778744557
-5.27697234321827
1.41659439929679
-13.9195439755118
-3.38446142046753
-4.40427257572364
-1.7286971613264
0.550474509876316
-8.22986146756033
3.80177197561401
10.3746038348396
-6.47719720961919
-8.27547947953864
-4.31240532620612
-1.49329925845406
-4.95561884498003
-0.0399352246639766
-6.47575127776272




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

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







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean-1.014227606271232.46121095900109-0.412084792066285
Geometric MeanNaN
Harmonic Mean-95.651760252921
Quadratic Mean21.8992202835896
Winsorized Mean ( 1 / 26 )-1.22690391193552.3265217226894-0.527355450830364
Winsorized Mean ( 2 / 26 )-1.753331154058722.05691284278411-0.852409065464106
Winsorized Mean ( 3 / 26 )-1.976422898455991.96126591984443-1.00772816090781
Winsorized Mean ( 4 / 26 )-1.85074878136941.89701354894064-0.975611788541481
Winsorized Mean ( 5 / 26 )-1.763533562346621.83255628465601-0.962335278382821
Winsorized Mean ( 6 / 26 )-1.627722849794861.79708031828158-0.905759655389989
Winsorized Mean ( 7 / 26 )-2.17571722013231.66587665444629-1.30604940907553
Winsorized Mean ( 8 / 26 )-2.113990749335481.62435259592092-1.30143587952772
Winsorized Mean ( 9 / 26 )-2.293851180293211.58685115457336-1.4455364472479
Winsorized Mean ( 10 / 26 )-2.473053233681321.51378746378478-1.63368589900869
Winsorized Mean ( 11 / 26 )-2.967244021037711.42570624961124-2.08124501232061
Winsorized Mean ( 12 / 26 )-2.935083826780391.38736212062851-2.11558596212121
Winsorized Mean ( 13 / 26 )-2.854231326026651.29648936048582-2.20150771230171
Winsorized Mean ( 14 / 26 )-2.827472689930061.27396710918787-2.21942361740604
Winsorized Mean ( 15 / 26 )-2.795195695752531.25476791615022-2.22765952155402
Winsorized Mean ( 16 / 26 )-2.607558669769011.12207570379912-2.32387053827149
Winsorized Mean ( 17 / 26 )-2.585624352748661.11771216935453-2.31331860173075
Winsorized Mean ( 18 / 26 )-2.497872989875441.09219166536486-2.28702806392593
Winsorized Mean ( 19 / 26 )-2.602991635664811.06446972647004-2.44534115995649
Winsorized Mean ( 20 / 26 )-2.587720875127811.05594508697533-2.45062068761561
Winsorized Mean ( 21 / 26 )-3.37486260907210.917593674468951-3.67794886012621
Winsorized Mean ( 22 / 26 )-2.597862958328090.762154238674144-3.40857903361841
Winsorized Mean ( 23 / 26 )-2.626060696646240.695091518896542-3.7780071044675
Winsorized Mean ( 24 / 26 )-2.881025198530550.594864365298599-4.8431631924773
Winsorized Mean ( 25 / 26 )-3.143477851173360.535147333095179-5.87404188859945
Winsorized Mean ( 26 / 26 )-3.134834098372080.532497878848708-5.88703584162585
Trimmed Mean ( 1 / 26 )-1.615258695748862.13072528461253-0.758079282868504
Trimmed Mean ( 2 / 26 )-2.024053205026071.88722908287666-1.07250000722798
Trimmed Mean ( 3 / 26 )-2.17038944879221.77803025214453-1.22067070915944
Trimmed Mean ( 4 / 26 )-2.242228911879691.69377292570035-1.3238072694736
Trimmed Mean ( 5 / 26 )-2.354080377739771.61785035144711-1.45506682718469
Trimmed Mean ( 6 / 26 )-2.493032569596981.54809805340801-1.61038415112581
Trimmed Mean ( 7 / 26 )-2.667842614001451.47433603113746-1.80952141008397
Trimmed Mean ( 8 / 26 )-2.755722148620941.42159121664621-1.9384771911592
Trimmed Mean ( 9 / 26 )-2.859227213021821.36799617920871-2.0900842096472
Trimmed Mean ( 10 / 26 )-2.942986625277911.31189365205404-2.24331188787297
Trimmed Mean ( 11 / 26 )-3.007805024118821.26035401783705-2.38647632454939
Trimmed Mean ( 12 / 26 )-3.013072686856631.21691446145491-2.47599382067848
Trimmed Mean ( 13 / 26 )-3.022700941187031.17144065855158-2.58032783745479
Trimmed Mean ( 14 / 26 )-3.042638173750391.13430553979043-2.68237971782499
Trimmed Mean ( 15 / 26 )-3.067228514758421.09226623831316-2.80813267605459
Trimmed Mean ( 16 / 26 )-3.097454383536861.04296486899293-2.96985495448923
Trimmed Mean ( 17 / 26 )-3.150703917642061.00931451571797-3.12162746951165
Trimmed Mean ( 18 / 26 )-3.211140234742950.966315212921119-3.32307738903939
Trimmed Mean ( 19 / 26 )-3.286618250072850.915569898590713-3.58969670708022
Trimmed Mean ( 20 / 26 )-3.358578946326330.854997800970609-3.92817261344252
Trimmed Mean ( 21 / 26 )-3.439721901189330.77406364058343-4.44371976779161
Trimmed Mean ( 22 / 26 )-3.446585318344590.706625383179746-4.8775283203602
Trimmed Mean ( 23 / 26 )-3.537357763266140.659477473338698-5.36387959600465
Trimmed Mean ( 24 / 26 )-3.636411792246570.613376863807686-5.92851150216631
Trimmed Mean ( 25 / 26 )-3.720343635992790.580798860456671-6.40556290531899
Trimmed Mean ( 26 / 26 )-3.786271154257870.55352363314518-6.84030622639159
Median-4.3928068111269
Midrange22.4259848833563
Midmean - Weighted Average at Xnp-3.61981878872925
Midmean - Weighted Average at X(n+1)p-3.35857894632633
Midmean - Empirical Distribution Function-3.61981878872925
Midmean - Empirical Distribution Function - Averaging-3.35857894632633
Midmean - Empirical Distribution Function - Interpolation-3.35857894632633
Midmean - Closest Observation-3.61981878872925
Midmean - True Basic - Statistics Graphics Toolkit-3.35857894632633
Midmean - MS Excel (old versions)-3.28661825007285
Number of observations80

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & -1.01422760627123 & 2.46121095900109 & -0.412084792066285 \tabularnewline
Geometric Mean & NaN &  &  \tabularnewline
Harmonic Mean & -95.651760252921 &  &  \tabularnewline
Quadratic Mean & 21.8992202835896 &  &  \tabularnewline
Winsorized Mean ( 1 / 26 ) & -1.2269039119355 & 2.3265217226894 & -0.527355450830364 \tabularnewline
Winsorized Mean ( 2 / 26 ) & -1.75333115405872 & 2.05691284278411 & -0.852409065464106 \tabularnewline
Winsorized Mean ( 3 / 26 ) & -1.97642289845599 & 1.96126591984443 & -1.00772816090781 \tabularnewline
Winsorized Mean ( 4 / 26 ) & -1.8507487813694 & 1.89701354894064 & -0.975611788541481 \tabularnewline
Winsorized Mean ( 5 / 26 ) & -1.76353356234662 & 1.83255628465601 & -0.962335278382821 \tabularnewline
Winsorized Mean ( 6 / 26 ) & -1.62772284979486 & 1.79708031828158 & -0.905759655389989 \tabularnewline
Winsorized Mean ( 7 / 26 ) & -2.1757172201323 & 1.66587665444629 & -1.30604940907553 \tabularnewline
Winsorized Mean ( 8 / 26 ) & -2.11399074933548 & 1.62435259592092 & -1.30143587952772 \tabularnewline
Winsorized Mean ( 9 / 26 ) & -2.29385118029321 & 1.58685115457336 & -1.4455364472479 \tabularnewline
Winsorized Mean ( 10 / 26 ) & -2.47305323368132 & 1.51378746378478 & -1.63368589900869 \tabularnewline
Winsorized Mean ( 11 / 26 ) & -2.96724402103771 & 1.42570624961124 & -2.08124501232061 \tabularnewline
Winsorized Mean ( 12 / 26 ) & -2.93508382678039 & 1.38736212062851 & -2.11558596212121 \tabularnewline
Winsorized Mean ( 13 / 26 ) & -2.85423132602665 & 1.29648936048582 & -2.20150771230171 \tabularnewline
Winsorized Mean ( 14 / 26 ) & -2.82747268993006 & 1.27396710918787 & -2.21942361740604 \tabularnewline
Winsorized Mean ( 15 / 26 ) & -2.79519569575253 & 1.25476791615022 & -2.22765952155402 \tabularnewline
Winsorized Mean ( 16 / 26 ) & -2.60755866976901 & 1.12207570379912 & -2.32387053827149 \tabularnewline
Winsorized Mean ( 17 / 26 ) & -2.58562435274866 & 1.11771216935453 & -2.31331860173075 \tabularnewline
Winsorized Mean ( 18 / 26 ) & -2.49787298987544 & 1.09219166536486 & -2.28702806392593 \tabularnewline
Winsorized Mean ( 19 / 26 ) & -2.60299163566481 & 1.06446972647004 & -2.44534115995649 \tabularnewline
Winsorized Mean ( 20 / 26 ) & -2.58772087512781 & 1.05594508697533 & -2.45062068761561 \tabularnewline
Winsorized Mean ( 21 / 26 ) & -3.3748626090721 & 0.917593674468951 & -3.67794886012621 \tabularnewline
Winsorized Mean ( 22 / 26 ) & -2.59786295832809 & 0.762154238674144 & -3.40857903361841 \tabularnewline
Winsorized Mean ( 23 / 26 ) & -2.62606069664624 & 0.695091518896542 & -3.7780071044675 \tabularnewline
Winsorized Mean ( 24 / 26 ) & -2.88102519853055 & 0.594864365298599 & -4.8431631924773 \tabularnewline
Winsorized Mean ( 25 / 26 ) & -3.14347785117336 & 0.535147333095179 & -5.87404188859945 \tabularnewline
Winsorized Mean ( 26 / 26 ) & -3.13483409837208 & 0.532497878848708 & -5.88703584162585 \tabularnewline
Trimmed Mean ( 1 / 26 ) & -1.61525869574886 & 2.13072528461253 & -0.758079282868504 \tabularnewline
Trimmed Mean ( 2 / 26 ) & -2.02405320502607 & 1.88722908287666 & -1.07250000722798 \tabularnewline
Trimmed Mean ( 3 / 26 ) & -2.1703894487922 & 1.77803025214453 & -1.22067070915944 \tabularnewline
Trimmed Mean ( 4 / 26 ) & -2.24222891187969 & 1.69377292570035 & -1.3238072694736 \tabularnewline
Trimmed Mean ( 5 / 26 ) & -2.35408037773977 & 1.61785035144711 & -1.45506682718469 \tabularnewline
Trimmed Mean ( 6 / 26 ) & -2.49303256959698 & 1.54809805340801 & -1.61038415112581 \tabularnewline
Trimmed Mean ( 7 / 26 ) & -2.66784261400145 & 1.47433603113746 & -1.80952141008397 \tabularnewline
Trimmed Mean ( 8 / 26 ) & -2.75572214862094 & 1.42159121664621 & -1.9384771911592 \tabularnewline
Trimmed Mean ( 9 / 26 ) & -2.85922721302182 & 1.36799617920871 & -2.0900842096472 \tabularnewline
Trimmed Mean ( 10 / 26 ) & -2.94298662527791 & 1.31189365205404 & -2.24331188787297 \tabularnewline
Trimmed Mean ( 11 / 26 ) & -3.00780502411882 & 1.26035401783705 & -2.38647632454939 \tabularnewline
Trimmed Mean ( 12 / 26 ) & -3.01307268685663 & 1.21691446145491 & -2.47599382067848 \tabularnewline
Trimmed Mean ( 13 / 26 ) & -3.02270094118703 & 1.17144065855158 & -2.58032783745479 \tabularnewline
Trimmed Mean ( 14 / 26 ) & -3.04263817375039 & 1.13430553979043 & -2.68237971782499 \tabularnewline
Trimmed Mean ( 15 / 26 ) & -3.06722851475842 & 1.09226623831316 & -2.80813267605459 \tabularnewline
Trimmed Mean ( 16 / 26 ) & -3.09745438353686 & 1.04296486899293 & -2.96985495448923 \tabularnewline
Trimmed Mean ( 17 / 26 ) & -3.15070391764206 & 1.00931451571797 & -3.12162746951165 \tabularnewline
Trimmed Mean ( 18 / 26 ) & -3.21114023474295 & 0.966315212921119 & -3.32307738903939 \tabularnewline
Trimmed Mean ( 19 / 26 ) & -3.28661825007285 & 0.915569898590713 & -3.58969670708022 \tabularnewline
Trimmed Mean ( 20 / 26 ) & -3.35857894632633 & 0.854997800970609 & -3.92817261344252 \tabularnewline
Trimmed Mean ( 21 / 26 ) & -3.43972190118933 & 0.77406364058343 & -4.44371976779161 \tabularnewline
Trimmed Mean ( 22 / 26 ) & -3.44658531834459 & 0.706625383179746 & -4.8775283203602 \tabularnewline
Trimmed Mean ( 23 / 26 ) & -3.53735776326614 & 0.659477473338698 & -5.36387959600465 \tabularnewline
Trimmed Mean ( 24 / 26 ) & -3.63641179224657 & 0.613376863807686 & -5.92851150216631 \tabularnewline
Trimmed Mean ( 25 / 26 ) & -3.72034363599279 & 0.580798860456671 & -6.40556290531899 \tabularnewline
Trimmed Mean ( 26 / 26 ) & -3.78627115425787 & 0.55352363314518 & -6.84030622639159 \tabularnewline
Median & -4.3928068111269 &  &  \tabularnewline
Midrange & 22.4259848833563 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & -3.61981878872925 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & -3.35857894632633 &  &  \tabularnewline
Midmean - Empirical Distribution Function & -3.61981878872925 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & -3.35857894632633 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & -3.35857894632633 &  &  \tabularnewline
Midmean - Closest Observation & -3.61981878872925 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & -3.35857894632633 &  &  \tabularnewline
Midmean - MS Excel (old versions) & -3.28661825007285 &  &  \tabularnewline
Number of observations & 80 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=197515&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]-1.01422760627123[/C][C]2.46121095900109[/C][C]-0.412084792066285[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]NaN[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]-95.651760252921[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]21.8992202835896[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 26 )[/C][C]-1.2269039119355[/C][C]2.3265217226894[/C][C]-0.527355450830364[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 26 )[/C][C]-1.75333115405872[/C][C]2.05691284278411[/C][C]-0.852409065464106[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 26 )[/C][C]-1.97642289845599[/C][C]1.96126591984443[/C][C]-1.00772816090781[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 26 )[/C][C]-1.8507487813694[/C][C]1.89701354894064[/C][C]-0.975611788541481[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 26 )[/C][C]-1.76353356234662[/C][C]1.83255628465601[/C][C]-0.962335278382821[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 26 )[/C][C]-1.62772284979486[/C][C]1.79708031828158[/C][C]-0.905759655389989[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 26 )[/C][C]-2.1757172201323[/C][C]1.66587665444629[/C][C]-1.30604940907553[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 26 )[/C][C]-2.11399074933548[/C][C]1.62435259592092[/C][C]-1.30143587952772[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 26 )[/C][C]-2.29385118029321[/C][C]1.58685115457336[/C][C]-1.4455364472479[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 26 )[/C][C]-2.47305323368132[/C][C]1.51378746378478[/C][C]-1.63368589900869[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 26 )[/C][C]-2.96724402103771[/C][C]1.42570624961124[/C][C]-2.08124501232061[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 26 )[/C][C]-2.93508382678039[/C][C]1.38736212062851[/C][C]-2.11558596212121[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 26 )[/C][C]-2.85423132602665[/C][C]1.29648936048582[/C][C]-2.20150771230171[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 26 )[/C][C]-2.82747268993006[/C][C]1.27396710918787[/C][C]-2.21942361740604[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 26 )[/C][C]-2.79519569575253[/C][C]1.25476791615022[/C][C]-2.22765952155402[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 26 )[/C][C]-2.60755866976901[/C][C]1.12207570379912[/C][C]-2.32387053827149[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 26 )[/C][C]-2.58562435274866[/C][C]1.11771216935453[/C][C]-2.31331860173075[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 26 )[/C][C]-2.49787298987544[/C][C]1.09219166536486[/C][C]-2.28702806392593[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 26 )[/C][C]-2.60299163566481[/C][C]1.06446972647004[/C][C]-2.44534115995649[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 26 )[/C][C]-2.58772087512781[/C][C]1.05594508697533[/C][C]-2.45062068761561[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 26 )[/C][C]-3.3748626090721[/C][C]0.917593674468951[/C][C]-3.67794886012621[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 26 )[/C][C]-2.59786295832809[/C][C]0.762154238674144[/C][C]-3.40857903361841[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 26 )[/C][C]-2.62606069664624[/C][C]0.695091518896542[/C][C]-3.7780071044675[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 26 )[/C][C]-2.88102519853055[/C][C]0.594864365298599[/C][C]-4.8431631924773[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 26 )[/C][C]-3.14347785117336[/C][C]0.535147333095179[/C][C]-5.87404188859945[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 26 )[/C][C]-3.13483409837208[/C][C]0.532497878848708[/C][C]-5.88703584162585[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 26 )[/C][C]-1.61525869574886[/C][C]2.13072528461253[/C][C]-0.758079282868504[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 26 )[/C][C]-2.02405320502607[/C][C]1.88722908287666[/C][C]-1.07250000722798[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 26 )[/C][C]-2.1703894487922[/C][C]1.77803025214453[/C][C]-1.22067070915944[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 26 )[/C][C]-2.24222891187969[/C][C]1.69377292570035[/C][C]-1.3238072694736[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 26 )[/C][C]-2.35408037773977[/C][C]1.61785035144711[/C][C]-1.45506682718469[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 26 )[/C][C]-2.49303256959698[/C][C]1.54809805340801[/C][C]-1.61038415112581[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 26 )[/C][C]-2.66784261400145[/C][C]1.47433603113746[/C][C]-1.80952141008397[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 26 )[/C][C]-2.75572214862094[/C][C]1.42159121664621[/C][C]-1.9384771911592[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 26 )[/C][C]-2.85922721302182[/C][C]1.36799617920871[/C][C]-2.0900842096472[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 26 )[/C][C]-2.94298662527791[/C][C]1.31189365205404[/C][C]-2.24331188787297[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 26 )[/C][C]-3.00780502411882[/C][C]1.26035401783705[/C][C]-2.38647632454939[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 26 )[/C][C]-3.01307268685663[/C][C]1.21691446145491[/C][C]-2.47599382067848[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 26 )[/C][C]-3.02270094118703[/C][C]1.17144065855158[/C][C]-2.58032783745479[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 26 )[/C][C]-3.04263817375039[/C][C]1.13430553979043[/C][C]-2.68237971782499[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 26 )[/C][C]-3.06722851475842[/C][C]1.09226623831316[/C][C]-2.80813267605459[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 26 )[/C][C]-3.09745438353686[/C][C]1.04296486899293[/C][C]-2.96985495448923[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 26 )[/C][C]-3.15070391764206[/C][C]1.00931451571797[/C][C]-3.12162746951165[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 26 )[/C][C]-3.21114023474295[/C][C]0.966315212921119[/C][C]-3.32307738903939[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 26 )[/C][C]-3.28661825007285[/C][C]0.915569898590713[/C][C]-3.58969670708022[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 26 )[/C][C]-3.35857894632633[/C][C]0.854997800970609[/C][C]-3.92817261344252[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 26 )[/C][C]-3.43972190118933[/C][C]0.77406364058343[/C][C]-4.44371976779161[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 26 )[/C][C]-3.44658531834459[/C][C]0.706625383179746[/C][C]-4.8775283203602[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 26 )[/C][C]-3.53735776326614[/C][C]0.659477473338698[/C][C]-5.36387959600465[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 26 )[/C][C]-3.63641179224657[/C][C]0.613376863807686[/C][C]-5.92851150216631[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 26 )[/C][C]-3.72034363599279[/C][C]0.580798860456671[/C][C]-6.40556290531899[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 26 )[/C][C]-3.78627115425787[/C][C]0.55352363314518[/C][C]-6.84030622639159[/C][/ROW]
[ROW][C]Median[/C][C]-4.3928068111269[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]22.4259848833563[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]-3.61981878872925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]-3.35857894632633[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]-3.61981878872925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]-3.35857894632633[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]-3.35857894632633[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]-3.61981878872925[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]-3.35857894632633[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]-3.28661825007285[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]80[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=197515&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=197515&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 Mean-1.014227606271232.46121095900109-0.412084792066285
Geometric MeanNaN
Harmonic Mean-95.651760252921
Quadratic Mean21.8992202835896
Winsorized Mean ( 1 / 26 )-1.22690391193552.3265217226894-0.527355450830364
Winsorized Mean ( 2 / 26 )-1.753331154058722.05691284278411-0.852409065464106
Winsorized Mean ( 3 / 26 )-1.976422898455991.96126591984443-1.00772816090781
Winsorized Mean ( 4 / 26 )-1.85074878136941.89701354894064-0.975611788541481
Winsorized Mean ( 5 / 26 )-1.763533562346621.83255628465601-0.962335278382821
Winsorized Mean ( 6 / 26 )-1.627722849794861.79708031828158-0.905759655389989
Winsorized Mean ( 7 / 26 )-2.17571722013231.66587665444629-1.30604940907553
Winsorized Mean ( 8 / 26 )-2.113990749335481.62435259592092-1.30143587952772
Winsorized Mean ( 9 / 26 )-2.293851180293211.58685115457336-1.4455364472479
Winsorized Mean ( 10 / 26 )-2.473053233681321.51378746378478-1.63368589900869
Winsorized Mean ( 11 / 26 )-2.967244021037711.42570624961124-2.08124501232061
Winsorized Mean ( 12 / 26 )-2.935083826780391.38736212062851-2.11558596212121
Winsorized Mean ( 13 / 26 )-2.854231326026651.29648936048582-2.20150771230171
Winsorized Mean ( 14 / 26 )-2.827472689930061.27396710918787-2.21942361740604
Winsorized Mean ( 15 / 26 )-2.795195695752531.25476791615022-2.22765952155402
Winsorized Mean ( 16 / 26 )-2.607558669769011.12207570379912-2.32387053827149
Winsorized Mean ( 17 / 26 )-2.585624352748661.11771216935453-2.31331860173075
Winsorized Mean ( 18 / 26 )-2.497872989875441.09219166536486-2.28702806392593
Winsorized Mean ( 19 / 26 )-2.602991635664811.06446972647004-2.44534115995649
Winsorized Mean ( 20 / 26 )-2.587720875127811.05594508697533-2.45062068761561
Winsorized Mean ( 21 / 26 )-3.37486260907210.917593674468951-3.67794886012621
Winsorized Mean ( 22 / 26 )-2.597862958328090.762154238674144-3.40857903361841
Winsorized Mean ( 23 / 26 )-2.626060696646240.695091518896542-3.7780071044675
Winsorized Mean ( 24 / 26 )-2.881025198530550.594864365298599-4.8431631924773
Winsorized Mean ( 25 / 26 )-3.143477851173360.535147333095179-5.87404188859945
Winsorized Mean ( 26 / 26 )-3.134834098372080.532497878848708-5.88703584162585
Trimmed Mean ( 1 / 26 )-1.615258695748862.13072528461253-0.758079282868504
Trimmed Mean ( 2 / 26 )-2.024053205026071.88722908287666-1.07250000722798
Trimmed Mean ( 3 / 26 )-2.17038944879221.77803025214453-1.22067070915944
Trimmed Mean ( 4 / 26 )-2.242228911879691.69377292570035-1.3238072694736
Trimmed Mean ( 5 / 26 )-2.354080377739771.61785035144711-1.45506682718469
Trimmed Mean ( 6 / 26 )-2.493032569596981.54809805340801-1.61038415112581
Trimmed Mean ( 7 / 26 )-2.667842614001451.47433603113746-1.80952141008397
Trimmed Mean ( 8 / 26 )-2.755722148620941.42159121664621-1.9384771911592
Trimmed Mean ( 9 / 26 )-2.859227213021821.36799617920871-2.0900842096472
Trimmed Mean ( 10 / 26 )-2.942986625277911.31189365205404-2.24331188787297
Trimmed Mean ( 11 / 26 )-3.007805024118821.26035401783705-2.38647632454939
Trimmed Mean ( 12 / 26 )-3.013072686856631.21691446145491-2.47599382067848
Trimmed Mean ( 13 / 26 )-3.022700941187031.17144065855158-2.58032783745479
Trimmed Mean ( 14 / 26 )-3.042638173750391.13430553979043-2.68237971782499
Trimmed Mean ( 15 / 26 )-3.067228514758421.09226623831316-2.80813267605459
Trimmed Mean ( 16 / 26 )-3.097454383536861.04296486899293-2.96985495448923
Trimmed Mean ( 17 / 26 )-3.150703917642061.00931451571797-3.12162746951165
Trimmed Mean ( 18 / 26 )-3.211140234742950.966315212921119-3.32307738903939
Trimmed Mean ( 19 / 26 )-3.286618250072850.915569898590713-3.58969670708022
Trimmed Mean ( 20 / 26 )-3.358578946326330.854997800970609-3.92817261344252
Trimmed Mean ( 21 / 26 )-3.439721901189330.77406364058343-4.44371976779161
Trimmed Mean ( 22 / 26 )-3.446585318344590.706625383179746-4.8775283203602
Trimmed Mean ( 23 / 26 )-3.537357763266140.659477473338698-5.36387959600465
Trimmed Mean ( 24 / 26 )-3.636411792246570.613376863807686-5.92851150216631
Trimmed Mean ( 25 / 26 )-3.720343635992790.580798860456671-6.40556290531899
Trimmed Mean ( 26 / 26 )-3.786271154257870.55352363314518-6.84030622639159
Median-4.3928068111269
Midrange22.4259848833563
Midmean - Weighted Average at Xnp-3.61981878872925
Midmean - Weighted Average at X(n+1)p-3.35857894632633
Midmean - Empirical Distribution Function-3.61981878872925
Midmean - Empirical Distribution Function - Averaging-3.35857894632633
Midmean - Empirical Distribution Function - Interpolation-3.35857894632633
Midmean - Closest Observation-3.61981878872925
Midmean - True Basic - Statistics Graphics Toolkit-3.35857894632633
Midmean - MS Excel (old versions)-3.28661825007285
Number of observations80



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