Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationSun, 02 May 2010 12:59:53 +0000
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/May/02/t1272805706201a870bwiegtyn.htm/, Retrieved Thu, 28 Mar 2024 19:03:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=75176, Retrieved Thu, 28 Mar 2024 19:03:21 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W51
Estimated Impact219
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [IKO - Opgave 5 - ...] [2010-03-16 18:01:34] [b39c10f74e49ba87352399c34734b08b]
-    D    [Central Tendency] [Katleen van den A...] [2010-05-02 12:59:53] [8b7f9564fd63910ef0a86e3a376c4af8] [Current]
Feedback Forum

Post a new message
Dataseries X:
285708
905858
225733
405481
845758
805651
395747
695853
175625
405534
965639
575634
576023
566089
336141
26271
586226
376484
176583
287042
997142
207694
418003
838258
848182
658215
208304
398599
438399
578393
988390
958304
318251
78307
408520
748640
258520
518618
388588
238842
328957
499266
109011
168896
798921
878732
897576
518317
228370
758167
658491
518170
398212
498286
78136
647990
357927
698061
407932
637934
397784
217980
47737
467672
67651
167524
687406
367345
157553
887453
227566
817279
697059
997185
847075
547122
996977
346998
967154
547097
586853
46728
236883
36784
277085
446998
586725
496845
86765
146966
197113
657096
337200
17273
457284
507696
547628
157435
67793
267631
518397
918560
918895
429509
289569
9010172
1810617
7111400
1611919
9712714
2913310
1013816
6714518
2414721
9114534
8214993
6215159
515612
9415340
3715267




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=75176&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 Mean1078350.175182658.4860909185.90364126013425
Geometric Mean493802.014710596
Harmonic Mean248181.579138468
Quadratic Mean2265649.94699195
Winsorized Mean ( 1 / 40 )1075947.04166667181684.6784004005.92205711092202
Winsorized Mean ( 2 / 40 )1071108.825179766.6564852075.95832867975794
Winsorized Mean ( 3 / 40 )1068748.375178777.2090380855.97810191103456
Winsorized Mean ( 4 / 40 )1042276.04166667169098.2220657526.1637315220345
Winsorized Mean ( 5 / 40 )997122.75153122.6229032876.51192313123966
Winsorized Mean ( 6 / 40 )977285.75146526.8032214156.66967222729371
Winsorized Mean ( 7 / 40 )948759.816666667136994.7726076196.92551838736293
Winsorized Mean ( 8 / 40 )782111.7585346.0204527039.16400959120795
Winsorized Mean ( 9 / 40 )722599.32568461.81728428210.5547786147637
Winsorized Mean ( 10 / 40 )682904.07557433.583971535611.8903266656396
Winsorized Mean ( 11 / 40 )631007.08333333343736.30332162914.4275358320300
Winsorized Mean ( 12 / 40 )612184.18333333339251.920645421715.5962860738316
Winsorized Mean ( 13 / 40 )547402.47527245.49864229120.0914830808165
Winsorized Mean ( 14 / 40 )546625.47526830.004996517620.3736628103852
Winsorized Mean ( 15 / 40 )546791.626808.907276879220.3958928408682
Winsorized Mean ( 16 / 40 )547666.826700.131754274220.51176395084
Winsorized Mean ( 17 / 40 )546586.02526513.038877153720.6157441073642
Winsorized Mean ( 18 / 40 )546480.12525714.556108884521.2517813912871
Winsorized Mean ( 19 / 40 )547915.57525491.96172007521.4936606690616
Winsorized Mean ( 20 / 40 )546794.74166666725312.871471528121.6014505616915
Winsorized Mean ( 21 / 40 )541591.46666666724199.275936438522.3804822958011
Winsorized Mean ( 22 / 40 )542951.43333333324032.52058858722.5923631827108
Winsorized Mean ( 23 / 40 )540868.20833333323675.91799527322.8446562638593
Winsorized Mean ( 24 / 40 )539372.60833333323444.383795396323.0064740895109
Winsorized Mean ( 25 / 40 )539037.19166666722977.769137647823.4590742224616
Winsorized Mean ( 26 / 40 )537572.09166666722691.081048931723.6908982215273
Winsorized Mean ( 27 / 40 )535125.89166666721346.892353201825.0680934167171
Winsorized Mean ( 28 / 40 )536993.49166666721085.152913132225.4678490537395
Winsorized Mean ( 29 / 40 )538959.93333333320802.268942477025.9087090366767
Winsorized Mean ( 30 / 40 )539240.68333333320343.354988850326.5069691616196
Winsorized Mean ( 31 / 40 )534165.72519644.094634729327.1921783585604
Winsorized Mean ( 32 / 40 )531738.79166666719199.094170322527.6960353936186
Winsorized Mean ( 33 / 40 )537775.59166666718157.139809429629.6178581709980
Winsorized Mean ( 34 / 40 )529261.99166666716475.097712323332.124968295076
Winsorized Mean ( 35 / 40 )528578.61666666715938.315753641333.1640196390203
Winsorized Mean ( 36 / 40 )513722.61666666714194.359091699636.1920262371744
Winsorized Mean ( 37 / 40 )516434.71666666713847.362432175937.2948075271484
Winsorized Mean ( 38 / 40 )519513.66666666713452.761245918338.6176233391706
Winsorized Mean ( 39 / 40 )519829.24166666712843.848621915840.4730121764023
Winsorized Mean ( 40 / 40 )513237.24166666711498.809094383444.6339475204747
Trimmed Mean ( 1 / 40 )1014169.77966102170272.9123812035.95614279146479
Trimmed Mean ( 2 / 40 )950262.26724138156863.4948149656.05789300029493
Trimmed Mean ( 3 / 40 )886658.815789474142148.2140078286.23756564215885
Trimmed Mean ( 4 / 40 )821626.830357143124637.3613929066.59213915614799
Trimmed Mean ( 5 / 40 )761449.772727273107074.7771353717.11138321366386
Trimmed Mean ( 6 / 40 )70907891318.3685088227.7649000040063
Trimmed Mean ( 7 / 40 )658472.76415094373188.2009660428.99697977897371
Trimmed Mean ( 8 / 40 )610623.2551277.844435120211.9081302407826
Trimmed Mean ( 9 / 40 )585404.35294117742007.563466447613.9356893053022
Trimmed Mean ( 10 / 40 )567111.6935502.206096641715.9739845027164
Trimmed Mean ( 11 / 40 )552933.03061224530485.944272394818.1373102854134
Trimmed Mean ( 12 / 40 )544060.97916666727863.768814029919.5257498293885
Trimmed Mean ( 13 / 40 )536813.82978723425726.541525194320.8661482641001
Trimmed Mean ( 14 / 40 )535751.42391304325430.977445542621.0668829013863
Trimmed Mean ( 15 / 40 )534715.825148.381828073721.2624336490344
Trimmed Mean ( 16 / 40 )53361824824.580770409721.495549307969
Trimmed Mean ( 17 / 40 )532392.81395348824464.428697819121.7619148409114
Trimmed Mean ( 18 / 40 )531200.10714285724073.306460369922.0659388031026
Trimmed Mean ( 19 / 40 )529957.82926829323725.080825472222.3374509518766
Trimmed Mean ( 20 / 40 )528540.112523346.633002819722.6388153030959
Trimmed Mean ( 21 / 40 )527135.9102564122928.353264157222.9905699804641
Trimmed Mean ( 22 / 40 )526049.02631578922588.105142619323.2887629570680
Trimmed Mean ( 23 / 40 )524803.14864864922206.574384300723.6327827771431
Trimmed Mean ( 24 / 40 )523639.01388888921803.685898471224.0160776635296
Trimmed Mean ( 25 / 40 )522515.18571428621357.391672716524.4653089535173
Trimmed Mean ( 26 / 40 )521348.92647058820890.457849887524.9563188234956
Trimmed Mean ( 27 / 40 )520214.43939393920373.389732094625.5340150183470
Trimmed Mean ( 28 / 40 )519178.92187519948.821311493826.0255437535985
Trimmed Mean ( 29 / 40 )517947.519469.906881206526.6024641597005
Trimmed Mean ( 30 / 40 )516498.36666666718926.484172343527.2897154042695
Trimmed Mean ( 31 / 40 )514929.93103448318332.923456654528.0877151018472
Trimmed Mean ( 32 / 40 )513600.26785714317725.236720975128.9756507031229
Trimmed Mean ( 33 / 40 )512340.64814814817051.300222450530.0470135100652
Trimmed Mean ( 34 / 40 )510561.98076923116387.026448732031.1564750546148
Trimmed Mean ( 35 / 40 )509241.9815879.368202295532.0694106662496
Trimmed Mean ( 36 / 40 )507860.79166666715333.340891628933.1213396516821
Trimmed Mean ( 37 / 40 )507436.0217391314989.556183240433.8526381659309
Trimmed Mean ( 38 / 40 )506772.72727272714601.562983556034.7067452877097
Trimmed Mean ( 39 / 40 )505814.76190476214163.475020816235.7126172186813
Trimmed Mean ( 40 / 40 )504736.72513710.476791723736.8139440128503
Median511654
Midrange4864993.5
Midmean - Weighted Average at Xnp512573.557377049
Midmean - Weighted Average at X(n+1)p516498.366666667
Midmean - Empirical Distribution Function512573.557377049
Midmean - Empirical Distribution Function - Averaging516498.366666667
Midmean - Empirical Distribution Function - Interpolation516498.366666667
Midmean - Closest Observation512573.557377049
Midmean - True Basic - Statistics Graphics Toolkit516498.366666667
Midmean - MS Excel (old versions)517947.5
Number of observations120

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 1078350.175 & 182658.486090918 & 5.90364126013425 \tabularnewline
Geometric Mean & 493802.014710596 &  &  \tabularnewline
Harmonic Mean & 248181.579138468 &  &  \tabularnewline
Quadratic Mean & 2265649.94699195 &  &  \tabularnewline
Winsorized Mean ( 1 / 40 ) & 1075947.04166667 & 181684.678400400 & 5.92205711092202 \tabularnewline
Winsorized Mean ( 2 / 40 ) & 1071108.825 & 179766.656485207 & 5.95832867975794 \tabularnewline
Winsorized Mean ( 3 / 40 ) & 1068748.375 & 178777.209038085 & 5.97810191103456 \tabularnewline
Winsorized Mean ( 4 / 40 ) & 1042276.04166667 & 169098.222065752 & 6.1637315220345 \tabularnewline
Winsorized Mean ( 5 / 40 ) & 997122.75 & 153122.622903287 & 6.51192313123966 \tabularnewline
Winsorized Mean ( 6 / 40 ) & 977285.75 & 146526.803221415 & 6.66967222729371 \tabularnewline
Winsorized Mean ( 7 / 40 ) & 948759.816666667 & 136994.772607619 & 6.92551838736293 \tabularnewline
Winsorized Mean ( 8 / 40 ) & 782111.75 & 85346.020452703 & 9.16400959120795 \tabularnewline
Winsorized Mean ( 9 / 40 ) & 722599.325 & 68461.817284282 & 10.5547786147637 \tabularnewline
Winsorized Mean ( 10 / 40 ) & 682904.075 & 57433.5839715356 & 11.8903266656396 \tabularnewline
Winsorized Mean ( 11 / 40 ) & 631007.083333333 & 43736.303321629 & 14.4275358320300 \tabularnewline
Winsorized Mean ( 12 / 40 ) & 612184.183333333 & 39251.9206454217 & 15.5962860738316 \tabularnewline
Winsorized Mean ( 13 / 40 ) & 547402.475 & 27245.498642291 & 20.0914830808165 \tabularnewline
Winsorized Mean ( 14 / 40 ) & 546625.475 & 26830.0049965176 & 20.3736628103852 \tabularnewline
Winsorized Mean ( 15 / 40 ) & 546791.6 & 26808.9072768792 & 20.3958928408682 \tabularnewline
Winsorized Mean ( 16 / 40 ) & 547666.8 & 26700.1317542742 & 20.51176395084 \tabularnewline
Winsorized Mean ( 17 / 40 ) & 546586.025 & 26513.0388771537 & 20.6157441073642 \tabularnewline
Winsorized Mean ( 18 / 40 ) & 546480.125 & 25714.5561088845 & 21.2517813912871 \tabularnewline
Winsorized Mean ( 19 / 40 ) & 547915.575 & 25491.961720075 & 21.4936606690616 \tabularnewline
Winsorized Mean ( 20 / 40 ) & 546794.741666667 & 25312.8714715281 & 21.6014505616915 \tabularnewline
Winsorized Mean ( 21 / 40 ) & 541591.466666667 & 24199.2759364385 & 22.3804822958011 \tabularnewline
Winsorized Mean ( 22 / 40 ) & 542951.433333333 & 24032.520588587 & 22.5923631827108 \tabularnewline
Winsorized Mean ( 23 / 40 ) & 540868.208333333 & 23675.917995273 & 22.8446562638593 \tabularnewline
Winsorized Mean ( 24 / 40 ) & 539372.608333333 & 23444.3837953963 & 23.0064740895109 \tabularnewline
Winsorized Mean ( 25 / 40 ) & 539037.191666667 & 22977.7691376478 & 23.4590742224616 \tabularnewline
Winsorized Mean ( 26 / 40 ) & 537572.091666667 & 22691.0810489317 & 23.6908982215273 \tabularnewline
Winsorized Mean ( 27 / 40 ) & 535125.891666667 & 21346.8923532018 & 25.0680934167171 \tabularnewline
Winsorized Mean ( 28 / 40 ) & 536993.491666667 & 21085.1529131322 & 25.4678490537395 \tabularnewline
Winsorized Mean ( 29 / 40 ) & 538959.933333333 & 20802.2689424770 & 25.9087090366767 \tabularnewline
Winsorized Mean ( 30 / 40 ) & 539240.683333333 & 20343.3549888503 & 26.5069691616196 \tabularnewline
Winsorized Mean ( 31 / 40 ) & 534165.725 & 19644.0946347293 & 27.1921783585604 \tabularnewline
Winsorized Mean ( 32 / 40 ) & 531738.791666667 & 19199.0941703225 & 27.6960353936186 \tabularnewline
Winsorized Mean ( 33 / 40 ) & 537775.591666667 & 18157.1398094296 & 29.6178581709980 \tabularnewline
Winsorized Mean ( 34 / 40 ) & 529261.991666667 & 16475.0977123233 & 32.124968295076 \tabularnewline
Winsorized Mean ( 35 / 40 ) & 528578.616666667 & 15938.3157536413 & 33.1640196390203 \tabularnewline
Winsorized Mean ( 36 / 40 ) & 513722.616666667 & 14194.3590916996 & 36.1920262371744 \tabularnewline
Winsorized Mean ( 37 / 40 ) & 516434.716666667 & 13847.3624321759 & 37.2948075271484 \tabularnewline
Winsorized Mean ( 38 / 40 ) & 519513.666666667 & 13452.7612459183 & 38.6176233391706 \tabularnewline
Winsorized Mean ( 39 / 40 ) & 519829.241666667 & 12843.8486219158 & 40.4730121764023 \tabularnewline
Winsorized Mean ( 40 / 40 ) & 513237.241666667 & 11498.8090943834 & 44.6339475204747 \tabularnewline
Trimmed Mean ( 1 / 40 ) & 1014169.77966102 & 170272.912381203 & 5.95614279146479 \tabularnewline
Trimmed Mean ( 2 / 40 ) & 950262.26724138 & 156863.494814965 & 6.05789300029493 \tabularnewline
Trimmed Mean ( 3 / 40 ) & 886658.815789474 & 142148.214007828 & 6.23756564215885 \tabularnewline
Trimmed Mean ( 4 / 40 ) & 821626.830357143 & 124637.361392906 & 6.59213915614799 \tabularnewline
Trimmed Mean ( 5 / 40 ) & 761449.772727273 & 107074.777135371 & 7.11138321366386 \tabularnewline
Trimmed Mean ( 6 / 40 ) & 709078 & 91318.368508822 & 7.7649000040063 \tabularnewline
Trimmed Mean ( 7 / 40 ) & 658472.764150943 & 73188.200966042 & 8.99697977897371 \tabularnewline
Trimmed Mean ( 8 / 40 ) & 610623.25 & 51277.8444351202 & 11.9081302407826 \tabularnewline
Trimmed Mean ( 9 / 40 ) & 585404.352941177 & 42007.5634664476 & 13.9356893053022 \tabularnewline
Trimmed Mean ( 10 / 40 ) & 567111.69 & 35502.2060966417 & 15.9739845027164 \tabularnewline
Trimmed Mean ( 11 / 40 ) & 552933.030612245 & 30485.9442723948 & 18.1373102854134 \tabularnewline
Trimmed Mean ( 12 / 40 ) & 544060.979166667 & 27863.7688140299 & 19.5257498293885 \tabularnewline
Trimmed Mean ( 13 / 40 ) & 536813.829787234 & 25726.5415251943 & 20.8661482641001 \tabularnewline
Trimmed Mean ( 14 / 40 ) & 535751.423913043 & 25430.9774455426 & 21.0668829013863 \tabularnewline
Trimmed Mean ( 15 / 40 ) & 534715.8 & 25148.3818280737 & 21.2624336490344 \tabularnewline
Trimmed Mean ( 16 / 40 ) & 533618 & 24824.5807704097 & 21.495549307969 \tabularnewline
Trimmed Mean ( 17 / 40 ) & 532392.813953488 & 24464.4286978191 & 21.7619148409114 \tabularnewline
Trimmed Mean ( 18 / 40 ) & 531200.107142857 & 24073.3064603699 & 22.0659388031026 \tabularnewline
Trimmed Mean ( 19 / 40 ) & 529957.829268293 & 23725.0808254722 & 22.3374509518766 \tabularnewline
Trimmed Mean ( 20 / 40 ) & 528540.1125 & 23346.6330028197 & 22.6388153030959 \tabularnewline
Trimmed Mean ( 21 / 40 ) & 527135.91025641 & 22928.3532641572 & 22.9905699804641 \tabularnewline
Trimmed Mean ( 22 / 40 ) & 526049.026315789 & 22588.1051426193 & 23.2887629570680 \tabularnewline
Trimmed Mean ( 23 / 40 ) & 524803.148648649 & 22206.5743843007 & 23.6327827771431 \tabularnewline
Trimmed Mean ( 24 / 40 ) & 523639.013888889 & 21803.6858984712 & 24.0160776635296 \tabularnewline
Trimmed Mean ( 25 / 40 ) & 522515.185714286 & 21357.3916727165 & 24.4653089535173 \tabularnewline
Trimmed Mean ( 26 / 40 ) & 521348.926470588 & 20890.4578498875 & 24.9563188234956 \tabularnewline
Trimmed Mean ( 27 / 40 ) & 520214.439393939 & 20373.3897320946 & 25.5340150183470 \tabularnewline
Trimmed Mean ( 28 / 40 ) & 519178.921875 & 19948.8213114938 & 26.0255437535985 \tabularnewline
Trimmed Mean ( 29 / 40 ) & 517947.5 & 19469.9068812065 & 26.6024641597005 \tabularnewline
Trimmed Mean ( 30 / 40 ) & 516498.366666667 & 18926.4841723435 & 27.2897154042695 \tabularnewline
Trimmed Mean ( 31 / 40 ) & 514929.931034483 & 18332.9234566545 & 28.0877151018472 \tabularnewline
Trimmed Mean ( 32 / 40 ) & 513600.267857143 & 17725.2367209751 & 28.9756507031229 \tabularnewline
Trimmed Mean ( 33 / 40 ) & 512340.648148148 & 17051.3002224505 & 30.0470135100652 \tabularnewline
Trimmed Mean ( 34 / 40 ) & 510561.980769231 & 16387.0264487320 & 31.1564750546148 \tabularnewline
Trimmed Mean ( 35 / 40 ) & 509241.98 & 15879.3682022955 & 32.0694106662496 \tabularnewline
Trimmed Mean ( 36 / 40 ) & 507860.791666667 & 15333.3408916289 & 33.1213396516821 \tabularnewline
Trimmed Mean ( 37 / 40 ) & 507436.02173913 & 14989.5561832404 & 33.8526381659309 \tabularnewline
Trimmed Mean ( 38 / 40 ) & 506772.727272727 & 14601.5629835560 & 34.7067452877097 \tabularnewline
Trimmed Mean ( 39 / 40 ) & 505814.761904762 & 14163.4750208162 & 35.7126172186813 \tabularnewline
Trimmed Mean ( 40 / 40 ) & 504736.725 & 13710.4767917237 & 36.8139440128503 \tabularnewline
Median & 511654 &  &  \tabularnewline
Midrange & 4864993.5 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 512573.557377049 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 516498.366666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 512573.557377049 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 516498.366666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 516498.366666667 &  &  \tabularnewline
Midmean - Closest Observation & 512573.557377049 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 516498.366666667 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 517947.5 &  &  \tabularnewline
Number of observations & 120 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=75176&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]1078350.175[/C][C]182658.486090918[/C][C]5.90364126013425[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]493802.014710596[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]248181.579138468[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]2265649.94699195[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 40 )[/C][C]1075947.04166667[/C][C]181684.678400400[/C][C]5.92205711092202[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 40 )[/C][C]1071108.825[/C][C]179766.656485207[/C][C]5.95832867975794[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 40 )[/C][C]1068748.375[/C][C]178777.209038085[/C][C]5.97810191103456[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 40 )[/C][C]1042276.04166667[/C][C]169098.222065752[/C][C]6.1637315220345[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 40 )[/C][C]997122.75[/C][C]153122.622903287[/C][C]6.51192313123966[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 40 )[/C][C]977285.75[/C][C]146526.803221415[/C][C]6.66967222729371[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 40 )[/C][C]948759.816666667[/C][C]136994.772607619[/C][C]6.92551838736293[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 40 )[/C][C]782111.75[/C][C]85346.020452703[/C][C]9.16400959120795[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 40 )[/C][C]722599.325[/C][C]68461.817284282[/C][C]10.5547786147637[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 40 )[/C][C]682904.075[/C][C]57433.5839715356[/C][C]11.8903266656396[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 40 )[/C][C]631007.083333333[/C][C]43736.303321629[/C][C]14.4275358320300[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 40 )[/C][C]612184.183333333[/C][C]39251.9206454217[/C][C]15.5962860738316[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 40 )[/C][C]547402.475[/C][C]27245.498642291[/C][C]20.0914830808165[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 40 )[/C][C]546625.475[/C][C]26830.0049965176[/C][C]20.3736628103852[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 40 )[/C][C]546791.6[/C][C]26808.9072768792[/C][C]20.3958928408682[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 40 )[/C][C]547666.8[/C][C]26700.1317542742[/C][C]20.51176395084[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 40 )[/C][C]546586.025[/C][C]26513.0388771537[/C][C]20.6157441073642[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 40 )[/C][C]546480.125[/C][C]25714.5561088845[/C][C]21.2517813912871[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 40 )[/C][C]547915.575[/C][C]25491.961720075[/C][C]21.4936606690616[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 40 )[/C][C]546794.741666667[/C][C]25312.8714715281[/C][C]21.6014505616915[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 40 )[/C][C]541591.466666667[/C][C]24199.2759364385[/C][C]22.3804822958011[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 40 )[/C][C]542951.433333333[/C][C]24032.520588587[/C][C]22.5923631827108[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 40 )[/C][C]540868.208333333[/C][C]23675.917995273[/C][C]22.8446562638593[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 40 )[/C][C]539372.608333333[/C][C]23444.3837953963[/C][C]23.0064740895109[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 40 )[/C][C]539037.191666667[/C][C]22977.7691376478[/C][C]23.4590742224616[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 40 )[/C][C]537572.091666667[/C][C]22691.0810489317[/C][C]23.6908982215273[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 40 )[/C][C]535125.891666667[/C][C]21346.8923532018[/C][C]25.0680934167171[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 40 )[/C][C]536993.491666667[/C][C]21085.1529131322[/C][C]25.4678490537395[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 40 )[/C][C]538959.933333333[/C][C]20802.2689424770[/C][C]25.9087090366767[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 40 )[/C][C]539240.683333333[/C][C]20343.3549888503[/C][C]26.5069691616196[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 40 )[/C][C]534165.725[/C][C]19644.0946347293[/C][C]27.1921783585604[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 40 )[/C][C]531738.791666667[/C][C]19199.0941703225[/C][C]27.6960353936186[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 40 )[/C][C]537775.591666667[/C][C]18157.1398094296[/C][C]29.6178581709980[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 40 )[/C][C]529261.991666667[/C][C]16475.0977123233[/C][C]32.124968295076[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 40 )[/C][C]528578.616666667[/C][C]15938.3157536413[/C][C]33.1640196390203[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 40 )[/C][C]513722.616666667[/C][C]14194.3590916996[/C][C]36.1920262371744[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 40 )[/C][C]516434.716666667[/C][C]13847.3624321759[/C][C]37.2948075271484[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 40 )[/C][C]519513.666666667[/C][C]13452.7612459183[/C][C]38.6176233391706[/C][/ROW]
[ROW][C]Winsorized Mean ( 39 / 40 )[/C][C]519829.241666667[/C][C]12843.8486219158[/C][C]40.4730121764023[/C][/ROW]
[ROW][C]Winsorized Mean ( 40 / 40 )[/C][C]513237.241666667[/C][C]11498.8090943834[/C][C]44.6339475204747[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 40 )[/C][C]1014169.77966102[/C][C]170272.912381203[/C][C]5.95614279146479[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 40 )[/C][C]950262.26724138[/C][C]156863.494814965[/C][C]6.05789300029493[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 40 )[/C][C]886658.815789474[/C][C]142148.214007828[/C][C]6.23756564215885[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 40 )[/C][C]821626.830357143[/C][C]124637.361392906[/C][C]6.59213915614799[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 40 )[/C][C]761449.772727273[/C][C]107074.777135371[/C][C]7.11138321366386[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 40 )[/C][C]709078[/C][C]91318.368508822[/C][C]7.7649000040063[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 40 )[/C][C]658472.764150943[/C][C]73188.200966042[/C][C]8.99697977897371[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 40 )[/C][C]610623.25[/C][C]51277.8444351202[/C][C]11.9081302407826[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 40 )[/C][C]585404.352941177[/C][C]42007.5634664476[/C][C]13.9356893053022[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 40 )[/C][C]567111.69[/C][C]35502.2060966417[/C][C]15.9739845027164[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 40 )[/C][C]552933.030612245[/C][C]30485.9442723948[/C][C]18.1373102854134[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 40 )[/C][C]544060.979166667[/C][C]27863.7688140299[/C][C]19.5257498293885[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 40 )[/C][C]536813.829787234[/C][C]25726.5415251943[/C][C]20.8661482641001[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 40 )[/C][C]535751.423913043[/C][C]25430.9774455426[/C][C]21.0668829013863[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 40 )[/C][C]534715.8[/C][C]25148.3818280737[/C][C]21.2624336490344[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 40 )[/C][C]533618[/C][C]24824.5807704097[/C][C]21.495549307969[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 40 )[/C][C]532392.813953488[/C][C]24464.4286978191[/C][C]21.7619148409114[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 40 )[/C][C]531200.107142857[/C][C]24073.3064603699[/C][C]22.0659388031026[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 40 )[/C][C]529957.829268293[/C][C]23725.0808254722[/C][C]22.3374509518766[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 40 )[/C][C]528540.1125[/C][C]23346.6330028197[/C][C]22.6388153030959[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 40 )[/C][C]527135.91025641[/C][C]22928.3532641572[/C][C]22.9905699804641[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 40 )[/C][C]526049.026315789[/C][C]22588.1051426193[/C][C]23.2887629570680[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 40 )[/C][C]524803.148648649[/C][C]22206.5743843007[/C][C]23.6327827771431[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 40 )[/C][C]523639.013888889[/C][C]21803.6858984712[/C][C]24.0160776635296[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 40 )[/C][C]522515.185714286[/C][C]21357.3916727165[/C][C]24.4653089535173[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 40 )[/C][C]521348.926470588[/C][C]20890.4578498875[/C][C]24.9563188234956[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 40 )[/C][C]520214.439393939[/C][C]20373.3897320946[/C][C]25.5340150183470[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 40 )[/C][C]519178.921875[/C][C]19948.8213114938[/C][C]26.0255437535985[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 40 )[/C][C]517947.5[/C][C]19469.9068812065[/C][C]26.6024641597005[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 40 )[/C][C]516498.366666667[/C][C]18926.4841723435[/C][C]27.2897154042695[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 40 )[/C][C]514929.931034483[/C][C]18332.9234566545[/C][C]28.0877151018472[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 40 )[/C][C]513600.267857143[/C][C]17725.2367209751[/C][C]28.9756507031229[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 40 )[/C][C]512340.648148148[/C][C]17051.3002224505[/C][C]30.0470135100652[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 40 )[/C][C]510561.980769231[/C][C]16387.0264487320[/C][C]31.1564750546148[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 40 )[/C][C]509241.98[/C][C]15879.3682022955[/C][C]32.0694106662496[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 40 )[/C][C]507860.791666667[/C][C]15333.3408916289[/C][C]33.1213396516821[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 40 )[/C][C]507436.02173913[/C][C]14989.5561832404[/C][C]33.8526381659309[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 40 )[/C][C]506772.727272727[/C][C]14601.5629835560[/C][C]34.7067452877097[/C][/ROW]
[ROW][C]Trimmed Mean ( 39 / 40 )[/C][C]505814.761904762[/C][C]14163.4750208162[/C][C]35.7126172186813[/C][/ROW]
[ROW][C]Trimmed Mean ( 40 / 40 )[/C][C]504736.725[/C][C]13710.4767917237[/C][C]36.8139440128503[/C][/ROW]
[ROW][C]Median[/C][C]511654[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]4864993.5[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]512573.557377049[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]516498.366666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]512573.557377049[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]516498.366666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]516498.366666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]512573.557377049[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]516498.366666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]517947.5[/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=75176&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=75176&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 Mean1078350.175182658.4860909185.90364126013425
Geometric Mean493802.014710596
Harmonic Mean248181.579138468
Quadratic Mean2265649.94699195
Winsorized Mean ( 1 / 40 )1075947.04166667181684.6784004005.92205711092202
Winsorized Mean ( 2 / 40 )1071108.825179766.6564852075.95832867975794
Winsorized Mean ( 3 / 40 )1068748.375178777.2090380855.97810191103456
Winsorized Mean ( 4 / 40 )1042276.04166667169098.2220657526.1637315220345
Winsorized Mean ( 5 / 40 )997122.75153122.6229032876.51192313123966
Winsorized Mean ( 6 / 40 )977285.75146526.8032214156.66967222729371
Winsorized Mean ( 7 / 40 )948759.816666667136994.7726076196.92551838736293
Winsorized Mean ( 8 / 40 )782111.7585346.0204527039.16400959120795
Winsorized Mean ( 9 / 40 )722599.32568461.81728428210.5547786147637
Winsorized Mean ( 10 / 40 )682904.07557433.583971535611.8903266656396
Winsorized Mean ( 11 / 40 )631007.08333333343736.30332162914.4275358320300
Winsorized Mean ( 12 / 40 )612184.18333333339251.920645421715.5962860738316
Winsorized Mean ( 13 / 40 )547402.47527245.49864229120.0914830808165
Winsorized Mean ( 14 / 40 )546625.47526830.004996517620.3736628103852
Winsorized Mean ( 15 / 40 )546791.626808.907276879220.3958928408682
Winsorized Mean ( 16 / 40 )547666.826700.131754274220.51176395084
Winsorized Mean ( 17 / 40 )546586.02526513.038877153720.6157441073642
Winsorized Mean ( 18 / 40 )546480.12525714.556108884521.2517813912871
Winsorized Mean ( 19 / 40 )547915.57525491.96172007521.4936606690616
Winsorized Mean ( 20 / 40 )546794.74166666725312.871471528121.6014505616915
Winsorized Mean ( 21 / 40 )541591.46666666724199.275936438522.3804822958011
Winsorized Mean ( 22 / 40 )542951.43333333324032.52058858722.5923631827108
Winsorized Mean ( 23 / 40 )540868.20833333323675.91799527322.8446562638593
Winsorized Mean ( 24 / 40 )539372.60833333323444.383795396323.0064740895109
Winsorized Mean ( 25 / 40 )539037.19166666722977.769137647823.4590742224616
Winsorized Mean ( 26 / 40 )537572.09166666722691.081048931723.6908982215273
Winsorized Mean ( 27 / 40 )535125.89166666721346.892353201825.0680934167171
Winsorized Mean ( 28 / 40 )536993.49166666721085.152913132225.4678490537395
Winsorized Mean ( 29 / 40 )538959.93333333320802.268942477025.9087090366767
Winsorized Mean ( 30 / 40 )539240.68333333320343.354988850326.5069691616196
Winsorized Mean ( 31 / 40 )534165.72519644.094634729327.1921783585604
Winsorized Mean ( 32 / 40 )531738.79166666719199.094170322527.6960353936186
Winsorized Mean ( 33 / 40 )537775.59166666718157.139809429629.6178581709980
Winsorized Mean ( 34 / 40 )529261.99166666716475.097712323332.124968295076
Winsorized Mean ( 35 / 40 )528578.61666666715938.315753641333.1640196390203
Winsorized Mean ( 36 / 40 )513722.61666666714194.359091699636.1920262371744
Winsorized Mean ( 37 / 40 )516434.71666666713847.362432175937.2948075271484
Winsorized Mean ( 38 / 40 )519513.66666666713452.761245918338.6176233391706
Winsorized Mean ( 39 / 40 )519829.24166666712843.848621915840.4730121764023
Winsorized Mean ( 40 / 40 )513237.24166666711498.809094383444.6339475204747
Trimmed Mean ( 1 / 40 )1014169.77966102170272.9123812035.95614279146479
Trimmed Mean ( 2 / 40 )950262.26724138156863.4948149656.05789300029493
Trimmed Mean ( 3 / 40 )886658.815789474142148.2140078286.23756564215885
Trimmed Mean ( 4 / 40 )821626.830357143124637.3613929066.59213915614799
Trimmed Mean ( 5 / 40 )761449.772727273107074.7771353717.11138321366386
Trimmed Mean ( 6 / 40 )70907891318.3685088227.7649000040063
Trimmed Mean ( 7 / 40 )658472.76415094373188.2009660428.99697977897371
Trimmed Mean ( 8 / 40 )610623.2551277.844435120211.9081302407826
Trimmed Mean ( 9 / 40 )585404.35294117742007.563466447613.9356893053022
Trimmed Mean ( 10 / 40 )567111.6935502.206096641715.9739845027164
Trimmed Mean ( 11 / 40 )552933.03061224530485.944272394818.1373102854134
Trimmed Mean ( 12 / 40 )544060.97916666727863.768814029919.5257498293885
Trimmed Mean ( 13 / 40 )536813.82978723425726.541525194320.8661482641001
Trimmed Mean ( 14 / 40 )535751.42391304325430.977445542621.0668829013863
Trimmed Mean ( 15 / 40 )534715.825148.381828073721.2624336490344
Trimmed Mean ( 16 / 40 )53361824824.580770409721.495549307969
Trimmed Mean ( 17 / 40 )532392.81395348824464.428697819121.7619148409114
Trimmed Mean ( 18 / 40 )531200.10714285724073.306460369922.0659388031026
Trimmed Mean ( 19 / 40 )529957.82926829323725.080825472222.3374509518766
Trimmed Mean ( 20 / 40 )528540.112523346.633002819722.6388153030959
Trimmed Mean ( 21 / 40 )527135.9102564122928.353264157222.9905699804641
Trimmed Mean ( 22 / 40 )526049.02631578922588.105142619323.2887629570680
Trimmed Mean ( 23 / 40 )524803.14864864922206.574384300723.6327827771431
Trimmed Mean ( 24 / 40 )523639.01388888921803.685898471224.0160776635296
Trimmed Mean ( 25 / 40 )522515.18571428621357.391672716524.4653089535173
Trimmed Mean ( 26 / 40 )521348.92647058820890.457849887524.9563188234956
Trimmed Mean ( 27 / 40 )520214.43939393920373.389732094625.5340150183470
Trimmed Mean ( 28 / 40 )519178.92187519948.821311493826.0255437535985
Trimmed Mean ( 29 / 40 )517947.519469.906881206526.6024641597005
Trimmed Mean ( 30 / 40 )516498.36666666718926.484172343527.2897154042695
Trimmed Mean ( 31 / 40 )514929.93103448318332.923456654528.0877151018472
Trimmed Mean ( 32 / 40 )513600.26785714317725.236720975128.9756507031229
Trimmed Mean ( 33 / 40 )512340.64814814817051.300222450530.0470135100652
Trimmed Mean ( 34 / 40 )510561.98076923116387.026448732031.1564750546148
Trimmed Mean ( 35 / 40 )509241.9815879.368202295532.0694106662496
Trimmed Mean ( 36 / 40 )507860.79166666715333.340891628933.1213396516821
Trimmed Mean ( 37 / 40 )507436.0217391314989.556183240433.8526381659309
Trimmed Mean ( 38 / 40 )506772.72727272714601.562983556034.7067452877097
Trimmed Mean ( 39 / 40 )505814.76190476214163.475020816235.7126172186813
Trimmed Mean ( 40 / 40 )504736.72513710.476791723736.8139440128503
Median511654
Midrange4864993.5
Midmean - Weighted Average at Xnp512573.557377049
Midmean - Weighted Average at X(n+1)p516498.366666667
Midmean - Empirical Distribution Function512573.557377049
Midmean - Empirical Distribution Function - Averaging516498.366666667
Midmean - Empirical Distribution Function - Interpolation516498.366666667
Midmean - Closest Observation512573.557377049
Midmean - True Basic - Statistics Graphics Toolkit516498.366666667
Midmean - MS Excel (old versions)517947.5
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')