Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationTue, 16 Mar 2010 10:57:14 -0600
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/16/t1268758703lsorppxepr488if.htm/, Retrieved Fri, 21 Jan 2022 10:48:02 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74465, Retrieved Fri, 21 Jan 2022 10:48:02 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact140
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [De verkoopcijfers] [2010-03-16 16:57:14] [202f3200e40254c22df549da03ba92fb] [Current]
-         [Central Tendency] [De verkoopcijfers] [2010-04-26 15:50:09] [e6858d370c345b8be9ebab3064023a2f]
Feedback Forum

Post a new message
Dataseries X:
7054
8170
8620
8771
11379
12066
12657
27438
27733
29722
30169
30936
31879
32228
32745
33008
33228
33425
33666
34077
34571
34801
34870
34931
35117
35429
35699
36222
36279
36432
37013
37848
37898
37967
38064
38401
38529
38683
38708
39018
39253
39341
39383
39401
39486
39525
39556
40439
40600
40809
40870
40891
40898
41117
41519
41547
41629
41697
41756
41888
42438
43412
44720
44953
45315
45409
45633
47060
47221
48138
48428
49267
50380
50530
50669
51321
52073
56676
62557
68184
68897
68906
69116
70249
70938




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74465&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74465&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74465&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

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







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean39641.71764705881435.2585113104227.6199146945766
Geometric Mean36620.1768456173
Harmonic Mean31780.8486880732
Quadratic Mean41767.2480004299
Winsorized Mean ( 1 / 28 )39646.74117647061429.6784377394027.7312297156555
Winsorized Mean ( 2 / 28 )39630.67058823531420.2232417515527.904536007564
Winsorized Mean ( 3 / 28 )39628.58823529411417.0122983177627.9662980217886
Winsorized Mean ( 4 / 28 )39750.89411764711386.0343399798028.6795882115204
Winsorized Mean ( 5 / 28 )39749.36470588241365.7867266122529.1036396322859
Winsorized Mean ( 6 / 28 )39393.88235294121262.6806896143131.1986099708029
Winsorized Mean ( 7 / 28 )40126.8235294118891.10551192480345.0303841603865
Winsorized Mean ( 8 / 28 )39721.3647058824798.03428330122949.7740078804221
Winsorized Mean ( 9 / 28 )39852.3411764706747.54580132916153.3109022960357
Winsorized Mean ( 10 / 28 )39828.2235294118725.30218417481654.9125928453183
Winsorized Mean ( 11 / 28 )39909.4941176471706.71777785874756.4716147916458
Winsorized Mean ( 12 / 28 )40021.4470588235683.39927559926758.5623199903586
Winsorized Mean ( 13 / 28 )39904.6645.7698318180261.7938436170942
Winsorized Mean ( 14 / 28 )39851.5647058824610.34536291348165.2934668261443
Winsorized Mean ( 15 / 28 )39846.8595.43249371009866.9207683841998
Winsorized Mean ( 16 / 28 )39715.6561.7023343203770.7057770163156
Winsorized Mean ( 17 / 28 )39722.8551.20131315069272.0658660498151
Winsorized Mean ( 18 / 28 )39471.6470588235497.90412740374279.2755972211829
Winsorized Mean ( 19 / 28 )39513.4470588235477.93954486427082.6745714670775
Winsorized Mean ( 20 / 28 )39607.5647058824459.2156500931786.2504679399459
Winsorized Mean ( 21 / 28 )39574.9529411765438.67950530768890.2138177470104
Winsorized Mean ( 22 / 28 )39532.5058823529427.60750761278192.4504485504765
Winsorized Mean ( 23 / 28 )39195.0823529412376.123840239585104.207918136682
Winsorized Mean ( 24 / 28 )38972.5882352941333.528235860173116.849441951394
Winsorized Mean ( 25 / 28 )38902.5882352941301.349657920636129.094515997558
Winsorized Mean ( 26 / 28 )38944.8285.339952441616136.485618879356
Winsorized Mean ( 27 / 28 )39092.1882352941260.988019029195149.785374749027
Winsorized Mean ( 28 / 28 )39088.5647058824255.877096201518152.763046345883
Trimmed Mean ( 1 / 28 )39657.27710843371364.2257523638329.0694388664916
Trimmed Mean ( 2 / 28 )39668.33333333331287.3683310354830.8135071968303
Trimmed Mean ( 3 / 28 )39688.59493670891202.3602152238733.008905679168
Trimmed Mean ( 4 / 28 )39710.67532467531101.3745141337336.0555604066335
Trimmed Mean ( 5 / 28 )39699.28990.41278018650240.0835699964658
Trimmed Mean ( 6 / 28 )39687.6164383562857.98077824680746.2569995093056
Trimmed Mean ( 7 / 28 )39746.2253521127725.3941971968354.7925879552188
Trimmed Mean ( 8 / 28 )39679.2463768116681.12704617339958.2552793927819
Trimmed Mean ( 9 / 28 )39672.5671641791652.1123274892560.8370145630058
Trimmed Mean ( 10 / 28 )39646.4461538462628.97075801492563.0338464048361
Trimmed Mean ( 11 / 28 )39621.9206349206605.9858772372165.3842310906048
Trimmed Mean ( 12 / 28 )39585.4918032787582.02693571030168.0131612035599
Trimmed Mean ( 13 / 28 )39533.1525423729557.55046518103570.9050660186188
Trimmed Mean ( 14 / 28 )39490.5438596491535.56326898095273.7364680269992
Trimmed Mean ( 15 / 28 )39450.6909090909515.77380843070776.4883564543991
Trimmed Mean ( 16 / 28 )39408.3396226415494.16571360105179.7472154340043
Trimmed Mean ( 17 / 28 )39376.3333333333474.33256031794683.0141901010112
Trimmed Mean ( 18 / 28 )39340.9795918367451.3818856677987.156753163974
Trimmed Mean ( 19 / 28 )39327.8510638298434.09642881338390.5970389374863
Trimmed Mean ( 20 / 28 )39309.4416.11449643267094.4677494703926
Trimmed Mean ( 21 / 28 )39279.9302325581396.74932795246199.0044026924343
Trimmed Mean ( 22 / 28 )39250.8048780488376.118815911052104.357461572279
Trimmed Mean ( 23 / 28 )39222.8974358974351.274213788077111.658914592463
Trimmed Mean ( 24 / 28 )39225.6756756757332.092313801399118.116782730279
Trimmed Mean ( 25 / 28 )39251.2857142857317.125783097058123.771978837409
Trimmed Mean ( 26 / 28 )39287.2121212121304.747945271045128.917069764883
Trimmed Mean ( 27 / 28 )39323.3225806452291.568802212898134.868073271886
Trimmed Mean ( 28 / 28 )39348.4137931034280.285518208386140.386895636359
Median39383
Midrange38996
Midmean - Weighted Average at Xnp39144.8571428571
Midmean - Weighted Average at X(n+1)p39279.9302325581
Midmean - Empirical Distribution Function39279.9302325581
Midmean - Empirical Distribution Function - Averaging39279.9302325581
Midmean - Empirical Distribution Function - Interpolation39279.9302325581
Midmean - Closest Observation39172.9090909091
Midmean - True Basic - Statistics Graphics Toolkit39279.9302325581
Midmean - MS Excel (old versions)39279.9302325581
Number of observations85

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 39641.7176470588 & 1435.25851131042 & 27.6199146945766 \tabularnewline
Geometric Mean & 36620.1768456173 &  &  \tabularnewline
Harmonic Mean & 31780.8486880732 &  &  \tabularnewline
Quadratic Mean & 41767.2480004299 &  &  \tabularnewline
Winsorized Mean ( 1 / 28 ) & 39646.7411764706 & 1429.67843773940 & 27.7312297156555 \tabularnewline
Winsorized Mean ( 2 / 28 ) & 39630.6705882353 & 1420.22324175155 & 27.904536007564 \tabularnewline
Winsorized Mean ( 3 / 28 ) & 39628.5882352941 & 1417.01229831776 & 27.9662980217886 \tabularnewline
Winsorized Mean ( 4 / 28 ) & 39750.8941176471 & 1386.03433997980 & 28.6795882115204 \tabularnewline
Winsorized Mean ( 5 / 28 ) & 39749.3647058824 & 1365.78672661225 & 29.1036396322859 \tabularnewline
Winsorized Mean ( 6 / 28 ) & 39393.8823529412 & 1262.68068961431 & 31.1986099708029 \tabularnewline
Winsorized Mean ( 7 / 28 ) & 40126.8235294118 & 891.105511924803 & 45.0303841603865 \tabularnewline
Winsorized Mean ( 8 / 28 ) & 39721.3647058824 & 798.034283301229 & 49.7740078804221 \tabularnewline
Winsorized Mean ( 9 / 28 ) & 39852.3411764706 & 747.545801329161 & 53.3109022960357 \tabularnewline
Winsorized Mean ( 10 / 28 ) & 39828.2235294118 & 725.302184174816 & 54.9125928453183 \tabularnewline
Winsorized Mean ( 11 / 28 ) & 39909.4941176471 & 706.717777858747 & 56.4716147916458 \tabularnewline
Winsorized Mean ( 12 / 28 ) & 40021.4470588235 & 683.399275599267 & 58.5623199903586 \tabularnewline
Winsorized Mean ( 13 / 28 ) & 39904.6 & 645.76983181802 & 61.7938436170942 \tabularnewline
Winsorized Mean ( 14 / 28 ) & 39851.5647058824 & 610.345362913481 & 65.2934668261443 \tabularnewline
Winsorized Mean ( 15 / 28 ) & 39846.8 & 595.432493710098 & 66.9207683841998 \tabularnewline
Winsorized Mean ( 16 / 28 ) & 39715.6 & 561.70233432037 & 70.7057770163156 \tabularnewline
Winsorized Mean ( 17 / 28 ) & 39722.8 & 551.201313150692 & 72.0658660498151 \tabularnewline
Winsorized Mean ( 18 / 28 ) & 39471.6470588235 & 497.904127403742 & 79.2755972211829 \tabularnewline
Winsorized Mean ( 19 / 28 ) & 39513.4470588235 & 477.939544864270 & 82.6745714670775 \tabularnewline
Winsorized Mean ( 20 / 28 ) & 39607.5647058824 & 459.21565009317 & 86.2504679399459 \tabularnewline
Winsorized Mean ( 21 / 28 ) & 39574.9529411765 & 438.679505307688 & 90.2138177470104 \tabularnewline
Winsorized Mean ( 22 / 28 ) & 39532.5058823529 & 427.607507612781 & 92.4504485504765 \tabularnewline
Winsorized Mean ( 23 / 28 ) & 39195.0823529412 & 376.123840239585 & 104.207918136682 \tabularnewline
Winsorized Mean ( 24 / 28 ) & 38972.5882352941 & 333.528235860173 & 116.849441951394 \tabularnewline
Winsorized Mean ( 25 / 28 ) & 38902.5882352941 & 301.349657920636 & 129.094515997558 \tabularnewline
Winsorized Mean ( 26 / 28 ) & 38944.8 & 285.339952441616 & 136.485618879356 \tabularnewline
Winsorized Mean ( 27 / 28 ) & 39092.1882352941 & 260.988019029195 & 149.785374749027 \tabularnewline
Winsorized Mean ( 28 / 28 ) & 39088.5647058824 & 255.877096201518 & 152.763046345883 \tabularnewline
Trimmed Mean ( 1 / 28 ) & 39657.2771084337 & 1364.22575236383 & 29.0694388664916 \tabularnewline
Trimmed Mean ( 2 / 28 ) & 39668.3333333333 & 1287.36833103548 & 30.8135071968303 \tabularnewline
Trimmed Mean ( 3 / 28 ) & 39688.5949367089 & 1202.36021522387 & 33.008905679168 \tabularnewline
Trimmed Mean ( 4 / 28 ) & 39710.6753246753 & 1101.37451413373 & 36.0555604066335 \tabularnewline
Trimmed Mean ( 5 / 28 ) & 39699.28 & 990.412780186502 & 40.0835699964658 \tabularnewline
Trimmed Mean ( 6 / 28 ) & 39687.6164383562 & 857.980778246807 & 46.2569995093056 \tabularnewline
Trimmed Mean ( 7 / 28 ) & 39746.2253521127 & 725.39419719683 & 54.7925879552188 \tabularnewline
Trimmed Mean ( 8 / 28 ) & 39679.2463768116 & 681.127046173399 & 58.2552793927819 \tabularnewline
Trimmed Mean ( 9 / 28 ) & 39672.5671641791 & 652.11232748925 & 60.8370145630058 \tabularnewline
Trimmed Mean ( 10 / 28 ) & 39646.4461538462 & 628.970758014925 & 63.0338464048361 \tabularnewline
Trimmed Mean ( 11 / 28 ) & 39621.9206349206 & 605.98587723721 & 65.3842310906048 \tabularnewline
Trimmed Mean ( 12 / 28 ) & 39585.4918032787 & 582.026935710301 & 68.0131612035599 \tabularnewline
Trimmed Mean ( 13 / 28 ) & 39533.1525423729 & 557.550465181035 & 70.9050660186188 \tabularnewline
Trimmed Mean ( 14 / 28 ) & 39490.5438596491 & 535.563268980952 & 73.7364680269992 \tabularnewline
Trimmed Mean ( 15 / 28 ) & 39450.6909090909 & 515.773808430707 & 76.4883564543991 \tabularnewline
Trimmed Mean ( 16 / 28 ) & 39408.3396226415 & 494.165713601051 & 79.7472154340043 \tabularnewline
Trimmed Mean ( 17 / 28 ) & 39376.3333333333 & 474.332560317946 & 83.0141901010112 \tabularnewline
Trimmed Mean ( 18 / 28 ) & 39340.9795918367 & 451.38188566779 & 87.156753163974 \tabularnewline
Trimmed Mean ( 19 / 28 ) & 39327.8510638298 & 434.096428813383 & 90.5970389374863 \tabularnewline
Trimmed Mean ( 20 / 28 ) & 39309.4 & 416.114496432670 & 94.4677494703926 \tabularnewline
Trimmed Mean ( 21 / 28 ) & 39279.9302325581 & 396.749327952461 & 99.0044026924343 \tabularnewline
Trimmed Mean ( 22 / 28 ) & 39250.8048780488 & 376.118815911052 & 104.357461572279 \tabularnewline
Trimmed Mean ( 23 / 28 ) & 39222.8974358974 & 351.274213788077 & 111.658914592463 \tabularnewline
Trimmed Mean ( 24 / 28 ) & 39225.6756756757 & 332.092313801399 & 118.116782730279 \tabularnewline
Trimmed Mean ( 25 / 28 ) & 39251.2857142857 & 317.125783097058 & 123.771978837409 \tabularnewline
Trimmed Mean ( 26 / 28 ) & 39287.2121212121 & 304.747945271045 & 128.917069764883 \tabularnewline
Trimmed Mean ( 27 / 28 ) & 39323.3225806452 & 291.568802212898 & 134.868073271886 \tabularnewline
Trimmed Mean ( 28 / 28 ) & 39348.4137931034 & 280.285518208386 & 140.386895636359 \tabularnewline
Median & 39383 &  &  \tabularnewline
Midrange & 38996 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 39144.8571428571 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 39279.9302325581 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 39279.9302325581 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 39279.9302325581 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 39279.9302325581 &  &  \tabularnewline
Midmean - Closest Observation & 39172.9090909091 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 39279.9302325581 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 39279.9302325581 &  &  \tabularnewline
Number of observations & 85 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74465&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]39641.7176470588[/C][C]1435.25851131042[/C][C]27.6199146945766[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]36620.1768456173[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]31780.8486880732[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]41767.2480004299[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 28 )[/C][C]39646.7411764706[/C][C]1429.67843773940[/C][C]27.7312297156555[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 28 )[/C][C]39630.6705882353[/C][C]1420.22324175155[/C][C]27.904536007564[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 28 )[/C][C]39628.5882352941[/C][C]1417.01229831776[/C][C]27.9662980217886[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 28 )[/C][C]39750.8941176471[/C][C]1386.03433997980[/C][C]28.6795882115204[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 28 )[/C][C]39749.3647058824[/C][C]1365.78672661225[/C][C]29.1036396322859[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 28 )[/C][C]39393.8823529412[/C][C]1262.68068961431[/C][C]31.1986099708029[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 28 )[/C][C]40126.8235294118[/C][C]891.105511924803[/C][C]45.0303841603865[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 28 )[/C][C]39721.3647058824[/C][C]798.034283301229[/C][C]49.7740078804221[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 28 )[/C][C]39852.3411764706[/C][C]747.545801329161[/C][C]53.3109022960357[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 28 )[/C][C]39828.2235294118[/C][C]725.302184174816[/C][C]54.9125928453183[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 28 )[/C][C]39909.4941176471[/C][C]706.717777858747[/C][C]56.4716147916458[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 28 )[/C][C]40021.4470588235[/C][C]683.399275599267[/C][C]58.5623199903586[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 28 )[/C][C]39904.6[/C][C]645.76983181802[/C][C]61.7938436170942[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 28 )[/C][C]39851.5647058824[/C][C]610.345362913481[/C][C]65.2934668261443[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 28 )[/C][C]39846.8[/C][C]595.432493710098[/C][C]66.9207683841998[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 28 )[/C][C]39715.6[/C][C]561.70233432037[/C][C]70.7057770163156[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 28 )[/C][C]39722.8[/C][C]551.201313150692[/C][C]72.0658660498151[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 28 )[/C][C]39471.6470588235[/C][C]497.904127403742[/C][C]79.2755972211829[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 28 )[/C][C]39513.4470588235[/C][C]477.939544864270[/C][C]82.6745714670775[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 28 )[/C][C]39607.5647058824[/C][C]459.21565009317[/C][C]86.2504679399459[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 28 )[/C][C]39574.9529411765[/C][C]438.679505307688[/C][C]90.2138177470104[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 28 )[/C][C]39532.5058823529[/C][C]427.607507612781[/C][C]92.4504485504765[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 28 )[/C][C]39195.0823529412[/C][C]376.123840239585[/C][C]104.207918136682[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 28 )[/C][C]38972.5882352941[/C][C]333.528235860173[/C][C]116.849441951394[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 28 )[/C][C]38902.5882352941[/C][C]301.349657920636[/C][C]129.094515997558[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 28 )[/C][C]38944.8[/C][C]285.339952441616[/C][C]136.485618879356[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 28 )[/C][C]39092.1882352941[/C][C]260.988019029195[/C][C]149.785374749027[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 28 )[/C][C]39088.5647058824[/C][C]255.877096201518[/C][C]152.763046345883[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 28 )[/C][C]39657.2771084337[/C][C]1364.22575236383[/C][C]29.0694388664916[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 28 )[/C][C]39668.3333333333[/C][C]1287.36833103548[/C][C]30.8135071968303[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 28 )[/C][C]39688.5949367089[/C][C]1202.36021522387[/C][C]33.008905679168[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 28 )[/C][C]39710.6753246753[/C][C]1101.37451413373[/C][C]36.0555604066335[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 28 )[/C][C]39699.28[/C][C]990.412780186502[/C][C]40.0835699964658[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 28 )[/C][C]39687.6164383562[/C][C]857.980778246807[/C][C]46.2569995093056[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 28 )[/C][C]39746.2253521127[/C][C]725.39419719683[/C][C]54.7925879552188[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 28 )[/C][C]39679.2463768116[/C][C]681.127046173399[/C][C]58.2552793927819[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 28 )[/C][C]39672.5671641791[/C][C]652.11232748925[/C][C]60.8370145630058[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 28 )[/C][C]39646.4461538462[/C][C]628.970758014925[/C][C]63.0338464048361[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 28 )[/C][C]39621.9206349206[/C][C]605.98587723721[/C][C]65.3842310906048[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 28 )[/C][C]39585.4918032787[/C][C]582.026935710301[/C][C]68.0131612035599[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 28 )[/C][C]39533.1525423729[/C][C]557.550465181035[/C][C]70.9050660186188[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 28 )[/C][C]39490.5438596491[/C][C]535.563268980952[/C][C]73.7364680269992[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 28 )[/C][C]39450.6909090909[/C][C]515.773808430707[/C][C]76.4883564543991[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 28 )[/C][C]39408.3396226415[/C][C]494.165713601051[/C][C]79.7472154340043[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 28 )[/C][C]39376.3333333333[/C][C]474.332560317946[/C][C]83.0141901010112[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 28 )[/C][C]39340.9795918367[/C][C]451.38188566779[/C][C]87.156753163974[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 28 )[/C][C]39327.8510638298[/C][C]434.096428813383[/C][C]90.5970389374863[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 28 )[/C][C]39309.4[/C][C]416.114496432670[/C][C]94.4677494703926[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 28 )[/C][C]39279.9302325581[/C][C]396.749327952461[/C][C]99.0044026924343[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 28 )[/C][C]39250.8048780488[/C][C]376.118815911052[/C][C]104.357461572279[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 28 )[/C][C]39222.8974358974[/C][C]351.274213788077[/C][C]111.658914592463[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 28 )[/C][C]39225.6756756757[/C][C]332.092313801399[/C][C]118.116782730279[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 28 )[/C][C]39251.2857142857[/C][C]317.125783097058[/C][C]123.771978837409[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 28 )[/C][C]39287.2121212121[/C][C]304.747945271045[/C][C]128.917069764883[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 28 )[/C][C]39323.3225806452[/C][C]291.568802212898[/C][C]134.868073271886[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 28 )[/C][C]39348.4137931034[/C][C]280.285518208386[/C][C]140.386895636359[/C][/ROW]
[ROW][C]Median[/C][C]39383[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]38996[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]39144.8571428571[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]39279.9302325581[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]39279.9302325581[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]39279.9302325581[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]39279.9302325581[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]39172.9090909091[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]39279.9302325581[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]39279.9302325581[/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=74465&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74465&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 Mean39641.71764705881435.2585113104227.6199146945766
Geometric Mean36620.1768456173
Harmonic Mean31780.8486880732
Quadratic Mean41767.2480004299
Winsorized Mean ( 1 / 28 )39646.74117647061429.6784377394027.7312297156555
Winsorized Mean ( 2 / 28 )39630.67058823531420.2232417515527.904536007564
Winsorized Mean ( 3 / 28 )39628.58823529411417.0122983177627.9662980217886
Winsorized Mean ( 4 / 28 )39750.89411764711386.0343399798028.6795882115204
Winsorized Mean ( 5 / 28 )39749.36470588241365.7867266122529.1036396322859
Winsorized Mean ( 6 / 28 )39393.88235294121262.6806896143131.1986099708029
Winsorized Mean ( 7 / 28 )40126.8235294118891.10551192480345.0303841603865
Winsorized Mean ( 8 / 28 )39721.3647058824798.03428330122949.7740078804221
Winsorized Mean ( 9 / 28 )39852.3411764706747.54580132916153.3109022960357
Winsorized Mean ( 10 / 28 )39828.2235294118725.30218417481654.9125928453183
Winsorized Mean ( 11 / 28 )39909.4941176471706.71777785874756.4716147916458
Winsorized Mean ( 12 / 28 )40021.4470588235683.39927559926758.5623199903586
Winsorized Mean ( 13 / 28 )39904.6645.7698318180261.7938436170942
Winsorized Mean ( 14 / 28 )39851.5647058824610.34536291348165.2934668261443
Winsorized Mean ( 15 / 28 )39846.8595.43249371009866.9207683841998
Winsorized Mean ( 16 / 28 )39715.6561.7023343203770.7057770163156
Winsorized Mean ( 17 / 28 )39722.8551.20131315069272.0658660498151
Winsorized Mean ( 18 / 28 )39471.6470588235497.90412740374279.2755972211829
Winsorized Mean ( 19 / 28 )39513.4470588235477.93954486427082.6745714670775
Winsorized Mean ( 20 / 28 )39607.5647058824459.2156500931786.2504679399459
Winsorized Mean ( 21 / 28 )39574.9529411765438.67950530768890.2138177470104
Winsorized Mean ( 22 / 28 )39532.5058823529427.60750761278192.4504485504765
Winsorized Mean ( 23 / 28 )39195.0823529412376.123840239585104.207918136682
Winsorized Mean ( 24 / 28 )38972.5882352941333.528235860173116.849441951394
Winsorized Mean ( 25 / 28 )38902.5882352941301.349657920636129.094515997558
Winsorized Mean ( 26 / 28 )38944.8285.339952441616136.485618879356
Winsorized Mean ( 27 / 28 )39092.1882352941260.988019029195149.785374749027
Winsorized Mean ( 28 / 28 )39088.5647058824255.877096201518152.763046345883
Trimmed Mean ( 1 / 28 )39657.27710843371364.2257523638329.0694388664916
Trimmed Mean ( 2 / 28 )39668.33333333331287.3683310354830.8135071968303
Trimmed Mean ( 3 / 28 )39688.59493670891202.3602152238733.008905679168
Trimmed Mean ( 4 / 28 )39710.67532467531101.3745141337336.0555604066335
Trimmed Mean ( 5 / 28 )39699.28990.41278018650240.0835699964658
Trimmed Mean ( 6 / 28 )39687.6164383562857.98077824680746.2569995093056
Trimmed Mean ( 7 / 28 )39746.2253521127725.3941971968354.7925879552188
Trimmed Mean ( 8 / 28 )39679.2463768116681.12704617339958.2552793927819
Trimmed Mean ( 9 / 28 )39672.5671641791652.1123274892560.8370145630058
Trimmed Mean ( 10 / 28 )39646.4461538462628.97075801492563.0338464048361
Trimmed Mean ( 11 / 28 )39621.9206349206605.9858772372165.3842310906048
Trimmed Mean ( 12 / 28 )39585.4918032787582.02693571030168.0131612035599
Trimmed Mean ( 13 / 28 )39533.1525423729557.55046518103570.9050660186188
Trimmed Mean ( 14 / 28 )39490.5438596491535.56326898095273.7364680269992
Trimmed Mean ( 15 / 28 )39450.6909090909515.77380843070776.4883564543991
Trimmed Mean ( 16 / 28 )39408.3396226415494.16571360105179.7472154340043
Trimmed Mean ( 17 / 28 )39376.3333333333474.33256031794683.0141901010112
Trimmed Mean ( 18 / 28 )39340.9795918367451.3818856677987.156753163974
Trimmed Mean ( 19 / 28 )39327.8510638298434.09642881338390.5970389374863
Trimmed Mean ( 20 / 28 )39309.4416.11449643267094.4677494703926
Trimmed Mean ( 21 / 28 )39279.9302325581396.74932795246199.0044026924343
Trimmed Mean ( 22 / 28 )39250.8048780488376.118815911052104.357461572279
Trimmed Mean ( 23 / 28 )39222.8974358974351.274213788077111.658914592463
Trimmed Mean ( 24 / 28 )39225.6756756757332.092313801399118.116782730279
Trimmed Mean ( 25 / 28 )39251.2857142857317.125783097058123.771978837409
Trimmed Mean ( 26 / 28 )39287.2121212121304.747945271045128.917069764883
Trimmed Mean ( 27 / 28 )39323.3225806452291.568802212898134.868073271886
Trimmed Mean ( 28 / 28 )39348.4137931034280.285518208386140.386895636359
Median39383
Midrange38996
Midmean - Weighted Average at Xnp39144.8571428571
Midmean - Weighted Average at X(n+1)p39279.9302325581
Midmean - Empirical Distribution Function39279.9302325581
Midmean - Empirical Distribution Function - Averaging39279.9302325581
Midmean - Empirical Distribution Function - Interpolation39279.9302325581
Midmean - Closest Observation39172.9090909091
Midmean - True Basic - Statistics Graphics Toolkit39279.9302325581
Midmean - MS Excel (old versions)39279.9302325581
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')