Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationTue, 09 Mar 2010 12:27:27 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Mar/09/t12681629401x4v68bm5s13eua.htm/, Retrieved Thu, 28 Mar 2024 12:52:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74229, Retrieved Thu, 28 Mar 2024 12:52:20 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact163
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Uitvoer van België] [2010-02-04 08:24:53] [2ee36997fb1be82ef07372b18c1a823d]
- RMPD    [Central Tendency] [export belgie] [2010-03-09 19:27:27] [ea4db07d8da34007b79212461ea6aa7b] [Current]
Feedback Forum

Post a new message
Dataseries X:
18288.3
16049
16764.5
17880.2
16555.9
16087.1
16373.5
17842.2
22321.5
22786.7
18274.1
22392.9
23899.3
21343.5
22952.3
21374.4
21164.1
20906.5
17877.4
20664.3
22160
19813.6
17735.4
19640.2
20844.4
19823.1
18594.6
21350.6
18574.1
18924.2
17343.4
19961.2
19932.1
19464.6
16165.4
17574.9
19795.4
19439.5
17170
21072.4
17751.8
17515.5
18040.3
19090.1
17746.5
19202.1
15141.6
16258.1
18586.5
17209.4
17838.7
19123.5
16583.6
15991.2
16704.5
17422
17872
17823.2
13866.5
15912.8
17870.5
15420.3
16379.4
17903.9
15305.8
14583.3
14861
14968.9
16726.5
16283.6
11703.7
15101.8
15469.7
14956.9
15370.6
15998.1
14725.1
14768.9
13659.6
15070.3
16942.6
15761.3
12083
15023.6
15106.5




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74229&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74229&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74229&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'Gwilym Jenkins' @ 72.249.127.135







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean17704.7247058824272.69682318480864.9245726411846
Geometric Mean17528.6463738250
Harmonic Mean17352.2001635969
Quadratic Mean17880.2633014894
Winsorized Mean ( 1 / 28 )17698.0458823529268.75263861151765.8525474346526
Winsorized Mean ( 2 / 28 )17731.2458823529259.75347361983768.2618239335023
Winsorized Mean ( 3 / 28 )17724.6494117647255.29121124073369.4291406493066
Winsorized Mean ( 4 / 28 )17755.0211764706248.96031385948771.3166725299499
Winsorized Mean ( 5 / 28 )17753.8623529412245.66393997348472.2688985402476
Winsorized Mean ( 6 / 28 )17701.5234.08936439703975.6185572360157
Winsorized Mean ( 7 / 28 )17707.1247058824232.60552498132476.1251251762145
Winsorized Mean ( 8 / 28 )17715.4823529412231.18229372784576.6299272633588
Winsorized Mean ( 9 / 28 )17697.7576470588227.5037811018177.7910484008127
Winsorized Mean ( 10 / 28 )17693.4047058824224.64465118283778.7617448833972
Winsorized Mean ( 11 / 28 )17677.9788235294219.99254053494680.3571738411796
Winsorized Mean ( 12 / 28 )17673.6588235294217.84080810512581.1310744633325
Winsorized Mean ( 13 / 28 )17646.8329411765213.02975270816782.8374098774418
Winsorized Mean ( 14 / 28 )17536.8094117647193.75164452992290.5117964511338
Winsorized Mean ( 15 / 28 )17560.6505882353188.79203738478493.0158434195201
Winsorized Mean ( 16 / 28 )17552.3305882353184.02255119252395.3814109982214
Winsorized Mean ( 17 / 28 )17560.3705882353182.34735441835096.3017568543796
Winsorized Mean ( 18 / 28 )17566.9776470588180.32531393066297.4182562843818
Winsorized Mean ( 19 / 28 )17597.4670588235166.436242437174105.730980230860
Winsorized Mean ( 20 / 28 )17591.7964705882155.831102092630112.890149876058
Winsorized Mean ( 21 / 28 )17604.9647058824152.480725187802115.456984377529
Winsorized Mean ( 22 / 28 )17545.3058823529143.629084967522122.157053958259
Winsorized Mean ( 23 / 28 )17537.8105882353138.962379337770126.205456986361
Winsorized Mean ( 24 / 28 )17539.1376470588136.314959289084128.666272128384
Winsorized Mean ( 25 / 28 )17513.3729411765126.860817283635138.051869096982
Winsorized Mean ( 26 / 28 )17440.9094117647110.278613322658158.153143989354
Winsorized Mean ( 27 / 28 )17446.4364705882108.926245726064160.167426631629
Winsorized Mean ( 28 / 28 )17471.9658823529104.683688912065166.902466505833
Trimmed Mean ( 1 / 28 )17702.3927710843259.00482244186768.3477342398039
Trimmed Mean ( 2 / 28 )17706.9543209877247.65240390022471.4992224671542
Trimmed Mean ( 3 / 28 )17693.8860759494240.10137848376273.6933964631362
Trimmed Mean ( 4 / 28 )17682.5662337662233.29039349099375.7963753636041
Trimmed Mean ( 5 / 28 )17662.0373333333227.53471905174877.6234827236034
Trimmed Mean ( 6 / 28 )17640.6534246575221.74596832318879.5534347616496
Trimmed Mean ( 7 / 28 )17628.5126760563218.02383074414780.8558982561111
Trimmed Mean ( 8 / 28 )17614.6782608696213.92271378172482.341318270872
Trimmed Mean ( 9 / 28 )17598.6925373134209.31206776259084.0787285961674
Trimmed Mean ( 10 / 28 )17584.2984615385204.57109856417085.9569048851863
Trimmed Mean ( 11 / 28 )17569.5777777778199.43311237234388.0975960750956
Trimmed Mean ( 12 / 28 )17555.8459016393194.15123411416590.4235606934959
Trimmed Mean ( 13 / 28 )17541.7016949153188.12952022280093.242685539945
Trimmed Mean ( 14 / 28 )17529.6421052632181.73553992574396.4568741613543
Trimmed Mean ( 15 / 28 )17528.8509090909177.72363910896398.6298221045538
Trimmed Mean ( 16 / 28 )17525.4509433962173.635391488119100.932481524628
Trimmed Mean ( 17 / 28 )17522.6509803922169.391479665638103.444701085203
Trimmed Mean ( 18 / 28 )17518.8020408163164.310691902726106.619976082796
Trimmed Mean ( 19 / 28 )17513.9617021277158.211099114469110.699955945922
Trimmed Mean ( 20 / 28 )17505.66153.281730295636114.205782817278
Trimmed Mean ( 21 / 28 )17497.1465116279149.088976508583117.360430807039
Trimmed Mean ( 22 / 28 )17486.5024390244144.191711116587121.272591216326
Trimmed Mean ( 23 / 28 )17480.6769230769139.735891543461125.097973970704
Trimmed Mean ( 24 / 28 )17474.9702702703134.755750341955129.678846549598
Trimmed Mean ( 25 / 28 )17468.4771428571128.506724022861135.934343324709
Trimmed Mean ( 26 / 28 )17463.8515151515122.450472371951142.619715358092
Trimmed Mean ( 27 / 28 )17466.2709677419118.689884540909147.158884139969
Trimmed Mean ( 28 / 28 )17468.4241379310113.429631042348154.002300610581
Median17735.4
Midrange17801.5
Midmean - Weighted Average at Xnp17450.9
Midmean - Weighted Average at X(n+1)p17497.1465116279
Midmean - Empirical Distribution Function17497.1465116279
Midmean - Empirical Distribution Function - Averaging17497.1465116279
Midmean - Empirical Distribution Function - Interpolation17497.1465116279
Midmean - Closest Observation17461.1386363636
Midmean - True Basic - Statistics Graphics Toolkit17497.1465116279
Midmean - MS Excel (old versions)17497.1465116279
Number of observations85

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 17704.7247058824 & 272.696823184808 & 64.9245726411846 \tabularnewline
Geometric Mean & 17528.6463738250 &  &  \tabularnewline
Harmonic Mean & 17352.2001635969 &  &  \tabularnewline
Quadratic Mean & 17880.2633014894 &  &  \tabularnewline
Winsorized Mean ( 1 / 28 ) & 17698.0458823529 & 268.752638611517 & 65.8525474346526 \tabularnewline
Winsorized Mean ( 2 / 28 ) & 17731.2458823529 & 259.753473619837 & 68.2618239335023 \tabularnewline
Winsorized Mean ( 3 / 28 ) & 17724.6494117647 & 255.291211240733 & 69.4291406493066 \tabularnewline
Winsorized Mean ( 4 / 28 ) & 17755.0211764706 & 248.960313859487 & 71.3166725299499 \tabularnewline
Winsorized Mean ( 5 / 28 ) & 17753.8623529412 & 245.663939973484 & 72.2688985402476 \tabularnewline
Winsorized Mean ( 6 / 28 ) & 17701.5 & 234.089364397039 & 75.6185572360157 \tabularnewline
Winsorized Mean ( 7 / 28 ) & 17707.1247058824 & 232.605524981324 & 76.1251251762145 \tabularnewline
Winsorized Mean ( 8 / 28 ) & 17715.4823529412 & 231.182293727845 & 76.6299272633588 \tabularnewline
Winsorized Mean ( 9 / 28 ) & 17697.7576470588 & 227.50378110181 & 77.7910484008127 \tabularnewline
Winsorized Mean ( 10 / 28 ) & 17693.4047058824 & 224.644651182837 & 78.7617448833972 \tabularnewline
Winsorized Mean ( 11 / 28 ) & 17677.9788235294 & 219.992540534946 & 80.3571738411796 \tabularnewline
Winsorized Mean ( 12 / 28 ) & 17673.6588235294 & 217.840808105125 & 81.1310744633325 \tabularnewline
Winsorized Mean ( 13 / 28 ) & 17646.8329411765 & 213.029752708167 & 82.8374098774418 \tabularnewline
Winsorized Mean ( 14 / 28 ) & 17536.8094117647 & 193.751644529922 & 90.5117964511338 \tabularnewline
Winsorized Mean ( 15 / 28 ) & 17560.6505882353 & 188.792037384784 & 93.0158434195201 \tabularnewline
Winsorized Mean ( 16 / 28 ) & 17552.3305882353 & 184.022551192523 & 95.3814109982214 \tabularnewline
Winsorized Mean ( 17 / 28 ) & 17560.3705882353 & 182.347354418350 & 96.3017568543796 \tabularnewline
Winsorized Mean ( 18 / 28 ) & 17566.9776470588 & 180.325313930662 & 97.4182562843818 \tabularnewline
Winsorized Mean ( 19 / 28 ) & 17597.4670588235 & 166.436242437174 & 105.730980230860 \tabularnewline
Winsorized Mean ( 20 / 28 ) & 17591.7964705882 & 155.831102092630 & 112.890149876058 \tabularnewline
Winsorized Mean ( 21 / 28 ) & 17604.9647058824 & 152.480725187802 & 115.456984377529 \tabularnewline
Winsorized Mean ( 22 / 28 ) & 17545.3058823529 & 143.629084967522 & 122.157053958259 \tabularnewline
Winsorized Mean ( 23 / 28 ) & 17537.8105882353 & 138.962379337770 & 126.205456986361 \tabularnewline
Winsorized Mean ( 24 / 28 ) & 17539.1376470588 & 136.314959289084 & 128.666272128384 \tabularnewline
Winsorized Mean ( 25 / 28 ) & 17513.3729411765 & 126.860817283635 & 138.051869096982 \tabularnewline
Winsorized Mean ( 26 / 28 ) & 17440.9094117647 & 110.278613322658 & 158.153143989354 \tabularnewline
Winsorized Mean ( 27 / 28 ) & 17446.4364705882 & 108.926245726064 & 160.167426631629 \tabularnewline
Winsorized Mean ( 28 / 28 ) & 17471.9658823529 & 104.683688912065 & 166.902466505833 \tabularnewline
Trimmed Mean ( 1 / 28 ) & 17702.3927710843 & 259.004822441867 & 68.3477342398039 \tabularnewline
Trimmed Mean ( 2 / 28 ) & 17706.9543209877 & 247.652403900224 & 71.4992224671542 \tabularnewline
Trimmed Mean ( 3 / 28 ) & 17693.8860759494 & 240.101378483762 & 73.6933964631362 \tabularnewline
Trimmed Mean ( 4 / 28 ) & 17682.5662337662 & 233.290393490993 & 75.7963753636041 \tabularnewline
Trimmed Mean ( 5 / 28 ) & 17662.0373333333 & 227.534719051748 & 77.6234827236034 \tabularnewline
Trimmed Mean ( 6 / 28 ) & 17640.6534246575 & 221.745968323188 & 79.5534347616496 \tabularnewline
Trimmed Mean ( 7 / 28 ) & 17628.5126760563 & 218.023830744147 & 80.8558982561111 \tabularnewline
Trimmed Mean ( 8 / 28 ) & 17614.6782608696 & 213.922713781724 & 82.341318270872 \tabularnewline
Trimmed Mean ( 9 / 28 ) & 17598.6925373134 & 209.312067762590 & 84.0787285961674 \tabularnewline
Trimmed Mean ( 10 / 28 ) & 17584.2984615385 & 204.571098564170 & 85.9569048851863 \tabularnewline
Trimmed Mean ( 11 / 28 ) & 17569.5777777778 & 199.433112372343 & 88.0975960750956 \tabularnewline
Trimmed Mean ( 12 / 28 ) & 17555.8459016393 & 194.151234114165 & 90.4235606934959 \tabularnewline
Trimmed Mean ( 13 / 28 ) & 17541.7016949153 & 188.129520222800 & 93.242685539945 \tabularnewline
Trimmed Mean ( 14 / 28 ) & 17529.6421052632 & 181.735539925743 & 96.4568741613543 \tabularnewline
Trimmed Mean ( 15 / 28 ) & 17528.8509090909 & 177.723639108963 & 98.6298221045538 \tabularnewline
Trimmed Mean ( 16 / 28 ) & 17525.4509433962 & 173.635391488119 & 100.932481524628 \tabularnewline
Trimmed Mean ( 17 / 28 ) & 17522.6509803922 & 169.391479665638 & 103.444701085203 \tabularnewline
Trimmed Mean ( 18 / 28 ) & 17518.8020408163 & 164.310691902726 & 106.619976082796 \tabularnewline
Trimmed Mean ( 19 / 28 ) & 17513.9617021277 & 158.211099114469 & 110.699955945922 \tabularnewline
Trimmed Mean ( 20 / 28 ) & 17505.66 & 153.281730295636 & 114.205782817278 \tabularnewline
Trimmed Mean ( 21 / 28 ) & 17497.1465116279 & 149.088976508583 & 117.360430807039 \tabularnewline
Trimmed Mean ( 22 / 28 ) & 17486.5024390244 & 144.191711116587 & 121.272591216326 \tabularnewline
Trimmed Mean ( 23 / 28 ) & 17480.6769230769 & 139.735891543461 & 125.097973970704 \tabularnewline
Trimmed Mean ( 24 / 28 ) & 17474.9702702703 & 134.755750341955 & 129.678846549598 \tabularnewline
Trimmed Mean ( 25 / 28 ) & 17468.4771428571 & 128.506724022861 & 135.934343324709 \tabularnewline
Trimmed Mean ( 26 / 28 ) & 17463.8515151515 & 122.450472371951 & 142.619715358092 \tabularnewline
Trimmed Mean ( 27 / 28 ) & 17466.2709677419 & 118.689884540909 & 147.158884139969 \tabularnewline
Trimmed Mean ( 28 / 28 ) & 17468.4241379310 & 113.429631042348 & 154.002300610581 \tabularnewline
Median & 17735.4 &  &  \tabularnewline
Midrange & 17801.5 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 17450.9 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 17497.1465116279 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 17497.1465116279 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 17497.1465116279 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 17497.1465116279 &  &  \tabularnewline
Midmean - Closest Observation & 17461.1386363636 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 17497.1465116279 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 17497.1465116279 &  &  \tabularnewline
Number of observations & 85 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74229&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]17704.7247058824[/C][C]272.696823184808[/C][C]64.9245726411846[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]17528.6463738250[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]17352.2001635969[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]17880.2633014894[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 28 )[/C][C]17698.0458823529[/C][C]268.752638611517[/C][C]65.8525474346526[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 28 )[/C][C]17731.2458823529[/C][C]259.753473619837[/C][C]68.2618239335023[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 28 )[/C][C]17724.6494117647[/C][C]255.291211240733[/C][C]69.4291406493066[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 28 )[/C][C]17755.0211764706[/C][C]248.960313859487[/C][C]71.3166725299499[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 28 )[/C][C]17753.8623529412[/C][C]245.663939973484[/C][C]72.2688985402476[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 28 )[/C][C]17701.5[/C][C]234.089364397039[/C][C]75.6185572360157[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 28 )[/C][C]17707.1247058824[/C][C]232.605524981324[/C][C]76.1251251762145[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 28 )[/C][C]17715.4823529412[/C][C]231.182293727845[/C][C]76.6299272633588[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 28 )[/C][C]17697.7576470588[/C][C]227.50378110181[/C][C]77.7910484008127[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 28 )[/C][C]17693.4047058824[/C][C]224.644651182837[/C][C]78.7617448833972[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 28 )[/C][C]17677.9788235294[/C][C]219.992540534946[/C][C]80.3571738411796[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 28 )[/C][C]17673.6588235294[/C][C]217.840808105125[/C][C]81.1310744633325[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 28 )[/C][C]17646.8329411765[/C][C]213.029752708167[/C][C]82.8374098774418[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 28 )[/C][C]17536.8094117647[/C][C]193.751644529922[/C][C]90.5117964511338[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 28 )[/C][C]17560.6505882353[/C][C]188.792037384784[/C][C]93.0158434195201[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 28 )[/C][C]17552.3305882353[/C][C]184.022551192523[/C][C]95.3814109982214[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 28 )[/C][C]17560.3705882353[/C][C]182.347354418350[/C][C]96.3017568543796[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 28 )[/C][C]17566.9776470588[/C][C]180.325313930662[/C][C]97.4182562843818[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 28 )[/C][C]17597.4670588235[/C][C]166.436242437174[/C][C]105.730980230860[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 28 )[/C][C]17591.7964705882[/C][C]155.831102092630[/C][C]112.890149876058[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 28 )[/C][C]17604.9647058824[/C][C]152.480725187802[/C][C]115.456984377529[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 28 )[/C][C]17545.3058823529[/C][C]143.629084967522[/C][C]122.157053958259[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 28 )[/C][C]17537.8105882353[/C][C]138.962379337770[/C][C]126.205456986361[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 28 )[/C][C]17539.1376470588[/C][C]136.314959289084[/C][C]128.666272128384[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 28 )[/C][C]17513.3729411765[/C][C]126.860817283635[/C][C]138.051869096982[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 28 )[/C][C]17440.9094117647[/C][C]110.278613322658[/C][C]158.153143989354[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 28 )[/C][C]17446.4364705882[/C][C]108.926245726064[/C][C]160.167426631629[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 28 )[/C][C]17471.9658823529[/C][C]104.683688912065[/C][C]166.902466505833[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 28 )[/C][C]17702.3927710843[/C][C]259.004822441867[/C][C]68.3477342398039[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 28 )[/C][C]17706.9543209877[/C][C]247.652403900224[/C][C]71.4992224671542[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 28 )[/C][C]17693.8860759494[/C][C]240.101378483762[/C][C]73.6933964631362[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 28 )[/C][C]17682.5662337662[/C][C]233.290393490993[/C][C]75.7963753636041[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 28 )[/C][C]17662.0373333333[/C][C]227.534719051748[/C][C]77.6234827236034[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 28 )[/C][C]17640.6534246575[/C][C]221.745968323188[/C][C]79.5534347616496[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 28 )[/C][C]17628.5126760563[/C][C]218.023830744147[/C][C]80.8558982561111[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 28 )[/C][C]17614.6782608696[/C][C]213.922713781724[/C][C]82.341318270872[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 28 )[/C][C]17598.6925373134[/C][C]209.312067762590[/C][C]84.0787285961674[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 28 )[/C][C]17584.2984615385[/C][C]204.571098564170[/C][C]85.9569048851863[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 28 )[/C][C]17569.5777777778[/C][C]199.433112372343[/C][C]88.0975960750956[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 28 )[/C][C]17555.8459016393[/C][C]194.151234114165[/C][C]90.4235606934959[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 28 )[/C][C]17541.7016949153[/C][C]188.129520222800[/C][C]93.242685539945[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 28 )[/C][C]17529.6421052632[/C][C]181.735539925743[/C][C]96.4568741613543[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 28 )[/C][C]17528.8509090909[/C][C]177.723639108963[/C][C]98.6298221045538[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 28 )[/C][C]17525.4509433962[/C][C]173.635391488119[/C][C]100.932481524628[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 28 )[/C][C]17522.6509803922[/C][C]169.391479665638[/C][C]103.444701085203[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 28 )[/C][C]17518.8020408163[/C][C]164.310691902726[/C][C]106.619976082796[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 28 )[/C][C]17513.9617021277[/C][C]158.211099114469[/C][C]110.699955945922[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 28 )[/C][C]17505.66[/C][C]153.281730295636[/C][C]114.205782817278[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 28 )[/C][C]17497.1465116279[/C][C]149.088976508583[/C][C]117.360430807039[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 28 )[/C][C]17486.5024390244[/C][C]144.191711116587[/C][C]121.272591216326[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 28 )[/C][C]17480.6769230769[/C][C]139.735891543461[/C][C]125.097973970704[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 28 )[/C][C]17474.9702702703[/C][C]134.755750341955[/C][C]129.678846549598[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 28 )[/C][C]17468.4771428571[/C][C]128.506724022861[/C][C]135.934343324709[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 28 )[/C][C]17463.8515151515[/C][C]122.450472371951[/C][C]142.619715358092[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 28 )[/C][C]17466.2709677419[/C][C]118.689884540909[/C][C]147.158884139969[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 28 )[/C][C]17468.4241379310[/C][C]113.429631042348[/C][C]154.002300610581[/C][/ROW]
[ROW][C]Median[/C][C]17735.4[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]17801.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]17450.9[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]17461.1386363636[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]17497.1465116279[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]85[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74229&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74229&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 Mean17704.7247058824272.69682318480864.9245726411846
Geometric Mean17528.6463738250
Harmonic Mean17352.2001635969
Quadratic Mean17880.2633014894
Winsorized Mean ( 1 / 28 )17698.0458823529268.75263861151765.8525474346526
Winsorized Mean ( 2 / 28 )17731.2458823529259.75347361983768.2618239335023
Winsorized Mean ( 3 / 28 )17724.6494117647255.29121124073369.4291406493066
Winsorized Mean ( 4 / 28 )17755.0211764706248.96031385948771.3166725299499
Winsorized Mean ( 5 / 28 )17753.8623529412245.66393997348472.2688985402476
Winsorized Mean ( 6 / 28 )17701.5234.08936439703975.6185572360157
Winsorized Mean ( 7 / 28 )17707.1247058824232.60552498132476.1251251762145
Winsorized Mean ( 8 / 28 )17715.4823529412231.18229372784576.6299272633588
Winsorized Mean ( 9 / 28 )17697.7576470588227.5037811018177.7910484008127
Winsorized Mean ( 10 / 28 )17693.4047058824224.64465118283778.7617448833972
Winsorized Mean ( 11 / 28 )17677.9788235294219.99254053494680.3571738411796
Winsorized Mean ( 12 / 28 )17673.6588235294217.84080810512581.1310744633325
Winsorized Mean ( 13 / 28 )17646.8329411765213.02975270816782.8374098774418
Winsorized Mean ( 14 / 28 )17536.8094117647193.75164452992290.5117964511338
Winsorized Mean ( 15 / 28 )17560.6505882353188.79203738478493.0158434195201
Winsorized Mean ( 16 / 28 )17552.3305882353184.02255119252395.3814109982214
Winsorized Mean ( 17 / 28 )17560.3705882353182.34735441835096.3017568543796
Winsorized Mean ( 18 / 28 )17566.9776470588180.32531393066297.4182562843818
Winsorized Mean ( 19 / 28 )17597.4670588235166.436242437174105.730980230860
Winsorized Mean ( 20 / 28 )17591.7964705882155.831102092630112.890149876058
Winsorized Mean ( 21 / 28 )17604.9647058824152.480725187802115.456984377529
Winsorized Mean ( 22 / 28 )17545.3058823529143.629084967522122.157053958259
Winsorized Mean ( 23 / 28 )17537.8105882353138.962379337770126.205456986361
Winsorized Mean ( 24 / 28 )17539.1376470588136.314959289084128.666272128384
Winsorized Mean ( 25 / 28 )17513.3729411765126.860817283635138.051869096982
Winsorized Mean ( 26 / 28 )17440.9094117647110.278613322658158.153143989354
Winsorized Mean ( 27 / 28 )17446.4364705882108.926245726064160.167426631629
Winsorized Mean ( 28 / 28 )17471.9658823529104.683688912065166.902466505833
Trimmed Mean ( 1 / 28 )17702.3927710843259.00482244186768.3477342398039
Trimmed Mean ( 2 / 28 )17706.9543209877247.65240390022471.4992224671542
Trimmed Mean ( 3 / 28 )17693.8860759494240.10137848376273.6933964631362
Trimmed Mean ( 4 / 28 )17682.5662337662233.29039349099375.7963753636041
Trimmed Mean ( 5 / 28 )17662.0373333333227.53471905174877.6234827236034
Trimmed Mean ( 6 / 28 )17640.6534246575221.74596832318879.5534347616496
Trimmed Mean ( 7 / 28 )17628.5126760563218.02383074414780.8558982561111
Trimmed Mean ( 8 / 28 )17614.6782608696213.92271378172482.341318270872
Trimmed Mean ( 9 / 28 )17598.6925373134209.31206776259084.0787285961674
Trimmed Mean ( 10 / 28 )17584.2984615385204.57109856417085.9569048851863
Trimmed Mean ( 11 / 28 )17569.5777777778199.43311237234388.0975960750956
Trimmed Mean ( 12 / 28 )17555.8459016393194.15123411416590.4235606934959
Trimmed Mean ( 13 / 28 )17541.7016949153188.12952022280093.242685539945
Trimmed Mean ( 14 / 28 )17529.6421052632181.73553992574396.4568741613543
Trimmed Mean ( 15 / 28 )17528.8509090909177.72363910896398.6298221045538
Trimmed Mean ( 16 / 28 )17525.4509433962173.635391488119100.932481524628
Trimmed Mean ( 17 / 28 )17522.6509803922169.391479665638103.444701085203
Trimmed Mean ( 18 / 28 )17518.8020408163164.310691902726106.619976082796
Trimmed Mean ( 19 / 28 )17513.9617021277158.211099114469110.699955945922
Trimmed Mean ( 20 / 28 )17505.66153.281730295636114.205782817278
Trimmed Mean ( 21 / 28 )17497.1465116279149.088976508583117.360430807039
Trimmed Mean ( 22 / 28 )17486.5024390244144.191711116587121.272591216326
Trimmed Mean ( 23 / 28 )17480.6769230769139.735891543461125.097973970704
Trimmed Mean ( 24 / 28 )17474.9702702703134.755750341955129.678846549598
Trimmed Mean ( 25 / 28 )17468.4771428571128.506724022861135.934343324709
Trimmed Mean ( 26 / 28 )17463.8515151515122.450472371951142.619715358092
Trimmed Mean ( 27 / 28 )17466.2709677419118.689884540909147.158884139969
Trimmed Mean ( 28 / 28 )17468.4241379310113.429631042348154.002300610581
Median17735.4
Midrange17801.5
Midmean - Weighted Average at Xnp17450.9
Midmean - Weighted Average at X(n+1)p17497.1465116279
Midmean - Empirical Distribution Function17497.1465116279
Midmean - Empirical Distribution Function - Averaging17497.1465116279
Midmean - Empirical Distribution Function - Interpolation17497.1465116279
Midmean - Closest Observation17461.1386363636
Midmean - True Basic - Statistics Graphics Toolkit17497.1465116279
Midmean - MS Excel (old versions)17497.1465116279
Number of observations85



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