Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationFri, 12 Mar 2010 05:41:07 -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/12/t12683977341hmhssx7fzaeha3.htm/, Retrieved Fri, 21 Jan 2022 10:34:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74344, Retrieved Fri, 21 Jan 2022 10:34:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKdGP1W52
Estimated Impact142
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [Werkloosheid ] [2010-03-12 12:41:07] [4942f64bbdc4cce21b299a740a533758] [Current]
Feedback Forum

Post a new message
Dataseries X:
43657
42811
45419
50846
54500
51035
38675
36214
38763
39486
40540
40719
40471
39947
42683
47090
51520
48823
36122
33812
36928
37737
40123
41713
42025
42169
46352
50939
56139
52713
38532
37860
40880
41988
44576
46728
46913
49357
54709
60819
63695
60109
45544
43596
44431
45575
47980
49211
51374
52954
57529
62960
64530
61008
44964
43480
45429
47616
49364
51010
53188
55317
60106
65845
67028
63617
47605
45844
47925
50156
52258
53476
54327
55214
59347
64718
66208
62744
45587
43684
45676
47088
48907
50964
51798




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=74344&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=74344&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74344&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 Mean48980.2235294118887.54901570985255.1859363961301
Geometric Mean48323.3908026116
Harmonic Mean47686.5791949674
Quadratic Mean49651.1100624678
Winsorized Mean ( 1 / 28 )48997.7529411765880.12553836311355.6713227891377
Winsorized Mean ( 2 / 28 )48991.3764705882877.7791504519855.8128732556042
Winsorized Mean ( 3 / 28 )48976.8864.6466193853856.6437188348858
Winsorized Mean ( 4 / 28 )49006.0235294118856.59367698132757.2103493713742
Winsorized Mean ( 5 / 28 )48964.1411764706845.06484927644357.9412825162405
Winsorized Mean ( 6 / 28 )49006.0705882353836.67557219387558.572369287339
Winsorized Mean ( 7 / 28 )48963.7411764706823.82568152749559.4345894700497
Winsorized Mean ( 8 / 28 )48951.6941176471818.50130739215659.8064947185155
Winsorized Mean ( 9 / 28 )48844.4352941176771.5780378371163.3045951269407
Winsorized Mean ( 10 / 28 )48876.4352941176759.69988775368264.336504561871
Winsorized Mean ( 11 / 28 )48807.3294117647739.55564851578765.9954791903977
Winsorized Mean ( 12 / 28 )48856.0352941176732.69736233665266.6796931523138
Winsorized Mean ( 13 / 28 )48750.5058823529710.3310392547468.630685114789
Winsorized Mean ( 14 / 28 )48480.5529411765654.93195714443774.023801117533
Winsorized Mean ( 15 / 28 )48263.6705882353611.87657883579578.8781140799106
Winsorized Mean ( 16 / 28 )48265.7411764706566.46560887421885.2050687991332
Winsorized Mean ( 17 / 28 )48300.1411764706555.90923028112186.884941903277
Winsorized Mean ( 18 / 28 )48201.0352941176539.24276646947589.3865217881345
Winsorized Mean ( 19 / 28 )48186.5058823529528.18506608972291.2303451498334
Winsorized Mean ( 20 / 28 )48266.7411764706506.24107258523895.34339228934
Winsorized Mean ( 21 / 28 )48088.1176470588472.797214160131101.709815977833
Winsorized Mean ( 22 / 28 )48186.7294117647440.156534858654109.476346698428
Winsorized Mean ( 23 / 28 )48154.8427.654201651844112.602190774693
Winsorized Mean ( 24 / 28 )48103.9764705882416.437392598447115.513105512532
Winsorized Mean ( 25 / 28 )47978.0941176471398.035746682183120.537149031380
Winsorized Mean ( 26 / 28 )48065.8823529412351.345423419627136.805204078420
Winsorized Mean ( 27 / 28 )48023.6352941176334.605898394025143.522978897300
Winsorized Mean ( 28 / 28 )48103.3529411765313.151890686138153.610290634933
Trimmed Mean ( 1 / 28 )48945.5301204819862.97377084226956.717285941044
Trimmed Mean ( 2 / 28 )48890.7283950617843.08284305323457.9904202747187
Trimmed Mean ( 3 / 28 )48836.582278481821.40429100727659.4549880164291
Trimmed Mean ( 4 / 28 )48784.987012987801.92155664512160.8351111261822
Trimmed Mean ( 5 / 28 )48722.36781.8937412289362.313275360692
Trimmed Mean ( 6 / 28 )48666.0547945205761.8462803643763.8791000872839
Trimmed Mean ( 7 / 28 )48598.2112676056740.34048502618765.6430551219776
Trimmed Mean ( 8 / 28 )48533.884057971718.03292155959467.5928395491304
Trimmed Mean ( 9 / 28 )48467.6268656716692.625875399369.9766332549011
Trimmed Mean ( 10 / 28 )48412.8769230769672.83186460849571.9539003273087
Trimmed Mean ( 11 / 28 )48350.3333333333651.40242343385974.2249822750969
Trimmed Mean ( 12 / 28 )48292.4426229508629.69639250574576.6916298039777
Trimmed Mean ( 13 / 28 )48224.779661017604.44704025231379.7833001893541
Trimmed Mean ( 14 / 28 )48164.4736842105578.24004818422983.2949461654464
Trimmed Mean ( 15 / 28 )48129.5818181818557.79921305199186.2847789885566
Trimmed Mean ( 16 / 28 )48115.2452830189541.2476776418888.8969085145056
Trimmed Mean ( 17 / 28 )48099.568627451529.33588747462790.8677642412004
Trimmed Mean ( 18 / 28 )48079.1020408163516.11533776367693.155731912837
Trimmed Mean ( 19 / 28 )48066.8510638298502.49117883718195.6571042203401
Trimmed Mean ( 20 / 28 )48054.9555555556487.06652622122198.6619957819262
Trimmed Mean ( 21 / 28 )48034.023255814471.50687785813101.873430720700
Trimmed Mean ( 22 / 28 )48028.6829268293458.398181953553104.775029259815
Trimmed Mean ( 23 / 28 )48013.0256410256447.886591413634107.199069053363
Trimmed Mean ( 24 / 28 )47998.8648648649436.132670123659110.055650844170
Trimmed Mean ( 25 / 28 )47988.2285714286422.361480620718113.618856769096
Trimmed Mean ( 26 / 28 )47989.2727272727407.697949394857117.707908019903
Trimmed Mean ( 27 / 28 )47981.1935483871399.402878014611120.132317991539
Trimmed Mean ( 28 / 28 )47976.5862068966391.153660347257122.65406429868
Median47616
Midrange50420
Midmean - Weighted Average at Xnp47904.4523809524
Midmean - Weighted Average at X(n+1)p48034.023255814
Midmean - Empirical Distribution Function48034.023255814
Midmean - Empirical Distribution Function - Averaging48034.023255814
Midmean - Empirical Distribution Function - Interpolation48034.023255814
Midmean - Closest Observation47912.4090909091
Midmean - True Basic - Statistics Graphics Toolkit48034.023255814
Midmean - MS Excel (old versions)48034.023255814
Number of observations85

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 48980.2235294118 & 887.549015709852 & 55.1859363961301 \tabularnewline
Geometric Mean & 48323.3908026116 &  &  \tabularnewline
Harmonic Mean & 47686.5791949674 &  &  \tabularnewline
Quadratic Mean & 49651.1100624678 &  &  \tabularnewline
Winsorized Mean ( 1 / 28 ) & 48997.7529411765 & 880.125538363113 & 55.6713227891377 \tabularnewline
Winsorized Mean ( 2 / 28 ) & 48991.3764705882 & 877.77915045198 & 55.8128732556042 \tabularnewline
Winsorized Mean ( 3 / 28 ) & 48976.8 & 864.64661938538 & 56.6437188348858 \tabularnewline
Winsorized Mean ( 4 / 28 ) & 49006.0235294118 & 856.593676981327 & 57.2103493713742 \tabularnewline
Winsorized Mean ( 5 / 28 ) & 48964.1411764706 & 845.064849276443 & 57.9412825162405 \tabularnewline
Winsorized Mean ( 6 / 28 ) & 49006.0705882353 & 836.675572193875 & 58.572369287339 \tabularnewline
Winsorized Mean ( 7 / 28 ) & 48963.7411764706 & 823.825681527495 & 59.4345894700497 \tabularnewline
Winsorized Mean ( 8 / 28 ) & 48951.6941176471 & 818.501307392156 & 59.8064947185155 \tabularnewline
Winsorized Mean ( 9 / 28 ) & 48844.4352941176 & 771.57803783711 & 63.3045951269407 \tabularnewline
Winsorized Mean ( 10 / 28 ) & 48876.4352941176 & 759.699887753682 & 64.336504561871 \tabularnewline
Winsorized Mean ( 11 / 28 ) & 48807.3294117647 & 739.555648515787 & 65.9954791903977 \tabularnewline
Winsorized Mean ( 12 / 28 ) & 48856.0352941176 & 732.697362336652 & 66.6796931523138 \tabularnewline
Winsorized Mean ( 13 / 28 ) & 48750.5058823529 & 710.33103925474 & 68.630685114789 \tabularnewline
Winsorized Mean ( 14 / 28 ) & 48480.5529411765 & 654.931957144437 & 74.023801117533 \tabularnewline
Winsorized Mean ( 15 / 28 ) & 48263.6705882353 & 611.876578835795 & 78.8781140799106 \tabularnewline
Winsorized Mean ( 16 / 28 ) & 48265.7411764706 & 566.465608874218 & 85.2050687991332 \tabularnewline
Winsorized Mean ( 17 / 28 ) & 48300.1411764706 & 555.909230281121 & 86.884941903277 \tabularnewline
Winsorized Mean ( 18 / 28 ) & 48201.0352941176 & 539.242766469475 & 89.3865217881345 \tabularnewline
Winsorized Mean ( 19 / 28 ) & 48186.5058823529 & 528.185066089722 & 91.2303451498334 \tabularnewline
Winsorized Mean ( 20 / 28 ) & 48266.7411764706 & 506.241072585238 & 95.34339228934 \tabularnewline
Winsorized Mean ( 21 / 28 ) & 48088.1176470588 & 472.797214160131 & 101.709815977833 \tabularnewline
Winsorized Mean ( 22 / 28 ) & 48186.7294117647 & 440.156534858654 & 109.476346698428 \tabularnewline
Winsorized Mean ( 23 / 28 ) & 48154.8 & 427.654201651844 & 112.602190774693 \tabularnewline
Winsorized Mean ( 24 / 28 ) & 48103.9764705882 & 416.437392598447 & 115.513105512532 \tabularnewline
Winsorized Mean ( 25 / 28 ) & 47978.0941176471 & 398.035746682183 & 120.537149031380 \tabularnewline
Winsorized Mean ( 26 / 28 ) & 48065.8823529412 & 351.345423419627 & 136.805204078420 \tabularnewline
Winsorized Mean ( 27 / 28 ) & 48023.6352941176 & 334.605898394025 & 143.522978897300 \tabularnewline
Winsorized Mean ( 28 / 28 ) & 48103.3529411765 & 313.151890686138 & 153.610290634933 \tabularnewline
Trimmed Mean ( 1 / 28 ) & 48945.5301204819 & 862.973770842269 & 56.717285941044 \tabularnewline
Trimmed Mean ( 2 / 28 ) & 48890.7283950617 & 843.082843053234 & 57.9904202747187 \tabularnewline
Trimmed Mean ( 3 / 28 ) & 48836.582278481 & 821.404291007276 & 59.4549880164291 \tabularnewline
Trimmed Mean ( 4 / 28 ) & 48784.987012987 & 801.921556645121 & 60.8351111261822 \tabularnewline
Trimmed Mean ( 5 / 28 ) & 48722.36 & 781.89374122893 & 62.313275360692 \tabularnewline
Trimmed Mean ( 6 / 28 ) & 48666.0547945205 & 761.84628036437 & 63.8791000872839 \tabularnewline
Trimmed Mean ( 7 / 28 ) & 48598.2112676056 & 740.340485026187 & 65.6430551219776 \tabularnewline
Trimmed Mean ( 8 / 28 ) & 48533.884057971 & 718.032921559594 & 67.5928395491304 \tabularnewline
Trimmed Mean ( 9 / 28 ) & 48467.6268656716 & 692.6258753993 & 69.9766332549011 \tabularnewline
Trimmed Mean ( 10 / 28 ) & 48412.8769230769 & 672.831864608495 & 71.9539003273087 \tabularnewline
Trimmed Mean ( 11 / 28 ) & 48350.3333333333 & 651.402423433859 & 74.2249822750969 \tabularnewline
Trimmed Mean ( 12 / 28 ) & 48292.4426229508 & 629.696392505745 & 76.6916298039777 \tabularnewline
Trimmed Mean ( 13 / 28 ) & 48224.779661017 & 604.447040252313 & 79.7833001893541 \tabularnewline
Trimmed Mean ( 14 / 28 ) & 48164.4736842105 & 578.240048184229 & 83.2949461654464 \tabularnewline
Trimmed Mean ( 15 / 28 ) & 48129.5818181818 & 557.799213051991 & 86.2847789885566 \tabularnewline
Trimmed Mean ( 16 / 28 ) & 48115.2452830189 & 541.24767764188 & 88.8969085145056 \tabularnewline
Trimmed Mean ( 17 / 28 ) & 48099.568627451 & 529.335887474627 & 90.8677642412004 \tabularnewline
Trimmed Mean ( 18 / 28 ) & 48079.1020408163 & 516.115337763676 & 93.155731912837 \tabularnewline
Trimmed Mean ( 19 / 28 ) & 48066.8510638298 & 502.491178837181 & 95.6571042203401 \tabularnewline
Trimmed Mean ( 20 / 28 ) & 48054.9555555556 & 487.066526221221 & 98.6619957819262 \tabularnewline
Trimmed Mean ( 21 / 28 ) & 48034.023255814 & 471.50687785813 & 101.873430720700 \tabularnewline
Trimmed Mean ( 22 / 28 ) & 48028.6829268293 & 458.398181953553 & 104.775029259815 \tabularnewline
Trimmed Mean ( 23 / 28 ) & 48013.0256410256 & 447.886591413634 & 107.199069053363 \tabularnewline
Trimmed Mean ( 24 / 28 ) & 47998.8648648649 & 436.132670123659 & 110.055650844170 \tabularnewline
Trimmed Mean ( 25 / 28 ) & 47988.2285714286 & 422.361480620718 & 113.618856769096 \tabularnewline
Trimmed Mean ( 26 / 28 ) & 47989.2727272727 & 407.697949394857 & 117.707908019903 \tabularnewline
Trimmed Mean ( 27 / 28 ) & 47981.1935483871 & 399.402878014611 & 120.132317991539 \tabularnewline
Trimmed Mean ( 28 / 28 ) & 47976.5862068966 & 391.153660347257 & 122.65406429868 \tabularnewline
Median & 47616 &  &  \tabularnewline
Midrange & 50420 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 47904.4523809524 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 48034.023255814 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 48034.023255814 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 48034.023255814 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 48034.023255814 &  &  \tabularnewline
Midmean - Closest Observation & 47912.4090909091 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 48034.023255814 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 48034.023255814 &  &  \tabularnewline
Number of observations & 85 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74344&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]48980.2235294118[/C][C]887.549015709852[/C][C]55.1859363961301[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]48323.3908026116[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]47686.5791949674[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]49651.1100624678[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 28 )[/C][C]48997.7529411765[/C][C]880.125538363113[/C][C]55.6713227891377[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 28 )[/C][C]48991.3764705882[/C][C]877.77915045198[/C][C]55.8128732556042[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 28 )[/C][C]48976.8[/C][C]864.64661938538[/C][C]56.6437188348858[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 28 )[/C][C]49006.0235294118[/C][C]856.593676981327[/C][C]57.2103493713742[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 28 )[/C][C]48964.1411764706[/C][C]845.064849276443[/C][C]57.9412825162405[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 28 )[/C][C]49006.0705882353[/C][C]836.675572193875[/C][C]58.572369287339[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 28 )[/C][C]48963.7411764706[/C][C]823.825681527495[/C][C]59.4345894700497[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 28 )[/C][C]48951.6941176471[/C][C]818.501307392156[/C][C]59.8064947185155[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 28 )[/C][C]48844.4352941176[/C][C]771.57803783711[/C][C]63.3045951269407[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 28 )[/C][C]48876.4352941176[/C][C]759.699887753682[/C][C]64.336504561871[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 28 )[/C][C]48807.3294117647[/C][C]739.555648515787[/C][C]65.9954791903977[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 28 )[/C][C]48856.0352941176[/C][C]732.697362336652[/C][C]66.6796931523138[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 28 )[/C][C]48750.5058823529[/C][C]710.33103925474[/C][C]68.630685114789[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 28 )[/C][C]48480.5529411765[/C][C]654.931957144437[/C][C]74.023801117533[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 28 )[/C][C]48263.6705882353[/C][C]611.876578835795[/C][C]78.8781140799106[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 28 )[/C][C]48265.7411764706[/C][C]566.465608874218[/C][C]85.2050687991332[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 28 )[/C][C]48300.1411764706[/C][C]555.909230281121[/C][C]86.884941903277[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 28 )[/C][C]48201.0352941176[/C][C]539.242766469475[/C][C]89.3865217881345[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 28 )[/C][C]48186.5058823529[/C][C]528.185066089722[/C][C]91.2303451498334[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 28 )[/C][C]48266.7411764706[/C][C]506.241072585238[/C][C]95.34339228934[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 28 )[/C][C]48088.1176470588[/C][C]472.797214160131[/C][C]101.709815977833[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 28 )[/C][C]48186.7294117647[/C][C]440.156534858654[/C][C]109.476346698428[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 28 )[/C][C]48154.8[/C][C]427.654201651844[/C][C]112.602190774693[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 28 )[/C][C]48103.9764705882[/C][C]416.437392598447[/C][C]115.513105512532[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 28 )[/C][C]47978.0941176471[/C][C]398.035746682183[/C][C]120.537149031380[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 28 )[/C][C]48065.8823529412[/C][C]351.345423419627[/C][C]136.805204078420[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 28 )[/C][C]48023.6352941176[/C][C]334.605898394025[/C][C]143.522978897300[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 28 )[/C][C]48103.3529411765[/C][C]313.151890686138[/C][C]153.610290634933[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 28 )[/C][C]48945.5301204819[/C][C]862.973770842269[/C][C]56.717285941044[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 28 )[/C][C]48890.7283950617[/C][C]843.082843053234[/C][C]57.9904202747187[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 28 )[/C][C]48836.582278481[/C][C]821.404291007276[/C][C]59.4549880164291[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 28 )[/C][C]48784.987012987[/C][C]801.921556645121[/C][C]60.8351111261822[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 28 )[/C][C]48722.36[/C][C]781.89374122893[/C][C]62.313275360692[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 28 )[/C][C]48666.0547945205[/C][C]761.84628036437[/C][C]63.8791000872839[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 28 )[/C][C]48598.2112676056[/C][C]740.340485026187[/C][C]65.6430551219776[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 28 )[/C][C]48533.884057971[/C][C]718.032921559594[/C][C]67.5928395491304[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 28 )[/C][C]48467.6268656716[/C][C]692.6258753993[/C][C]69.9766332549011[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 28 )[/C][C]48412.8769230769[/C][C]672.831864608495[/C][C]71.9539003273087[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 28 )[/C][C]48350.3333333333[/C][C]651.402423433859[/C][C]74.2249822750969[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 28 )[/C][C]48292.4426229508[/C][C]629.696392505745[/C][C]76.6916298039777[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 28 )[/C][C]48224.779661017[/C][C]604.447040252313[/C][C]79.7833001893541[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 28 )[/C][C]48164.4736842105[/C][C]578.240048184229[/C][C]83.2949461654464[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 28 )[/C][C]48129.5818181818[/C][C]557.799213051991[/C][C]86.2847789885566[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 28 )[/C][C]48115.2452830189[/C][C]541.24767764188[/C][C]88.8969085145056[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 28 )[/C][C]48099.568627451[/C][C]529.335887474627[/C][C]90.8677642412004[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 28 )[/C][C]48079.1020408163[/C][C]516.115337763676[/C][C]93.155731912837[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 28 )[/C][C]48066.8510638298[/C][C]502.491178837181[/C][C]95.6571042203401[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 28 )[/C][C]48054.9555555556[/C][C]487.066526221221[/C][C]98.6619957819262[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 28 )[/C][C]48034.023255814[/C][C]471.50687785813[/C][C]101.873430720700[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 28 )[/C][C]48028.6829268293[/C][C]458.398181953553[/C][C]104.775029259815[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 28 )[/C][C]48013.0256410256[/C][C]447.886591413634[/C][C]107.199069053363[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 28 )[/C][C]47998.8648648649[/C][C]436.132670123659[/C][C]110.055650844170[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 28 )[/C][C]47988.2285714286[/C][C]422.361480620718[/C][C]113.618856769096[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 28 )[/C][C]47989.2727272727[/C][C]407.697949394857[/C][C]117.707908019903[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 28 )[/C][C]47981.1935483871[/C][C]399.402878014611[/C][C]120.132317991539[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 28 )[/C][C]47976.5862068966[/C][C]391.153660347257[/C][C]122.65406429868[/C][/ROW]
[ROW][C]Median[/C][C]47616[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]50420[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]47904.4523809524[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]48034.023255814[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]48034.023255814[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]48034.023255814[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]48034.023255814[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]47912.4090909091[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]48034.023255814[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]48034.023255814[/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=74344&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74344&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 Mean48980.2235294118887.54901570985255.1859363961301
Geometric Mean48323.3908026116
Harmonic Mean47686.5791949674
Quadratic Mean49651.1100624678
Winsorized Mean ( 1 / 28 )48997.7529411765880.12553836311355.6713227891377
Winsorized Mean ( 2 / 28 )48991.3764705882877.7791504519855.8128732556042
Winsorized Mean ( 3 / 28 )48976.8864.6466193853856.6437188348858
Winsorized Mean ( 4 / 28 )49006.0235294118856.59367698132757.2103493713742
Winsorized Mean ( 5 / 28 )48964.1411764706845.06484927644357.9412825162405
Winsorized Mean ( 6 / 28 )49006.0705882353836.67557219387558.572369287339
Winsorized Mean ( 7 / 28 )48963.7411764706823.82568152749559.4345894700497
Winsorized Mean ( 8 / 28 )48951.6941176471818.50130739215659.8064947185155
Winsorized Mean ( 9 / 28 )48844.4352941176771.5780378371163.3045951269407
Winsorized Mean ( 10 / 28 )48876.4352941176759.69988775368264.336504561871
Winsorized Mean ( 11 / 28 )48807.3294117647739.55564851578765.9954791903977
Winsorized Mean ( 12 / 28 )48856.0352941176732.69736233665266.6796931523138
Winsorized Mean ( 13 / 28 )48750.5058823529710.3310392547468.630685114789
Winsorized Mean ( 14 / 28 )48480.5529411765654.93195714443774.023801117533
Winsorized Mean ( 15 / 28 )48263.6705882353611.87657883579578.8781140799106
Winsorized Mean ( 16 / 28 )48265.7411764706566.46560887421885.2050687991332
Winsorized Mean ( 17 / 28 )48300.1411764706555.90923028112186.884941903277
Winsorized Mean ( 18 / 28 )48201.0352941176539.24276646947589.3865217881345
Winsorized Mean ( 19 / 28 )48186.5058823529528.18506608972291.2303451498334
Winsorized Mean ( 20 / 28 )48266.7411764706506.24107258523895.34339228934
Winsorized Mean ( 21 / 28 )48088.1176470588472.797214160131101.709815977833
Winsorized Mean ( 22 / 28 )48186.7294117647440.156534858654109.476346698428
Winsorized Mean ( 23 / 28 )48154.8427.654201651844112.602190774693
Winsorized Mean ( 24 / 28 )48103.9764705882416.437392598447115.513105512532
Winsorized Mean ( 25 / 28 )47978.0941176471398.035746682183120.537149031380
Winsorized Mean ( 26 / 28 )48065.8823529412351.345423419627136.805204078420
Winsorized Mean ( 27 / 28 )48023.6352941176334.605898394025143.522978897300
Winsorized Mean ( 28 / 28 )48103.3529411765313.151890686138153.610290634933
Trimmed Mean ( 1 / 28 )48945.5301204819862.97377084226956.717285941044
Trimmed Mean ( 2 / 28 )48890.7283950617843.08284305323457.9904202747187
Trimmed Mean ( 3 / 28 )48836.582278481821.40429100727659.4549880164291
Trimmed Mean ( 4 / 28 )48784.987012987801.92155664512160.8351111261822
Trimmed Mean ( 5 / 28 )48722.36781.8937412289362.313275360692
Trimmed Mean ( 6 / 28 )48666.0547945205761.8462803643763.8791000872839
Trimmed Mean ( 7 / 28 )48598.2112676056740.34048502618765.6430551219776
Trimmed Mean ( 8 / 28 )48533.884057971718.03292155959467.5928395491304
Trimmed Mean ( 9 / 28 )48467.6268656716692.625875399369.9766332549011
Trimmed Mean ( 10 / 28 )48412.8769230769672.83186460849571.9539003273087
Trimmed Mean ( 11 / 28 )48350.3333333333651.40242343385974.2249822750969
Trimmed Mean ( 12 / 28 )48292.4426229508629.69639250574576.6916298039777
Trimmed Mean ( 13 / 28 )48224.779661017604.44704025231379.7833001893541
Trimmed Mean ( 14 / 28 )48164.4736842105578.24004818422983.2949461654464
Trimmed Mean ( 15 / 28 )48129.5818181818557.79921305199186.2847789885566
Trimmed Mean ( 16 / 28 )48115.2452830189541.2476776418888.8969085145056
Trimmed Mean ( 17 / 28 )48099.568627451529.33588747462790.8677642412004
Trimmed Mean ( 18 / 28 )48079.1020408163516.11533776367693.155731912837
Trimmed Mean ( 19 / 28 )48066.8510638298502.49117883718195.6571042203401
Trimmed Mean ( 20 / 28 )48054.9555555556487.06652622122198.6619957819262
Trimmed Mean ( 21 / 28 )48034.023255814471.50687785813101.873430720700
Trimmed Mean ( 22 / 28 )48028.6829268293458.398181953553104.775029259815
Trimmed Mean ( 23 / 28 )48013.0256410256447.886591413634107.199069053363
Trimmed Mean ( 24 / 28 )47998.8648648649436.132670123659110.055650844170
Trimmed Mean ( 25 / 28 )47988.2285714286422.361480620718113.618856769096
Trimmed Mean ( 26 / 28 )47989.2727272727407.697949394857117.707908019903
Trimmed Mean ( 27 / 28 )47981.1935483871399.402878014611120.132317991539
Trimmed Mean ( 28 / 28 )47976.5862068966391.153660347257122.65406429868
Median47616
Midrange50420
Midmean - Weighted Average at Xnp47904.4523809524
Midmean - Weighted Average at X(n+1)p48034.023255814
Midmean - Empirical Distribution Function48034.023255814
Midmean - Empirical Distribution Function - Averaging48034.023255814
Midmean - Empirical Distribution Function - Interpolation48034.023255814
Midmean - Closest Observation47912.4090909091
Midmean - True Basic - Statistics Graphics Toolkit48034.023255814
Midmean - MS Excel (old versions)48034.023255814
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')