Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationWed, 17 Mar 2010 16:47:04 -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/17/t1268866059k2i094blqpcqjq9.htm/, Retrieved Fri, 21 Jan 2022 12:04:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74543, Retrieved Fri, 21 Jan 2022 12:04:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [Opgave 5 - Oef2 -...] [2010-03-17 22:47:04] [413e0fefcf22560c5655fbc122c1a3c2] [Current]
Feedback Forum

Post a new message
Dataseries X:
18450
21845
26488
22394
28057
25451
24872
33424
24052
28449
33533
37351
19969
21701
26249
24493
24603
26485
30723
34569
26689
26157
32064
38870
21337
19419
23166
28286
24570
24001
33151
24878
26804
28967
33311
40226
20504
23060
23562
27562
23940
24584
34303
25517
23494
29095
32903
34379
16991
21109
23740
25552
21752
20294
29009
25500
24166
26960
31222
38641
14672
17543
25453
32683
22449
22316
27595
25451
25421
25288
32568
35110
16052
22146
21198
19543
22084
23816
29961
26773
26635
26972
30207
38687
16974
21697
24179
23757
25013
24019
30345
24488
25156
25650
30923
37240
17466
19463
24352
26805
25236
24735
29356
31234
22724
28496
32857
37198




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74543&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 Mean26415.5462962963520.76543837994150.7244612439584
Geometric Mean25875.054668533
Harmonic Mean25338.811338654
Quadratic Mean26959.2122808801
Winsorized Mean ( 1 / 36 )26415.7685185185515.2423493273951.2686283513036
Winsorized Mean ( 2 / 36 )26429.4537037037511.39949329445451.6806411626344
Winsorized Mean ( 3 / 36 )26428.6481481481511.03213710743951.7162155353682
Winsorized Mean ( 4 / 36 )26398.4629629630497.7849687535653.0318603815298
Winsorized Mean ( 5 / 36 )26396.8888888889496.13559132540453.2049894230945
Winsorized Mean ( 6 / 36 )26444.9444444444487.59107585907854.235907410429
Winsorized Mean ( 7 / 36 )26372.4166666667452.01674636793958.3438929609915
Winsorized Mean ( 8 / 36 )26335.6018518519444.45691868653759.2534410976863
Winsorized Mean ( 9 / 36 )26326.4351851852440.77340267013659.7278216555349
Winsorized Mean ( 10 / 36 )26358.8425925926434.01952502965160.7319281103582
Winsorized Mean ( 11 / 36 )26313.5185185185416.43693573001163.1872830213562
Winsorized Mean ( 12 / 36 )26324.7407407407411.3599694513463.9944153434567
Winsorized Mean ( 13 / 36 )26383.9629629630399.85281947955265.9841863746374
Winsorized Mean ( 14 / 36 )26374.7592592593395.09380912827166.7556885223085
Winsorized Mean ( 15 / 36 )26359.6203703704387.26109926340268.0667911662396
Winsorized Mean ( 16 / 36 )26406.1388888889379.85896926085969.5156387652785
Winsorized Mean ( 17 / 36 )26379.3796296296375.46347399472470.2581781097575
Winsorized Mean ( 18 / 36 )26368.7129629630371.47652379086870.9835245949697
Winsorized Mean ( 19 / 36 )26296.4074074074355.93783683298673.8792134081162
Winsorized Mean ( 20 / 36 )26186.9629629630328.05227886426679.8255785743161
Winsorized Mean ( 21 / 36 )26196.6851851852326.31271822302680.2809198729437
Winsorized Mean ( 22 / 36 )26170.4074074074313.61714738316183.4469914217853
Winsorized Mean ( 23 / 36 )26144.4259259259305.71347845816585.5193760438131
Winsorized Mean ( 24 / 36 )26072.6481481481292.69442548040889.0780482250536
Winsorized Mean ( 25 / 36 )26104.3611111111281.07439664930592.873493360839
Winsorized Mean ( 26 / 36 )26126.0277777778264.07619186277698.9336736245948
Winsorized Mean ( 27 / 36 )26001.2777777778241.063672410411107.860622539221
Winsorized Mean ( 28 / 36 )26018.6481481481223.125414411691116.609971198265
Winsorized Mean ( 29 / 36 )26013.8148148148218.232398866152119.202350109206
Winsorized Mean ( 30 / 36 )26051.5925925926211.612295466086123.110013693735
Winsorized Mean ( 31 / 36 )25921.2777777778194.007396754311133.609739687421
Winsorized Mean ( 32 / 36 )25924.8333333333190.465539547007136.112986081322
Winsorized Mean ( 33 / 36 )25912.9166666667180.422370460873143.623634921071
Winsorized Mean ( 34 / 36 )25860.0277777778169.66250500251152.420405306377
Winsorized Mean ( 35 / 36 )25716.1388888889151.288762391262169.980496121595
Winsorized Mean ( 36 / 36 )25716.1388888889148.861755787577172.751817636663
Trimmed Mean ( 1 / 36 )26396.0471698113502.04152657751352.5774179473895
Trimmed Mean ( 2 / 36 )26375.5673076923487.19853354020254.1372058656163
Trimmed Mean ( 3 / 36 )26347.0392156863472.76662229250855.7294825254922
Trimmed Mean ( 4 / 36 )26317.66456.58139398947757.6406755650813
Trimmed Mean ( 5 / 36 )26295.3979591837442.77922154992259.3871543184393
Trimmed Mean ( 6 / 36 )26272.5625427.56516221663561.446920426806
Trimmed Mean ( 7 / 36 )26239.5531914894412.37229538562263.6307372854716
Trimmed Mean ( 8 / 36 )26217.2717391304403.24392457891965.0159125559235
Trimmed Mean ( 9 / 36 )26199.5222222222394.39498418781166.4296537040795
Trimmed Mean ( 10 / 36 )26182.2159090909384.98042414129668.0092136307727
Trimmed Mean ( 11 / 36 )26160.0348837209375.38884589422669.6878321501649
Trimmed Mean ( 12 / 36 )26142.0952380952367.43979591209571.1466083122618
Trimmed Mean ( 13 / 36 )26122.0487804878359.08992033054772.7451462754569
Trimmed Mean ( 14 / 36 )26094.85351.21525509492474.2987373738857
Trimmed Mean ( 15 / 36 )26067.1666666667342.79546876451576.0429149212986
Trimmed Mean ( 16 / 36 )26039.4605263158334.1908318378777.917938032928
Trimmed Mean ( 17 / 36 )26006.0135135135325.16832054739579.9770822376992
Trimmed Mean ( 18 / 36 )25973.0694444444315.23148791446282.3936390881492
Trimmed Mean ( 19 / 36 )25939.1571428571304.07615753295485.3048044059357
Trimmed Mean ( 20 / 36 )25909.2941176471293.42236370139888.300338770407
Trimmed Mean ( 21 / 36 )25886.5757575758285.31953956098890.7283665093761
Trimmed Mean ( 22 / 36 )25861.65625275.81888199335293.7631827926246
Trimmed Mean ( 23 / 36 )25837.2096774194266.45364963151696.966994871904
Trimmed Mean ( 24 / 36 )25813.1666666667256.415645281269100.669234275278
Trimmed Mean ( 25 / 36 )25793.0344827586246.495559960352104.638941516461
Trimmed Mean ( 26 / 36 )25769.0178571429236.271358535757109.065347644510
Trimmed Mean ( 27 / 36 )25741.5555555556226.622713809015113.587712029824
Trimmed Mean ( 28 / 36 )25721.5769230769219.06469279089117.415438313602
Trimmed Mean ( 29 / 36 )25698.66212.755860102990120.789434366507
Trimmed Mean ( 30 / 36 )25674.2083333333205.581494423954124.885794829312
Trimmed Mean ( 31 / 36 )25644.6739130435197.475930299566129.862276755153
Trimmed Mean ( 32 / 36 )25622.7727272727190.981635391202134.163542346821
Trimmed Mean ( 33 / 36 )25598.5183.101500287861139.804971339697
Trimmed Mean ( 34 / 36 )25572.775174.921771846805146.195494877541
Trimmed Mean ( 35 / 36 )25548.7631578947166.694362757051153.267109549054
Trimmed Mean ( 36 / 36 )25534.4166666667160.687675839396158.907125473567
Median25451
Midrange27449
Midmean - Weighted Average at Xnp25692.8
Midmean - Weighted Average at X(n+1)p25741.5555555556
Midmean - Empirical Distribution Function25692.8
Midmean - Empirical Distribution Function - Averaging25741.5555555556
Midmean - Empirical Distribution Function - Interpolation25741.5555555556
Midmean - Closest Observation25692.8
Midmean - True Basic - Statistics Graphics Toolkit25741.5555555556
Midmean - MS Excel (old versions)25769.0178571429
Number of observations108

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 26415.5462962963 & 520.765438379941 & 50.7244612439584 \tabularnewline
Geometric Mean & 25875.054668533 &  &  \tabularnewline
Harmonic Mean & 25338.811338654 &  &  \tabularnewline
Quadratic Mean & 26959.2122808801 &  &  \tabularnewline
Winsorized Mean ( 1 / 36 ) & 26415.7685185185 & 515.24234932739 & 51.2686283513036 \tabularnewline
Winsorized Mean ( 2 / 36 ) & 26429.4537037037 & 511.399493294454 & 51.6806411626344 \tabularnewline
Winsorized Mean ( 3 / 36 ) & 26428.6481481481 & 511.032137107439 & 51.7162155353682 \tabularnewline
Winsorized Mean ( 4 / 36 ) & 26398.4629629630 & 497.78496875356 & 53.0318603815298 \tabularnewline
Winsorized Mean ( 5 / 36 ) & 26396.8888888889 & 496.135591325404 & 53.2049894230945 \tabularnewline
Winsorized Mean ( 6 / 36 ) & 26444.9444444444 & 487.591075859078 & 54.235907410429 \tabularnewline
Winsorized Mean ( 7 / 36 ) & 26372.4166666667 & 452.016746367939 & 58.3438929609915 \tabularnewline
Winsorized Mean ( 8 / 36 ) & 26335.6018518519 & 444.456918686537 & 59.2534410976863 \tabularnewline
Winsorized Mean ( 9 / 36 ) & 26326.4351851852 & 440.773402670136 & 59.7278216555349 \tabularnewline
Winsorized Mean ( 10 / 36 ) & 26358.8425925926 & 434.019525029651 & 60.7319281103582 \tabularnewline
Winsorized Mean ( 11 / 36 ) & 26313.5185185185 & 416.436935730011 & 63.1872830213562 \tabularnewline
Winsorized Mean ( 12 / 36 ) & 26324.7407407407 & 411.35996945134 & 63.9944153434567 \tabularnewline
Winsorized Mean ( 13 / 36 ) & 26383.9629629630 & 399.852819479552 & 65.9841863746374 \tabularnewline
Winsorized Mean ( 14 / 36 ) & 26374.7592592593 & 395.093809128271 & 66.7556885223085 \tabularnewline
Winsorized Mean ( 15 / 36 ) & 26359.6203703704 & 387.261099263402 & 68.0667911662396 \tabularnewline
Winsorized Mean ( 16 / 36 ) & 26406.1388888889 & 379.858969260859 & 69.5156387652785 \tabularnewline
Winsorized Mean ( 17 / 36 ) & 26379.3796296296 & 375.463473994724 & 70.2581781097575 \tabularnewline
Winsorized Mean ( 18 / 36 ) & 26368.7129629630 & 371.476523790868 & 70.9835245949697 \tabularnewline
Winsorized Mean ( 19 / 36 ) & 26296.4074074074 & 355.937836832986 & 73.8792134081162 \tabularnewline
Winsorized Mean ( 20 / 36 ) & 26186.9629629630 & 328.052278864266 & 79.8255785743161 \tabularnewline
Winsorized Mean ( 21 / 36 ) & 26196.6851851852 & 326.312718223026 & 80.2809198729437 \tabularnewline
Winsorized Mean ( 22 / 36 ) & 26170.4074074074 & 313.617147383161 & 83.4469914217853 \tabularnewline
Winsorized Mean ( 23 / 36 ) & 26144.4259259259 & 305.713478458165 & 85.5193760438131 \tabularnewline
Winsorized Mean ( 24 / 36 ) & 26072.6481481481 & 292.694425480408 & 89.0780482250536 \tabularnewline
Winsorized Mean ( 25 / 36 ) & 26104.3611111111 & 281.074396649305 & 92.873493360839 \tabularnewline
Winsorized Mean ( 26 / 36 ) & 26126.0277777778 & 264.076191862776 & 98.9336736245948 \tabularnewline
Winsorized Mean ( 27 / 36 ) & 26001.2777777778 & 241.063672410411 & 107.860622539221 \tabularnewline
Winsorized Mean ( 28 / 36 ) & 26018.6481481481 & 223.125414411691 & 116.609971198265 \tabularnewline
Winsorized Mean ( 29 / 36 ) & 26013.8148148148 & 218.232398866152 & 119.202350109206 \tabularnewline
Winsorized Mean ( 30 / 36 ) & 26051.5925925926 & 211.612295466086 & 123.110013693735 \tabularnewline
Winsorized Mean ( 31 / 36 ) & 25921.2777777778 & 194.007396754311 & 133.609739687421 \tabularnewline
Winsorized Mean ( 32 / 36 ) & 25924.8333333333 & 190.465539547007 & 136.112986081322 \tabularnewline
Winsorized Mean ( 33 / 36 ) & 25912.9166666667 & 180.422370460873 & 143.623634921071 \tabularnewline
Winsorized Mean ( 34 / 36 ) & 25860.0277777778 & 169.66250500251 & 152.420405306377 \tabularnewline
Winsorized Mean ( 35 / 36 ) & 25716.1388888889 & 151.288762391262 & 169.980496121595 \tabularnewline
Winsorized Mean ( 36 / 36 ) & 25716.1388888889 & 148.861755787577 & 172.751817636663 \tabularnewline
Trimmed Mean ( 1 / 36 ) & 26396.0471698113 & 502.041526577513 & 52.5774179473895 \tabularnewline
Trimmed Mean ( 2 / 36 ) & 26375.5673076923 & 487.198533540202 & 54.1372058656163 \tabularnewline
Trimmed Mean ( 3 / 36 ) & 26347.0392156863 & 472.766622292508 & 55.7294825254922 \tabularnewline
Trimmed Mean ( 4 / 36 ) & 26317.66 & 456.581393989477 & 57.6406755650813 \tabularnewline
Trimmed Mean ( 5 / 36 ) & 26295.3979591837 & 442.779221549922 & 59.3871543184393 \tabularnewline
Trimmed Mean ( 6 / 36 ) & 26272.5625 & 427.565162216635 & 61.446920426806 \tabularnewline
Trimmed Mean ( 7 / 36 ) & 26239.5531914894 & 412.372295385622 & 63.6307372854716 \tabularnewline
Trimmed Mean ( 8 / 36 ) & 26217.2717391304 & 403.243924578919 & 65.0159125559235 \tabularnewline
Trimmed Mean ( 9 / 36 ) & 26199.5222222222 & 394.394984187811 & 66.4296537040795 \tabularnewline
Trimmed Mean ( 10 / 36 ) & 26182.2159090909 & 384.980424141296 & 68.0092136307727 \tabularnewline
Trimmed Mean ( 11 / 36 ) & 26160.0348837209 & 375.388845894226 & 69.6878321501649 \tabularnewline
Trimmed Mean ( 12 / 36 ) & 26142.0952380952 & 367.439795912095 & 71.1466083122618 \tabularnewline
Trimmed Mean ( 13 / 36 ) & 26122.0487804878 & 359.089920330547 & 72.7451462754569 \tabularnewline
Trimmed Mean ( 14 / 36 ) & 26094.85 & 351.215255094924 & 74.2987373738857 \tabularnewline
Trimmed Mean ( 15 / 36 ) & 26067.1666666667 & 342.795468764515 & 76.0429149212986 \tabularnewline
Trimmed Mean ( 16 / 36 ) & 26039.4605263158 & 334.19083183787 & 77.917938032928 \tabularnewline
Trimmed Mean ( 17 / 36 ) & 26006.0135135135 & 325.168320547395 & 79.9770822376992 \tabularnewline
Trimmed Mean ( 18 / 36 ) & 25973.0694444444 & 315.231487914462 & 82.3936390881492 \tabularnewline
Trimmed Mean ( 19 / 36 ) & 25939.1571428571 & 304.076157532954 & 85.3048044059357 \tabularnewline
Trimmed Mean ( 20 / 36 ) & 25909.2941176471 & 293.422363701398 & 88.300338770407 \tabularnewline
Trimmed Mean ( 21 / 36 ) & 25886.5757575758 & 285.319539560988 & 90.7283665093761 \tabularnewline
Trimmed Mean ( 22 / 36 ) & 25861.65625 & 275.818881993352 & 93.7631827926246 \tabularnewline
Trimmed Mean ( 23 / 36 ) & 25837.2096774194 & 266.453649631516 & 96.966994871904 \tabularnewline
Trimmed Mean ( 24 / 36 ) & 25813.1666666667 & 256.415645281269 & 100.669234275278 \tabularnewline
Trimmed Mean ( 25 / 36 ) & 25793.0344827586 & 246.495559960352 & 104.638941516461 \tabularnewline
Trimmed Mean ( 26 / 36 ) & 25769.0178571429 & 236.271358535757 & 109.065347644510 \tabularnewline
Trimmed Mean ( 27 / 36 ) & 25741.5555555556 & 226.622713809015 & 113.587712029824 \tabularnewline
Trimmed Mean ( 28 / 36 ) & 25721.5769230769 & 219.06469279089 & 117.415438313602 \tabularnewline
Trimmed Mean ( 29 / 36 ) & 25698.66 & 212.755860102990 & 120.789434366507 \tabularnewline
Trimmed Mean ( 30 / 36 ) & 25674.2083333333 & 205.581494423954 & 124.885794829312 \tabularnewline
Trimmed Mean ( 31 / 36 ) & 25644.6739130435 & 197.475930299566 & 129.862276755153 \tabularnewline
Trimmed Mean ( 32 / 36 ) & 25622.7727272727 & 190.981635391202 & 134.163542346821 \tabularnewline
Trimmed Mean ( 33 / 36 ) & 25598.5 & 183.101500287861 & 139.804971339697 \tabularnewline
Trimmed Mean ( 34 / 36 ) & 25572.775 & 174.921771846805 & 146.195494877541 \tabularnewline
Trimmed Mean ( 35 / 36 ) & 25548.7631578947 & 166.694362757051 & 153.267109549054 \tabularnewline
Trimmed Mean ( 36 / 36 ) & 25534.4166666667 & 160.687675839396 & 158.907125473567 \tabularnewline
Median & 25451 &  &  \tabularnewline
Midrange & 27449 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 25692.8 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 25741.5555555556 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 25692.8 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 25741.5555555556 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 25741.5555555556 &  &  \tabularnewline
Midmean - Closest Observation & 25692.8 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 25741.5555555556 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 25769.0178571429 &  &  \tabularnewline
Number of observations & 108 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74543&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]26415.5462962963[/C][C]520.765438379941[/C][C]50.7244612439584[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]25875.054668533[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]25338.811338654[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]26959.2122808801[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 36 )[/C][C]26415.7685185185[/C][C]515.24234932739[/C][C]51.2686283513036[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 36 )[/C][C]26429.4537037037[/C][C]511.399493294454[/C][C]51.6806411626344[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 36 )[/C][C]26428.6481481481[/C][C]511.032137107439[/C][C]51.7162155353682[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 36 )[/C][C]26398.4629629630[/C][C]497.78496875356[/C][C]53.0318603815298[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 36 )[/C][C]26396.8888888889[/C][C]496.135591325404[/C][C]53.2049894230945[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 36 )[/C][C]26444.9444444444[/C][C]487.591075859078[/C][C]54.235907410429[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 36 )[/C][C]26372.4166666667[/C][C]452.016746367939[/C][C]58.3438929609915[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 36 )[/C][C]26335.6018518519[/C][C]444.456918686537[/C][C]59.2534410976863[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 36 )[/C][C]26326.4351851852[/C][C]440.773402670136[/C][C]59.7278216555349[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 36 )[/C][C]26358.8425925926[/C][C]434.019525029651[/C][C]60.7319281103582[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 36 )[/C][C]26313.5185185185[/C][C]416.436935730011[/C][C]63.1872830213562[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 36 )[/C][C]26324.7407407407[/C][C]411.35996945134[/C][C]63.9944153434567[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 36 )[/C][C]26383.9629629630[/C][C]399.852819479552[/C][C]65.9841863746374[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 36 )[/C][C]26374.7592592593[/C][C]395.093809128271[/C][C]66.7556885223085[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 36 )[/C][C]26359.6203703704[/C][C]387.261099263402[/C][C]68.0667911662396[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 36 )[/C][C]26406.1388888889[/C][C]379.858969260859[/C][C]69.5156387652785[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 36 )[/C][C]26379.3796296296[/C][C]375.463473994724[/C][C]70.2581781097575[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 36 )[/C][C]26368.7129629630[/C][C]371.476523790868[/C][C]70.9835245949697[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 36 )[/C][C]26296.4074074074[/C][C]355.937836832986[/C][C]73.8792134081162[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 36 )[/C][C]26186.9629629630[/C][C]328.052278864266[/C][C]79.8255785743161[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 36 )[/C][C]26196.6851851852[/C][C]326.312718223026[/C][C]80.2809198729437[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 36 )[/C][C]26170.4074074074[/C][C]313.617147383161[/C][C]83.4469914217853[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 36 )[/C][C]26144.4259259259[/C][C]305.713478458165[/C][C]85.5193760438131[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 36 )[/C][C]26072.6481481481[/C][C]292.694425480408[/C][C]89.0780482250536[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 36 )[/C][C]26104.3611111111[/C][C]281.074396649305[/C][C]92.873493360839[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 36 )[/C][C]26126.0277777778[/C][C]264.076191862776[/C][C]98.9336736245948[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 36 )[/C][C]26001.2777777778[/C][C]241.063672410411[/C][C]107.860622539221[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 36 )[/C][C]26018.6481481481[/C][C]223.125414411691[/C][C]116.609971198265[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 36 )[/C][C]26013.8148148148[/C][C]218.232398866152[/C][C]119.202350109206[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 36 )[/C][C]26051.5925925926[/C][C]211.612295466086[/C][C]123.110013693735[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 36 )[/C][C]25921.2777777778[/C][C]194.007396754311[/C][C]133.609739687421[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 36 )[/C][C]25924.8333333333[/C][C]190.465539547007[/C][C]136.112986081322[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 36 )[/C][C]25912.9166666667[/C][C]180.422370460873[/C][C]143.623634921071[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 36 )[/C][C]25860.0277777778[/C][C]169.66250500251[/C][C]152.420405306377[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 36 )[/C][C]25716.1388888889[/C][C]151.288762391262[/C][C]169.980496121595[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 36 )[/C][C]25716.1388888889[/C][C]148.861755787577[/C][C]172.751817636663[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 36 )[/C][C]26396.0471698113[/C][C]502.041526577513[/C][C]52.5774179473895[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 36 )[/C][C]26375.5673076923[/C][C]487.198533540202[/C][C]54.1372058656163[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 36 )[/C][C]26347.0392156863[/C][C]472.766622292508[/C][C]55.7294825254922[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 36 )[/C][C]26317.66[/C][C]456.581393989477[/C][C]57.6406755650813[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 36 )[/C][C]26295.3979591837[/C][C]442.779221549922[/C][C]59.3871543184393[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 36 )[/C][C]26272.5625[/C][C]427.565162216635[/C][C]61.446920426806[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 36 )[/C][C]26239.5531914894[/C][C]412.372295385622[/C][C]63.6307372854716[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 36 )[/C][C]26217.2717391304[/C][C]403.243924578919[/C][C]65.0159125559235[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 36 )[/C][C]26199.5222222222[/C][C]394.394984187811[/C][C]66.4296537040795[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 36 )[/C][C]26182.2159090909[/C][C]384.980424141296[/C][C]68.0092136307727[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 36 )[/C][C]26160.0348837209[/C][C]375.388845894226[/C][C]69.6878321501649[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 36 )[/C][C]26142.0952380952[/C][C]367.439795912095[/C][C]71.1466083122618[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 36 )[/C][C]26122.0487804878[/C][C]359.089920330547[/C][C]72.7451462754569[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 36 )[/C][C]26094.85[/C][C]351.215255094924[/C][C]74.2987373738857[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 36 )[/C][C]26067.1666666667[/C][C]342.795468764515[/C][C]76.0429149212986[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 36 )[/C][C]26039.4605263158[/C][C]334.19083183787[/C][C]77.917938032928[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 36 )[/C][C]26006.0135135135[/C][C]325.168320547395[/C][C]79.9770822376992[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 36 )[/C][C]25973.0694444444[/C][C]315.231487914462[/C][C]82.3936390881492[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 36 )[/C][C]25939.1571428571[/C][C]304.076157532954[/C][C]85.3048044059357[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 36 )[/C][C]25909.2941176471[/C][C]293.422363701398[/C][C]88.300338770407[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 36 )[/C][C]25886.5757575758[/C][C]285.319539560988[/C][C]90.7283665093761[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 36 )[/C][C]25861.65625[/C][C]275.818881993352[/C][C]93.7631827926246[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 36 )[/C][C]25837.2096774194[/C][C]266.453649631516[/C][C]96.966994871904[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 36 )[/C][C]25813.1666666667[/C][C]256.415645281269[/C][C]100.669234275278[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 36 )[/C][C]25793.0344827586[/C][C]246.495559960352[/C][C]104.638941516461[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 36 )[/C][C]25769.0178571429[/C][C]236.271358535757[/C][C]109.065347644510[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 36 )[/C][C]25741.5555555556[/C][C]226.622713809015[/C][C]113.587712029824[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 36 )[/C][C]25721.5769230769[/C][C]219.06469279089[/C][C]117.415438313602[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 36 )[/C][C]25698.66[/C][C]212.755860102990[/C][C]120.789434366507[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 36 )[/C][C]25674.2083333333[/C][C]205.581494423954[/C][C]124.885794829312[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 36 )[/C][C]25644.6739130435[/C][C]197.475930299566[/C][C]129.862276755153[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 36 )[/C][C]25622.7727272727[/C][C]190.981635391202[/C][C]134.163542346821[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 36 )[/C][C]25598.5[/C][C]183.101500287861[/C][C]139.804971339697[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 36 )[/C][C]25572.775[/C][C]174.921771846805[/C][C]146.195494877541[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 36 )[/C][C]25548.7631578947[/C][C]166.694362757051[/C][C]153.267109549054[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 36 )[/C][C]25534.4166666667[/C][C]160.687675839396[/C][C]158.907125473567[/C][/ROW]
[ROW][C]Median[/C][C]25451[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]27449[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]25692.8[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]25741.5555555556[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]25692.8[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]25741.5555555556[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]25741.5555555556[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]25692.8[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]25741.5555555556[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]25769.0178571429[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]108[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74543&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74543&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 Mean26415.5462962963520.76543837994150.7244612439584
Geometric Mean25875.054668533
Harmonic Mean25338.811338654
Quadratic Mean26959.2122808801
Winsorized Mean ( 1 / 36 )26415.7685185185515.2423493273951.2686283513036
Winsorized Mean ( 2 / 36 )26429.4537037037511.39949329445451.6806411626344
Winsorized Mean ( 3 / 36 )26428.6481481481511.03213710743951.7162155353682
Winsorized Mean ( 4 / 36 )26398.4629629630497.7849687535653.0318603815298
Winsorized Mean ( 5 / 36 )26396.8888888889496.13559132540453.2049894230945
Winsorized Mean ( 6 / 36 )26444.9444444444487.59107585907854.235907410429
Winsorized Mean ( 7 / 36 )26372.4166666667452.01674636793958.3438929609915
Winsorized Mean ( 8 / 36 )26335.6018518519444.45691868653759.2534410976863
Winsorized Mean ( 9 / 36 )26326.4351851852440.77340267013659.7278216555349
Winsorized Mean ( 10 / 36 )26358.8425925926434.01952502965160.7319281103582
Winsorized Mean ( 11 / 36 )26313.5185185185416.43693573001163.1872830213562
Winsorized Mean ( 12 / 36 )26324.7407407407411.3599694513463.9944153434567
Winsorized Mean ( 13 / 36 )26383.9629629630399.85281947955265.9841863746374
Winsorized Mean ( 14 / 36 )26374.7592592593395.09380912827166.7556885223085
Winsorized Mean ( 15 / 36 )26359.6203703704387.26109926340268.0667911662396
Winsorized Mean ( 16 / 36 )26406.1388888889379.85896926085969.5156387652785
Winsorized Mean ( 17 / 36 )26379.3796296296375.46347399472470.2581781097575
Winsorized Mean ( 18 / 36 )26368.7129629630371.47652379086870.9835245949697
Winsorized Mean ( 19 / 36 )26296.4074074074355.93783683298673.8792134081162
Winsorized Mean ( 20 / 36 )26186.9629629630328.05227886426679.8255785743161
Winsorized Mean ( 21 / 36 )26196.6851851852326.31271822302680.2809198729437
Winsorized Mean ( 22 / 36 )26170.4074074074313.61714738316183.4469914217853
Winsorized Mean ( 23 / 36 )26144.4259259259305.71347845816585.5193760438131
Winsorized Mean ( 24 / 36 )26072.6481481481292.69442548040889.0780482250536
Winsorized Mean ( 25 / 36 )26104.3611111111281.07439664930592.873493360839
Winsorized Mean ( 26 / 36 )26126.0277777778264.07619186277698.9336736245948
Winsorized Mean ( 27 / 36 )26001.2777777778241.063672410411107.860622539221
Winsorized Mean ( 28 / 36 )26018.6481481481223.125414411691116.609971198265
Winsorized Mean ( 29 / 36 )26013.8148148148218.232398866152119.202350109206
Winsorized Mean ( 30 / 36 )26051.5925925926211.612295466086123.110013693735
Winsorized Mean ( 31 / 36 )25921.2777777778194.007396754311133.609739687421
Winsorized Mean ( 32 / 36 )25924.8333333333190.465539547007136.112986081322
Winsorized Mean ( 33 / 36 )25912.9166666667180.422370460873143.623634921071
Winsorized Mean ( 34 / 36 )25860.0277777778169.66250500251152.420405306377
Winsorized Mean ( 35 / 36 )25716.1388888889151.288762391262169.980496121595
Winsorized Mean ( 36 / 36 )25716.1388888889148.861755787577172.751817636663
Trimmed Mean ( 1 / 36 )26396.0471698113502.04152657751352.5774179473895
Trimmed Mean ( 2 / 36 )26375.5673076923487.19853354020254.1372058656163
Trimmed Mean ( 3 / 36 )26347.0392156863472.76662229250855.7294825254922
Trimmed Mean ( 4 / 36 )26317.66456.58139398947757.6406755650813
Trimmed Mean ( 5 / 36 )26295.3979591837442.77922154992259.3871543184393
Trimmed Mean ( 6 / 36 )26272.5625427.56516221663561.446920426806
Trimmed Mean ( 7 / 36 )26239.5531914894412.37229538562263.6307372854716
Trimmed Mean ( 8 / 36 )26217.2717391304403.24392457891965.0159125559235
Trimmed Mean ( 9 / 36 )26199.5222222222394.39498418781166.4296537040795
Trimmed Mean ( 10 / 36 )26182.2159090909384.98042414129668.0092136307727
Trimmed Mean ( 11 / 36 )26160.0348837209375.38884589422669.6878321501649
Trimmed Mean ( 12 / 36 )26142.0952380952367.43979591209571.1466083122618
Trimmed Mean ( 13 / 36 )26122.0487804878359.08992033054772.7451462754569
Trimmed Mean ( 14 / 36 )26094.85351.21525509492474.2987373738857
Trimmed Mean ( 15 / 36 )26067.1666666667342.79546876451576.0429149212986
Trimmed Mean ( 16 / 36 )26039.4605263158334.1908318378777.917938032928
Trimmed Mean ( 17 / 36 )26006.0135135135325.16832054739579.9770822376992
Trimmed Mean ( 18 / 36 )25973.0694444444315.23148791446282.3936390881492
Trimmed Mean ( 19 / 36 )25939.1571428571304.07615753295485.3048044059357
Trimmed Mean ( 20 / 36 )25909.2941176471293.42236370139888.300338770407
Trimmed Mean ( 21 / 36 )25886.5757575758285.31953956098890.7283665093761
Trimmed Mean ( 22 / 36 )25861.65625275.81888199335293.7631827926246
Trimmed Mean ( 23 / 36 )25837.2096774194266.45364963151696.966994871904
Trimmed Mean ( 24 / 36 )25813.1666666667256.415645281269100.669234275278
Trimmed Mean ( 25 / 36 )25793.0344827586246.495559960352104.638941516461
Trimmed Mean ( 26 / 36 )25769.0178571429236.271358535757109.065347644510
Trimmed Mean ( 27 / 36 )25741.5555555556226.622713809015113.587712029824
Trimmed Mean ( 28 / 36 )25721.5769230769219.06469279089117.415438313602
Trimmed Mean ( 29 / 36 )25698.66212.755860102990120.789434366507
Trimmed Mean ( 30 / 36 )25674.2083333333205.581494423954124.885794829312
Trimmed Mean ( 31 / 36 )25644.6739130435197.475930299566129.862276755153
Trimmed Mean ( 32 / 36 )25622.7727272727190.981635391202134.163542346821
Trimmed Mean ( 33 / 36 )25598.5183.101500287861139.804971339697
Trimmed Mean ( 34 / 36 )25572.775174.921771846805146.195494877541
Trimmed Mean ( 35 / 36 )25548.7631578947166.694362757051153.267109549054
Trimmed Mean ( 36 / 36 )25534.4166666667160.687675839396158.907125473567
Median25451
Midrange27449
Midmean - Weighted Average at Xnp25692.8
Midmean - Weighted Average at X(n+1)p25741.5555555556
Midmean - Empirical Distribution Function25692.8
Midmean - Empirical Distribution Function - Averaging25741.5555555556
Midmean - Empirical Distribution Function - Interpolation25741.5555555556
Midmean - Closest Observation25692.8
Midmean - True Basic - Statistics Graphics Toolkit25741.5555555556
Midmean - MS Excel (old versions)25769.0178571429
Number of observations108



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