Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationThu, 11 Mar 2010 09:42:49 -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/11/t1268325846n8scx857rb4by6y.htm/, Retrieved Thu, 28 Mar 2024 13:31:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74324, Retrieved Thu, 28 Mar 2024 13:31:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact208
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [Datareeks-Inschri...] [2010-02-08 14:03:15] [c656187b38b4f6e6948d94f8dfe6ded2]
- RMPD    [Central Tendency] [Datareeks-Inschri...] [2010-03-11 16:42:49] [8c87877ca0a068b5d9f0f8fa9cf6c0e7] [Current]
Feedback Forum

Post a new message
Dataseries X:
14538
18730
22485
20036
16971
19028
22759
20516
26195
27786
24090
25447
11509
15572
22518
20520
17789
20205
26835
25826
31934
30019
30111
31566
12738
19814
24776
20424
18688
20418
25778
25100
25859
30651
26551
31124
9367
17382
20995
18205
17328
18157
23691
26736
27165
34506
29506
31956
10698
18479
19785
19684
18730
17970
27044
22405
26482
29096
25591
29743
13807
19169
22782
20366
17537
18004
24319
22679
32034
36438
29383
28029
15548
17704
25316
20764
18089
21705
23843
22397
26105
29462
27071
31514
11514
17409
24561
21382
17351
22780
23970
26887
34777
35022
35338
36845
13971
22228
28806
20506
22414
25814
28352
29965
30212
32609
30364
37702
13253
21790
27192
21725
22205
24693
29133
35953
37863
43129
39690
41086




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74324&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 Mean24318.025621.57181636067439.123435715575
Geometric Mean23340.8604743187
Harmonic Mean22310.8389704114
Quadratic Mean25245.6366749781
Winsorized Mean ( 1 / 40 )24312.0916666667615.30318982236639.5123770993051
Winsorized Mean ( 2 / 40 )24302.3416666667607.70909468834139.9900904545948
Winsorized Mean ( 3 / 40 )24256.7916666667598.46051821499640.5319831941736
Winsorized Mean ( 4 / 40 )24292.225590.42884268306141.1433575799073
Winsorized Mean ( 5 / 40 )24277.975580.29288273823641.837450918645
Winsorized Mean ( 6 / 40 )24285.325572.28241570756142.4359098470185
Winsorized Mean ( 7 / 40 )24266.6565.83520522126242.8863382413805
Winsorized Mean ( 8 / 40 )24263.4553.14360024590143.86455884008
Winsorized Mean ( 9 / 40 )24315.45538.38481297463945.1636996698594
Winsorized Mean ( 10 / 40 )24297.0333333333534.72354907956245.4384950413286
Winsorized Mean ( 11 / 40 )24400.4333333333514.02619781046347.4692407454503
Winsorized Mean ( 12 / 40 )24246.4333333333480.08144598659450.5048331611849
Winsorized Mean ( 13 / 40 )24186.6333333333470.85556729932551.3674150059646
Winsorized Mean ( 14 / 40 )24181.15469.14383155368751.5431481213727
Winsorized Mean ( 15 / 40 )24181.775468.35050729536351.6317899165846
Winsorized Mean ( 16 / 40 )24149.775459.54123565100852.551921626333
Winsorized Mean ( 17 / 40 )24166.0666666667455.70250439477753.0303573792334
Winsorized Mean ( 18 / 40 )24120.3166666667446.36178863810654.0375930033351
Winsorized Mean ( 19 / 40 )24074.0833333333433.24039079494155.5674951939741
Winsorized Mean ( 20 / 40 )24031.9166666667426.53324626074956.3424231929049
Winsorized Mean ( 21 / 40 )24020.1916666667421.46917264114556.9915742974596
Winsorized Mean ( 22 / 40 )24014.1416666667417.71898587672757.4887483657577
Winsorized Mean ( 23 / 40 )24005.7083333333414.47967235430857.9176976206752
Winsorized Mean ( 24 / 40 )24049.7083333333406.7852253010559.1213909392477
Winsorized Mean ( 25 / 40 )24047396.18466289704660.6964434820864
Winsorized Mean ( 26 / 40 )24004.75388.9953257821961.7096103962981
Winsorized Mean ( 27 / 40 )23994.85387.82066259746361.8709942871336
Winsorized Mean ( 28 / 40 )24045.95377.78683592253363.6495179650219
Winsorized Mean ( 29 / 40 )24019.6083333333366.86695706630765.4722587321814
Winsorized Mean ( 30 / 40 )24139.1083333333351.76757983575868.6223225704996
Winsorized Mean ( 31 / 40 )24090.2833333333340.19147355737670.8138951321197
Winsorized Mean ( 32 / 40 )23976.95325.47085367147173.66850127908
Winsorized Mean ( 33 / 40 )23949.175308.99362549571977.5070196402216
Winsorized Mean ( 34 / 40 )23928.2083333333296.33063828144880.7483440527904
Winsorized Mean ( 35 / 40 )23801.9166666667272.82732084684487.2416904318327
Winsorized Mean ( 36 / 40 )23809.4166666667270.33419393822888.0740106155685
Winsorized Mean ( 37 / 40 )23782.2833333333267.12801334916889.029536944323
Winsorized Mean ( 38 / 40 )23799.7263.50801751392290.3186939985329
Winsorized Mean ( 39 / 40 )23751.925257.9201177450292.0902378909472
Winsorized Mean ( 40 / 40 )23735.925256.01258179934492.713900360583
Trimmed Mean ( 1 / 40 )24285.3135593220598.15179354005940.6005863755646
Trimmed Mean ( 2 / 40 )24257.6120689655579.0327186965141.8933357057491
Trimmed Mean ( 3 / 40 )24234.0701754386562.21882658021443.104337723527
Trimmed Mean ( 4 / 40 )24225.9553571429547.33443565848544.2617050542365
Trimmed Mean ( 5 / 40 )24207.8818181818533.35010396530645.3883511753408
Trimmed Mean ( 6 / 40 )24192.3055555556520.51800281329446.4773656718904
Trimmed Mean ( 7 / 40 )24174.7547169811508.07732002985447.5808578024318
Trimmed Mean ( 8 / 40 )24159.6153846154495.52320123542348.7557703138448
Trimmed Mean ( 9 / 40 )24144.3529411765483.93966747557449.8912458801388
Trimmed Mean ( 10 / 40 )24121.54473.58840340787950.9335529046417
Trimmed Mean ( 11 / 40 )24100.0510204082462.54089779369952.103611021997
Trimmed Mean ( 12 / 40 )24065.9166666667453.36624066257453.0827276232466
Trimmed Mean ( 13 / 40 )24046.7127659574448.19919645523853.6518426542048
Trimmed Mean ( 14 / 40 )24032.6739130435443.6023333192754.1761665977231
Trimmed Mean ( 15 / 40 )24018.5333333333438.53674698015354.7697165601959
Trimmed Mean ( 16 / 40 )24003.6931818182432.79833676031655.4616114320038
Trimmed Mean ( 17 / 40 )23990.9534883721427.35762516074456.1378856393361
Trimmed Mean ( 18 / 40 )23976.2380952381421.54373754990256.877225207028
Trimmed Mean ( 19 / 40 )23964.5243902439416.01749183861457.6046076436144
Trimmed Mean ( 20 / 40 )23955.875411.25105377688158.251218519666
Trimmed Mean ( 21 / 40 )23950.0256410256406.48952416783758.919170647893
Trimmed Mean ( 22 / 40 )23944.75401.49451990972959.6390456472075
Trimmed Mean ( 23 / 40 )23939.6351351351396.04325816477860.4470209796497
Trimmed Mean ( 24 / 40 )23934.8472222222389.98082627104461.3744205095536
Trimmed Mean ( 25 / 40 )23926.6428571429383.76068340385062.3478222024212
Trimmed Mean ( 26 / 40 )23918.1470588235377.72908861127163.3209032080613
Trimmed Mean ( 27 / 40 )23912.0909090909371.44690863360364.375528112627
Trimmed Mean ( 28 / 40 )23906.34375364.00742487817965.6754288954425
Trimmed Mean ( 29 / 40 )23896.6935483871356.42026066860567.0463949034758
Trimmed Mean ( 30 / 40 )23888.2166666667348.79679714915268.4874885948326
Trimmed Mean ( 31 / 40 )23870.9137931034341.63576590037669.872408499713
Trimmed Mean ( 32 / 40 )23855.75334.58499905242271.2995205031961
Trimmed Mean ( 33 / 40 )23847.3333333333328.17885882891772.6656598734936
Trimmed Mean ( 34 / 40 )23840.2115384615322.73463097967773.869393768166
Trimmed Mean ( 35 / 40 )23834317.79863217491274.9971761580211
Trimmed Mean ( 36 / 40 )23836.2916666667315.20052150557775.6226276302177
Trimmed Mean ( 37 / 40 )23838.2391304348311.89888765521976.4293816808548
Trimmed Mean ( 38 / 40 )23842.3636363636307.81142481429177.4576955704234
Trimmed Mean ( 39 / 40 )23845.5714285714302.79452051277978.7516609884131
Trimmed Mean ( 40 / 40 )23852.775296.93124579195880.3309700074886
Median23906.5
Midrange26248
Midmean - Weighted Average at Xnp23810.8524590164
Midmean - Weighted Average at X(n+1)p23888.2166666667
Midmean - Empirical Distribution Function23810.8524590164
Midmean - Empirical Distribution Function - Averaging23888.2166666667
Midmean - Empirical Distribution Function - Interpolation23888.2166666667
Midmean - Closest Observation23810.8524590164
Midmean - True Basic - Statistics Graphics Toolkit23888.2166666667
Midmean - MS Excel (old versions)23896.6935483871
Number of observations120

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 24318.025 & 621.571816360674 & 39.123435715575 \tabularnewline
Geometric Mean & 23340.8604743187 &  &  \tabularnewline
Harmonic Mean & 22310.8389704114 &  &  \tabularnewline
Quadratic Mean & 25245.6366749781 &  &  \tabularnewline
Winsorized Mean ( 1 / 40 ) & 24312.0916666667 & 615.303189822366 & 39.5123770993051 \tabularnewline
Winsorized Mean ( 2 / 40 ) & 24302.3416666667 & 607.709094688341 & 39.9900904545948 \tabularnewline
Winsorized Mean ( 3 / 40 ) & 24256.7916666667 & 598.460518214996 & 40.5319831941736 \tabularnewline
Winsorized Mean ( 4 / 40 ) & 24292.225 & 590.428842683061 & 41.1433575799073 \tabularnewline
Winsorized Mean ( 5 / 40 ) & 24277.975 & 580.292882738236 & 41.837450918645 \tabularnewline
Winsorized Mean ( 6 / 40 ) & 24285.325 & 572.282415707561 & 42.4359098470185 \tabularnewline
Winsorized Mean ( 7 / 40 ) & 24266.6 & 565.835205221262 & 42.8863382413805 \tabularnewline
Winsorized Mean ( 8 / 40 ) & 24263.4 & 553.143600245901 & 43.86455884008 \tabularnewline
Winsorized Mean ( 9 / 40 ) & 24315.45 & 538.384812974639 & 45.1636996698594 \tabularnewline
Winsorized Mean ( 10 / 40 ) & 24297.0333333333 & 534.723549079562 & 45.4384950413286 \tabularnewline
Winsorized Mean ( 11 / 40 ) & 24400.4333333333 & 514.026197810463 & 47.4692407454503 \tabularnewline
Winsorized Mean ( 12 / 40 ) & 24246.4333333333 & 480.081445986594 & 50.5048331611849 \tabularnewline
Winsorized Mean ( 13 / 40 ) & 24186.6333333333 & 470.855567299325 & 51.3674150059646 \tabularnewline
Winsorized Mean ( 14 / 40 ) & 24181.15 & 469.143831553687 & 51.5431481213727 \tabularnewline
Winsorized Mean ( 15 / 40 ) & 24181.775 & 468.350507295363 & 51.6317899165846 \tabularnewline
Winsorized Mean ( 16 / 40 ) & 24149.775 & 459.541235651008 & 52.551921626333 \tabularnewline
Winsorized Mean ( 17 / 40 ) & 24166.0666666667 & 455.702504394777 & 53.0303573792334 \tabularnewline
Winsorized Mean ( 18 / 40 ) & 24120.3166666667 & 446.361788638106 & 54.0375930033351 \tabularnewline
Winsorized Mean ( 19 / 40 ) & 24074.0833333333 & 433.240390794941 & 55.5674951939741 \tabularnewline
Winsorized Mean ( 20 / 40 ) & 24031.9166666667 & 426.533246260749 & 56.3424231929049 \tabularnewline
Winsorized Mean ( 21 / 40 ) & 24020.1916666667 & 421.469172641145 & 56.9915742974596 \tabularnewline
Winsorized Mean ( 22 / 40 ) & 24014.1416666667 & 417.718985876727 & 57.4887483657577 \tabularnewline
Winsorized Mean ( 23 / 40 ) & 24005.7083333333 & 414.479672354308 & 57.9176976206752 \tabularnewline
Winsorized Mean ( 24 / 40 ) & 24049.7083333333 & 406.78522530105 & 59.1213909392477 \tabularnewline
Winsorized Mean ( 25 / 40 ) & 24047 & 396.184662897046 & 60.6964434820864 \tabularnewline
Winsorized Mean ( 26 / 40 ) & 24004.75 & 388.99532578219 & 61.7096103962981 \tabularnewline
Winsorized Mean ( 27 / 40 ) & 23994.85 & 387.820662597463 & 61.8709942871336 \tabularnewline
Winsorized Mean ( 28 / 40 ) & 24045.95 & 377.786835922533 & 63.6495179650219 \tabularnewline
Winsorized Mean ( 29 / 40 ) & 24019.6083333333 & 366.866957066307 & 65.4722587321814 \tabularnewline
Winsorized Mean ( 30 / 40 ) & 24139.1083333333 & 351.767579835758 & 68.6223225704996 \tabularnewline
Winsorized Mean ( 31 / 40 ) & 24090.2833333333 & 340.191473557376 & 70.8138951321197 \tabularnewline
Winsorized Mean ( 32 / 40 ) & 23976.95 & 325.470853671471 & 73.66850127908 \tabularnewline
Winsorized Mean ( 33 / 40 ) & 23949.175 & 308.993625495719 & 77.5070196402216 \tabularnewline
Winsorized Mean ( 34 / 40 ) & 23928.2083333333 & 296.330638281448 & 80.7483440527904 \tabularnewline
Winsorized Mean ( 35 / 40 ) & 23801.9166666667 & 272.827320846844 & 87.2416904318327 \tabularnewline
Winsorized Mean ( 36 / 40 ) & 23809.4166666667 & 270.334193938228 & 88.0740106155685 \tabularnewline
Winsorized Mean ( 37 / 40 ) & 23782.2833333333 & 267.128013349168 & 89.029536944323 \tabularnewline
Winsorized Mean ( 38 / 40 ) & 23799.7 & 263.508017513922 & 90.3186939985329 \tabularnewline
Winsorized Mean ( 39 / 40 ) & 23751.925 & 257.92011774502 & 92.0902378909472 \tabularnewline
Winsorized Mean ( 40 / 40 ) & 23735.925 & 256.012581799344 & 92.713900360583 \tabularnewline
Trimmed Mean ( 1 / 40 ) & 24285.3135593220 & 598.151793540059 & 40.6005863755646 \tabularnewline
Trimmed Mean ( 2 / 40 ) & 24257.6120689655 & 579.03271869651 & 41.8933357057491 \tabularnewline
Trimmed Mean ( 3 / 40 ) & 24234.0701754386 & 562.218826580214 & 43.104337723527 \tabularnewline
Trimmed Mean ( 4 / 40 ) & 24225.9553571429 & 547.334435658485 & 44.2617050542365 \tabularnewline
Trimmed Mean ( 5 / 40 ) & 24207.8818181818 & 533.350103965306 & 45.3883511753408 \tabularnewline
Trimmed Mean ( 6 / 40 ) & 24192.3055555556 & 520.518002813294 & 46.4773656718904 \tabularnewline
Trimmed Mean ( 7 / 40 ) & 24174.7547169811 & 508.077320029854 & 47.5808578024318 \tabularnewline
Trimmed Mean ( 8 / 40 ) & 24159.6153846154 & 495.523201235423 & 48.7557703138448 \tabularnewline
Trimmed Mean ( 9 / 40 ) & 24144.3529411765 & 483.939667475574 & 49.8912458801388 \tabularnewline
Trimmed Mean ( 10 / 40 ) & 24121.54 & 473.588403407879 & 50.9335529046417 \tabularnewline
Trimmed Mean ( 11 / 40 ) & 24100.0510204082 & 462.540897793699 & 52.103611021997 \tabularnewline
Trimmed Mean ( 12 / 40 ) & 24065.9166666667 & 453.366240662574 & 53.0827276232466 \tabularnewline
Trimmed Mean ( 13 / 40 ) & 24046.7127659574 & 448.199196455238 & 53.6518426542048 \tabularnewline
Trimmed Mean ( 14 / 40 ) & 24032.6739130435 & 443.60233331927 & 54.1761665977231 \tabularnewline
Trimmed Mean ( 15 / 40 ) & 24018.5333333333 & 438.536746980153 & 54.7697165601959 \tabularnewline
Trimmed Mean ( 16 / 40 ) & 24003.6931818182 & 432.798336760316 & 55.4616114320038 \tabularnewline
Trimmed Mean ( 17 / 40 ) & 23990.9534883721 & 427.357625160744 & 56.1378856393361 \tabularnewline
Trimmed Mean ( 18 / 40 ) & 23976.2380952381 & 421.543737549902 & 56.877225207028 \tabularnewline
Trimmed Mean ( 19 / 40 ) & 23964.5243902439 & 416.017491838614 & 57.6046076436144 \tabularnewline
Trimmed Mean ( 20 / 40 ) & 23955.875 & 411.251053776881 & 58.251218519666 \tabularnewline
Trimmed Mean ( 21 / 40 ) & 23950.0256410256 & 406.489524167837 & 58.919170647893 \tabularnewline
Trimmed Mean ( 22 / 40 ) & 23944.75 & 401.494519909729 & 59.6390456472075 \tabularnewline
Trimmed Mean ( 23 / 40 ) & 23939.6351351351 & 396.043258164778 & 60.4470209796497 \tabularnewline
Trimmed Mean ( 24 / 40 ) & 23934.8472222222 & 389.980826271044 & 61.3744205095536 \tabularnewline
Trimmed Mean ( 25 / 40 ) & 23926.6428571429 & 383.760683403850 & 62.3478222024212 \tabularnewline
Trimmed Mean ( 26 / 40 ) & 23918.1470588235 & 377.729088611271 & 63.3209032080613 \tabularnewline
Trimmed Mean ( 27 / 40 ) & 23912.0909090909 & 371.446908633603 & 64.375528112627 \tabularnewline
Trimmed Mean ( 28 / 40 ) & 23906.34375 & 364.007424878179 & 65.6754288954425 \tabularnewline
Trimmed Mean ( 29 / 40 ) & 23896.6935483871 & 356.420260668605 & 67.0463949034758 \tabularnewline
Trimmed Mean ( 30 / 40 ) & 23888.2166666667 & 348.796797149152 & 68.4874885948326 \tabularnewline
Trimmed Mean ( 31 / 40 ) & 23870.9137931034 & 341.635765900376 & 69.872408499713 \tabularnewline
Trimmed Mean ( 32 / 40 ) & 23855.75 & 334.584999052422 & 71.2995205031961 \tabularnewline
Trimmed Mean ( 33 / 40 ) & 23847.3333333333 & 328.178858828917 & 72.6656598734936 \tabularnewline
Trimmed Mean ( 34 / 40 ) & 23840.2115384615 & 322.734630979677 & 73.869393768166 \tabularnewline
Trimmed Mean ( 35 / 40 ) & 23834 & 317.798632174912 & 74.9971761580211 \tabularnewline
Trimmed Mean ( 36 / 40 ) & 23836.2916666667 & 315.200521505577 & 75.6226276302177 \tabularnewline
Trimmed Mean ( 37 / 40 ) & 23838.2391304348 & 311.898887655219 & 76.4293816808548 \tabularnewline
Trimmed Mean ( 38 / 40 ) & 23842.3636363636 & 307.811424814291 & 77.4576955704234 \tabularnewline
Trimmed Mean ( 39 / 40 ) & 23845.5714285714 & 302.794520512779 & 78.7516609884131 \tabularnewline
Trimmed Mean ( 40 / 40 ) & 23852.775 & 296.931245791958 & 80.3309700074886 \tabularnewline
Median & 23906.5 &  &  \tabularnewline
Midrange & 26248 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 23810.8524590164 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 23888.2166666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 23810.8524590164 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 23888.2166666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 23888.2166666667 &  &  \tabularnewline
Midmean - Closest Observation & 23810.8524590164 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 23888.2166666667 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 23896.6935483871 &  &  \tabularnewline
Number of observations & 120 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74324&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]24318.025[/C][C]621.571816360674[/C][C]39.123435715575[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]23340.8604743187[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]22310.8389704114[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]25245.6366749781[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 40 )[/C][C]24312.0916666667[/C][C]615.303189822366[/C][C]39.5123770993051[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 40 )[/C][C]24302.3416666667[/C][C]607.709094688341[/C][C]39.9900904545948[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 40 )[/C][C]24256.7916666667[/C][C]598.460518214996[/C][C]40.5319831941736[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 40 )[/C][C]24292.225[/C][C]590.428842683061[/C][C]41.1433575799073[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 40 )[/C][C]24277.975[/C][C]580.292882738236[/C][C]41.837450918645[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 40 )[/C][C]24285.325[/C][C]572.282415707561[/C][C]42.4359098470185[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 40 )[/C][C]24266.6[/C][C]565.835205221262[/C][C]42.8863382413805[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 40 )[/C][C]24263.4[/C][C]553.143600245901[/C][C]43.86455884008[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 40 )[/C][C]24315.45[/C][C]538.384812974639[/C][C]45.1636996698594[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 40 )[/C][C]24297.0333333333[/C][C]534.723549079562[/C][C]45.4384950413286[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 40 )[/C][C]24400.4333333333[/C][C]514.026197810463[/C][C]47.4692407454503[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 40 )[/C][C]24246.4333333333[/C][C]480.081445986594[/C][C]50.5048331611849[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 40 )[/C][C]24186.6333333333[/C][C]470.855567299325[/C][C]51.3674150059646[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 40 )[/C][C]24181.15[/C][C]469.143831553687[/C][C]51.5431481213727[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 40 )[/C][C]24181.775[/C][C]468.350507295363[/C][C]51.6317899165846[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 40 )[/C][C]24149.775[/C][C]459.541235651008[/C][C]52.551921626333[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 40 )[/C][C]24166.0666666667[/C][C]455.702504394777[/C][C]53.0303573792334[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 40 )[/C][C]24120.3166666667[/C][C]446.361788638106[/C][C]54.0375930033351[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 40 )[/C][C]24074.0833333333[/C][C]433.240390794941[/C][C]55.5674951939741[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 40 )[/C][C]24031.9166666667[/C][C]426.533246260749[/C][C]56.3424231929049[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 40 )[/C][C]24020.1916666667[/C][C]421.469172641145[/C][C]56.9915742974596[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 40 )[/C][C]24014.1416666667[/C][C]417.718985876727[/C][C]57.4887483657577[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 40 )[/C][C]24005.7083333333[/C][C]414.479672354308[/C][C]57.9176976206752[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 40 )[/C][C]24049.7083333333[/C][C]406.78522530105[/C][C]59.1213909392477[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 40 )[/C][C]24047[/C][C]396.184662897046[/C][C]60.6964434820864[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 40 )[/C][C]24004.75[/C][C]388.99532578219[/C][C]61.7096103962981[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 40 )[/C][C]23994.85[/C][C]387.820662597463[/C][C]61.8709942871336[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 40 )[/C][C]24045.95[/C][C]377.786835922533[/C][C]63.6495179650219[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 40 )[/C][C]24019.6083333333[/C][C]366.866957066307[/C][C]65.4722587321814[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 40 )[/C][C]24139.1083333333[/C][C]351.767579835758[/C][C]68.6223225704996[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 40 )[/C][C]24090.2833333333[/C][C]340.191473557376[/C][C]70.8138951321197[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 40 )[/C][C]23976.95[/C][C]325.470853671471[/C][C]73.66850127908[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 40 )[/C][C]23949.175[/C][C]308.993625495719[/C][C]77.5070196402216[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 40 )[/C][C]23928.2083333333[/C][C]296.330638281448[/C][C]80.7483440527904[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 40 )[/C][C]23801.9166666667[/C][C]272.827320846844[/C][C]87.2416904318327[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 40 )[/C][C]23809.4166666667[/C][C]270.334193938228[/C][C]88.0740106155685[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 40 )[/C][C]23782.2833333333[/C][C]267.128013349168[/C][C]89.029536944323[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 40 )[/C][C]23799.7[/C][C]263.508017513922[/C][C]90.3186939985329[/C][/ROW]
[ROW][C]Winsorized Mean ( 39 / 40 )[/C][C]23751.925[/C][C]257.92011774502[/C][C]92.0902378909472[/C][/ROW]
[ROW][C]Winsorized Mean ( 40 / 40 )[/C][C]23735.925[/C][C]256.012581799344[/C][C]92.713900360583[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 40 )[/C][C]24285.3135593220[/C][C]598.151793540059[/C][C]40.6005863755646[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 40 )[/C][C]24257.6120689655[/C][C]579.03271869651[/C][C]41.8933357057491[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 40 )[/C][C]24234.0701754386[/C][C]562.218826580214[/C][C]43.104337723527[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 40 )[/C][C]24225.9553571429[/C][C]547.334435658485[/C][C]44.2617050542365[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 40 )[/C][C]24207.8818181818[/C][C]533.350103965306[/C][C]45.3883511753408[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 40 )[/C][C]24192.3055555556[/C][C]520.518002813294[/C][C]46.4773656718904[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 40 )[/C][C]24174.7547169811[/C][C]508.077320029854[/C][C]47.5808578024318[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 40 )[/C][C]24159.6153846154[/C][C]495.523201235423[/C][C]48.7557703138448[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 40 )[/C][C]24144.3529411765[/C][C]483.939667475574[/C][C]49.8912458801388[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 40 )[/C][C]24121.54[/C][C]473.588403407879[/C][C]50.9335529046417[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 40 )[/C][C]24100.0510204082[/C][C]462.540897793699[/C][C]52.103611021997[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 40 )[/C][C]24065.9166666667[/C][C]453.366240662574[/C][C]53.0827276232466[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 40 )[/C][C]24046.7127659574[/C][C]448.199196455238[/C][C]53.6518426542048[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 40 )[/C][C]24032.6739130435[/C][C]443.60233331927[/C][C]54.1761665977231[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 40 )[/C][C]24018.5333333333[/C][C]438.536746980153[/C][C]54.7697165601959[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 40 )[/C][C]24003.6931818182[/C][C]432.798336760316[/C][C]55.4616114320038[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 40 )[/C][C]23990.9534883721[/C][C]427.357625160744[/C][C]56.1378856393361[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 40 )[/C][C]23976.2380952381[/C][C]421.543737549902[/C][C]56.877225207028[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 40 )[/C][C]23964.5243902439[/C][C]416.017491838614[/C][C]57.6046076436144[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 40 )[/C][C]23955.875[/C][C]411.251053776881[/C][C]58.251218519666[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 40 )[/C][C]23950.0256410256[/C][C]406.489524167837[/C][C]58.919170647893[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 40 )[/C][C]23944.75[/C][C]401.494519909729[/C][C]59.6390456472075[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 40 )[/C][C]23939.6351351351[/C][C]396.043258164778[/C][C]60.4470209796497[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 40 )[/C][C]23934.8472222222[/C][C]389.980826271044[/C][C]61.3744205095536[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 40 )[/C][C]23926.6428571429[/C][C]383.760683403850[/C][C]62.3478222024212[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 40 )[/C][C]23918.1470588235[/C][C]377.729088611271[/C][C]63.3209032080613[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 40 )[/C][C]23912.0909090909[/C][C]371.446908633603[/C][C]64.375528112627[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 40 )[/C][C]23906.34375[/C][C]364.007424878179[/C][C]65.6754288954425[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 40 )[/C][C]23896.6935483871[/C][C]356.420260668605[/C][C]67.0463949034758[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 40 )[/C][C]23888.2166666667[/C][C]348.796797149152[/C][C]68.4874885948326[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 40 )[/C][C]23870.9137931034[/C][C]341.635765900376[/C][C]69.872408499713[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 40 )[/C][C]23855.75[/C][C]334.584999052422[/C][C]71.2995205031961[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 40 )[/C][C]23847.3333333333[/C][C]328.178858828917[/C][C]72.6656598734936[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 40 )[/C][C]23840.2115384615[/C][C]322.734630979677[/C][C]73.869393768166[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 40 )[/C][C]23834[/C][C]317.798632174912[/C][C]74.9971761580211[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 40 )[/C][C]23836.2916666667[/C][C]315.200521505577[/C][C]75.6226276302177[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 40 )[/C][C]23838.2391304348[/C][C]311.898887655219[/C][C]76.4293816808548[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 40 )[/C][C]23842.3636363636[/C][C]307.811424814291[/C][C]77.4576955704234[/C][/ROW]
[ROW][C]Trimmed Mean ( 39 / 40 )[/C][C]23845.5714285714[/C][C]302.794520512779[/C][C]78.7516609884131[/C][/ROW]
[ROW][C]Trimmed Mean ( 40 / 40 )[/C][C]23852.775[/C][C]296.931245791958[/C][C]80.3309700074886[/C][/ROW]
[ROW][C]Median[/C][C]23906.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]26248[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]23810.8524590164[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]23888.2166666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]23810.8524590164[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]23888.2166666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]23888.2166666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]23810.8524590164[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]23888.2166666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]23896.6935483871[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]120[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74324&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74324&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 Mean24318.025621.57181636067439.123435715575
Geometric Mean23340.8604743187
Harmonic Mean22310.8389704114
Quadratic Mean25245.6366749781
Winsorized Mean ( 1 / 40 )24312.0916666667615.30318982236639.5123770993051
Winsorized Mean ( 2 / 40 )24302.3416666667607.70909468834139.9900904545948
Winsorized Mean ( 3 / 40 )24256.7916666667598.46051821499640.5319831941736
Winsorized Mean ( 4 / 40 )24292.225590.42884268306141.1433575799073
Winsorized Mean ( 5 / 40 )24277.975580.29288273823641.837450918645
Winsorized Mean ( 6 / 40 )24285.325572.28241570756142.4359098470185
Winsorized Mean ( 7 / 40 )24266.6565.83520522126242.8863382413805
Winsorized Mean ( 8 / 40 )24263.4553.14360024590143.86455884008
Winsorized Mean ( 9 / 40 )24315.45538.38481297463945.1636996698594
Winsorized Mean ( 10 / 40 )24297.0333333333534.72354907956245.4384950413286
Winsorized Mean ( 11 / 40 )24400.4333333333514.02619781046347.4692407454503
Winsorized Mean ( 12 / 40 )24246.4333333333480.08144598659450.5048331611849
Winsorized Mean ( 13 / 40 )24186.6333333333470.85556729932551.3674150059646
Winsorized Mean ( 14 / 40 )24181.15469.14383155368751.5431481213727
Winsorized Mean ( 15 / 40 )24181.775468.35050729536351.6317899165846
Winsorized Mean ( 16 / 40 )24149.775459.54123565100852.551921626333
Winsorized Mean ( 17 / 40 )24166.0666666667455.70250439477753.0303573792334
Winsorized Mean ( 18 / 40 )24120.3166666667446.36178863810654.0375930033351
Winsorized Mean ( 19 / 40 )24074.0833333333433.24039079494155.5674951939741
Winsorized Mean ( 20 / 40 )24031.9166666667426.53324626074956.3424231929049
Winsorized Mean ( 21 / 40 )24020.1916666667421.46917264114556.9915742974596
Winsorized Mean ( 22 / 40 )24014.1416666667417.71898587672757.4887483657577
Winsorized Mean ( 23 / 40 )24005.7083333333414.47967235430857.9176976206752
Winsorized Mean ( 24 / 40 )24049.7083333333406.7852253010559.1213909392477
Winsorized Mean ( 25 / 40 )24047396.18466289704660.6964434820864
Winsorized Mean ( 26 / 40 )24004.75388.9953257821961.7096103962981
Winsorized Mean ( 27 / 40 )23994.85387.82066259746361.8709942871336
Winsorized Mean ( 28 / 40 )24045.95377.78683592253363.6495179650219
Winsorized Mean ( 29 / 40 )24019.6083333333366.86695706630765.4722587321814
Winsorized Mean ( 30 / 40 )24139.1083333333351.76757983575868.6223225704996
Winsorized Mean ( 31 / 40 )24090.2833333333340.19147355737670.8138951321197
Winsorized Mean ( 32 / 40 )23976.95325.47085367147173.66850127908
Winsorized Mean ( 33 / 40 )23949.175308.99362549571977.5070196402216
Winsorized Mean ( 34 / 40 )23928.2083333333296.33063828144880.7483440527904
Winsorized Mean ( 35 / 40 )23801.9166666667272.82732084684487.2416904318327
Winsorized Mean ( 36 / 40 )23809.4166666667270.33419393822888.0740106155685
Winsorized Mean ( 37 / 40 )23782.2833333333267.12801334916889.029536944323
Winsorized Mean ( 38 / 40 )23799.7263.50801751392290.3186939985329
Winsorized Mean ( 39 / 40 )23751.925257.9201177450292.0902378909472
Winsorized Mean ( 40 / 40 )23735.925256.01258179934492.713900360583
Trimmed Mean ( 1 / 40 )24285.3135593220598.15179354005940.6005863755646
Trimmed Mean ( 2 / 40 )24257.6120689655579.0327186965141.8933357057491
Trimmed Mean ( 3 / 40 )24234.0701754386562.21882658021443.104337723527
Trimmed Mean ( 4 / 40 )24225.9553571429547.33443565848544.2617050542365
Trimmed Mean ( 5 / 40 )24207.8818181818533.35010396530645.3883511753408
Trimmed Mean ( 6 / 40 )24192.3055555556520.51800281329446.4773656718904
Trimmed Mean ( 7 / 40 )24174.7547169811508.07732002985447.5808578024318
Trimmed Mean ( 8 / 40 )24159.6153846154495.52320123542348.7557703138448
Trimmed Mean ( 9 / 40 )24144.3529411765483.93966747557449.8912458801388
Trimmed Mean ( 10 / 40 )24121.54473.58840340787950.9335529046417
Trimmed Mean ( 11 / 40 )24100.0510204082462.54089779369952.103611021997
Trimmed Mean ( 12 / 40 )24065.9166666667453.36624066257453.0827276232466
Trimmed Mean ( 13 / 40 )24046.7127659574448.19919645523853.6518426542048
Trimmed Mean ( 14 / 40 )24032.6739130435443.6023333192754.1761665977231
Trimmed Mean ( 15 / 40 )24018.5333333333438.53674698015354.7697165601959
Trimmed Mean ( 16 / 40 )24003.6931818182432.79833676031655.4616114320038
Trimmed Mean ( 17 / 40 )23990.9534883721427.35762516074456.1378856393361
Trimmed Mean ( 18 / 40 )23976.2380952381421.54373754990256.877225207028
Trimmed Mean ( 19 / 40 )23964.5243902439416.01749183861457.6046076436144
Trimmed Mean ( 20 / 40 )23955.875411.25105377688158.251218519666
Trimmed Mean ( 21 / 40 )23950.0256410256406.48952416783758.919170647893
Trimmed Mean ( 22 / 40 )23944.75401.49451990972959.6390456472075
Trimmed Mean ( 23 / 40 )23939.6351351351396.04325816477860.4470209796497
Trimmed Mean ( 24 / 40 )23934.8472222222389.98082627104461.3744205095536
Trimmed Mean ( 25 / 40 )23926.6428571429383.76068340385062.3478222024212
Trimmed Mean ( 26 / 40 )23918.1470588235377.72908861127163.3209032080613
Trimmed Mean ( 27 / 40 )23912.0909090909371.44690863360364.375528112627
Trimmed Mean ( 28 / 40 )23906.34375364.00742487817965.6754288954425
Trimmed Mean ( 29 / 40 )23896.6935483871356.42026066860567.0463949034758
Trimmed Mean ( 30 / 40 )23888.2166666667348.79679714915268.4874885948326
Trimmed Mean ( 31 / 40 )23870.9137931034341.63576590037669.872408499713
Trimmed Mean ( 32 / 40 )23855.75334.58499905242271.2995205031961
Trimmed Mean ( 33 / 40 )23847.3333333333328.17885882891772.6656598734936
Trimmed Mean ( 34 / 40 )23840.2115384615322.73463097967773.869393768166
Trimmed Mean ( 35 / 40 )23834317.79863217491274.9971761580211
Trimmed Mean ( 36 / 40 )23836.2916666667315.20052150557775.6226276302177
Trimmed Mean ( 37 / 40 )23838.2391304348311.89888765521976.4293816808548
Trimmed Mean ( 38 / 40 )23842.3636363636307.81142481429177.4576955704234
Trimmed Mean ( 39 / 40 )23845.5714285714302.79452051277978.7516609884131
Trimmed Mean ( 40 / 40 )23852.775296.93124579195880.3309700074886
Median23906.5
Midrange26248
Midmean - Weighted Average at Xnp23810.8524590164
Midmean - Weighted Average at X(n+1)p23888.2166666667
Midmean - Empirical Distribution Function23810.8524590164
Midmean - Empirical Distribution Function - Averaging23888.2166666667
Midmean - Empirical Distribution Function - Interpolation23888.2166666667
Midmean - Closest Observation23810.8524590164
Midmean - True Basic - Statistics Graphics Toolkit23888.2166666667
Midmean - MS Excel (old versions)23896.6935483871
Number of observations120



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