Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_centraltendency.wasp
Title produced by softwareCentral Tendency
Date of computationThu, 17 Nov 2011 09:12:34 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Nov/17/t1321539222uiuwufwjoqtzo2m.htm/, Retrieved Fri, 29 Mar 2024 08:15:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=144669, Retrieved Fri, 29 Mar 2024 08:15:30 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact62
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [] [2011-11-17 14:12:34] [d160b678fd2d7bb562db2147d7efddc2] [Current]
Feedback Forum

Post a new message
Dataseries X:
330
331.6
351.2
389.4
410.9
442.8
462.8
466.9
461.7
439.2
430.3
416.1
402.5
397.3
403.3
395.9
387.8
378.6
377.1
370.4
362
350.3
348.2
344.6
343.5
342.8
347.6
346.6
349.5
342.1
342
342.8
339.3
348.2
333.7
334.7
354
367.7
363.3
358.4
353.1
343.1
344.6
344.4
333.9
331.7
324.3
321.2
322.4
321.7
320.5
312.8
309.7
315.6
309.7
304.6
302.5
301.5
298.8
291.3
293.6
294.6
285.9
297.6
301.1
293.8
297.7
292.9
292.1
287.2
288.2
283.8
299.9
292.4
293.3
300.8
293.7
293.1
294.4
292.1
291.9
282.5
277.9
287.5
289.2
285.6
293.2
290.8
283.1
275
287.8
287.8
287.4
284
277.8
277.6
304.9
294
300.9
324
332.9
341.6
333.4
348.2
344.7
344.7
329.3
323.5
323.2
317.4
330.1
329.2
334.9
315.8
315.4
319.6
317.3
313.8
315.8
311.3




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

\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' @ jenkins.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=144669&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' @ jenkins.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=144669&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=144669&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' @ jenkins.wessa.net







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean330.0641666666673.895065073517784.7390635167438
Geometric Mean327.552673642403
Harmonic Mean325.241807979301
Quadratic Mean332.787869996289
Winsorized Mean ( 1 / 40 )330.0516666666673.8825963733700285.0079778908843
Winsorized Mean ( 2 / 40 )330.0366666666673.8769687206954885.1275030682894
Winsorized Mean ( 3 / 40 )329.5666666666673.7491758820552287.9037625959563
Winsorized Mean ( 4 / 40 )329.63.7019388893681489.0344248919401
Winsorized Mean ( 5 / 40 )329.2541666666673.6094786311269591.2193145645156
Winsorized Mean ( 6 / 40 )328.5791666666673.4462340700934795.3444136363479
Winsorized Mean ( 7 / 40 )328.28753.3814381610662197.0851703810211
Winsorized Mean ( 8 / 40 )327.88753.26859270433114100.314578676482
Winsorized Mean ( 9 / 40 )327.853.254552080348100.735828435397
Winsorized Mean ( 10 / 40 )327.5253.16090045187549103.617625732461
Winsorized Mean ( 11 / 40 )327.4153.1352528501181104.430173785718
Winsorized Mean ( 12 / 40 )326.7753.01778069947769108.283216224611
Winsorized Mean ( 13 / 40 )326.6341666666672.9841843838378109.455088779267
Winsorized Mean ( 14 / 40 )325.5608333333332.80629152495172116.011052465026
Winsorized Mean ( 15 / 40 )325.4233333333332.77105985784518117.436414234078
Winsorized Mean ( 16 / 40 )324.6633333333332.6203146616842123.902422133019
Winsorized Mean ( 17 / 40 )324.50752.53938008340287127.790046917729
Winsorized Mean ( 18 / 40 )323.92252.43899473669589132.809839696013
Winsorized Mean ( 19 / 40 )323.8116666666672.40062730577888134.886271553762
Winsorized Mean ( 20 / 40 )323.2452.31852328219581139.41848351588
Winsorized Mean ( 21 / 40 )322.4752.22353128751421145.028316808849
Winsorized Mean ( 22 / 40 )322.3652.19769794569322146.683032867065
Winsorized Mean ( 23 / 40 )322.0966666666672.14455434811232150.192820690314
Winsorized Mean ( 24 / 40 )321.9566666666672.11960031818978151.894988835268
Winsorized Mean ( 25 / 40 )321.8108333333332.09861091707805153.344686580302
Winsorized Mean ( 26 / 40 )321.5508333333332.06523579131201155.696911067504
Winsorized Mean ( 27 / 40 )321.6183333333332.05749398280101156.315564478829
Winsorized Mean ( 28 / 40 )321.6416666666672.05482576882877156.529897349885
Winsorized Mean ( 29 / 40 )321.5208333333332.03638572006558157.887982696607
Winsorized Mean ( 30 / 40 )321.3208333333332.00395718315623160.343163034678
Winsorized Mean ( 31 / 40 )320.9333333333331.9408202853481165.359634663841
Winsorized Mean ( 32 / 40 )320.9866666666671.93470042460321165.910268372685
Winsorized Mean ( 33 / 40 )321.7841666666671.83894455626021174.983071442386
Winsorized Mean ( 34 / 40 )321.81251.83581531605166175.296772603538
Winsorized Mean ( 35 / 40 )322.0751.79453155096113179.475807949713
Winsorized Mean ( 36 / 40 )322.1351.73060992551346186.139577296382
Winsorized Mean ( 37 / 40 )322.2891666666671.68799800031466190.929827290428
Winsorized Mean ( 38 / 40 )322.2258333333331.67478519707729192.39830510543
Winsorized Mean ( 39 / 40 )322.2908333333331.66783754214656193.238744895103
Winsorized Mean ( 40 / 40 )322.1908333333331.62957178296785197.715029617502
Trimmed Mean ( 1 / 40 )329.3711864406783.7566561916136187.6766916216525
Trimmed Mean ( 2 / 40 )328.667241379313.6146432522273490.9266055998156
Trimmed Mean ( 3 / 40 )327.946491228073.4570052408030294.8643315194663
Trimmed Mean ( 4 / 40 )327.3678571428573.3343526146599398.1803351281866
Trimmed Mean ( 5 / 40 )326.7590909090913.21144619259987101.748268945636
Trimmed Mean ( 6 / 40 )326.204629629633.09922258931425105.253695153857
Trimmed Mean ( 7 / 40 )325.7566037735853.01384735263612108.086630030766
Trimmed Mean ( 8 / 40 )325.3394230769232.93197949655856110.962380009408
Trimmed Mean ( 9 / 40 )324.9647058823532.86251239004925113.524296702437
Trimmed Mean ( 10 / 40 )324.582.78636253233784116.488790038268
Trimmed Mean ( 11 / 40 )324.2193877551022.7167954671403119.338901907244
Trimmed Mean ( 12 / 40 )323.856252.64195933924413122.581844916908
Trimmed Mean ( 13 / 40 )323.5457446808512.57645200420628125.578021307067
Trimmed Mean ( 14 / 40 )323.2358695652172.50692094162403128.937400537178
Trimmed Mean ( 15 / 40 )323.0144444444442.4553391903367131.555935618064
Trimmed Mean ( 16 / 40 )322.7954545454552.40135308268468134.422320846118
Trimmed Mean ( 17 / 40 )322.6325581395352.36108350110873136.645975454926
Trimmed Mean ( 18 / 40 )322.4752.32551444348348138.668242161916
Trimmed Mean ( 19 / 40 )322.3573170731712.29766913201012140.297535699214
Trimmed Mean ( 20 / 40 )322.24252.26994519464873141.960475856276
Trimmed Mean ( 21 / 40 )322.1653846153852.24788932482457143.31905982094
Trimmed Mean ( 22 / 40 )322.1421052631582.23335736815391144.241181396527
Trimmed Mean ( 23 / 40 )322.1256756756762.21852876993717145.197880703976
Trimmed Mean ( 24 / 40 )322.1277777777782.20649934671792145.990425175938
Trimmed Mean ( 25 / 40 )322.142.1941097507517146.820367527028
Trimmed Mean ( 26 / 40 )322.1632352941182.18071089770442147.733124841652
Trimmed Mean ( 27 / 40 )322.2060606060612.1675148550886148.652296361259
Trimmed Mean ( 28 / 40 )322.2468752.15132154007708149.790195931592
Trimmed Mean ( 29 / 40 )322.2887096774192.13084931394128151.24894452593
Trimmed Mean ( 30 / 40 )322.3416666666672.10727860444717152.965851779827
Trimmed Mean ( 31 / 40 )322.4120689655172.08179688425869154.872010522931
Trimmed Mean ( 32 / 40 )322.5142857142862.05806842453651156.707270695782
Trimmed Mean ( 33 / 40 )322.620370370372.0282566786885159.062890688461
Trimmed Mean ( 34 / 40 )322.6788461538462.00531596781097160.911722308823
Trimmed Mean ( 35 / 40 )322.741.97533773914069163.384718271214
Trimmed Mean ( 36 / 40 )322.78751.94305141547811166.124013718172
Trimmed Mean ( 37 / 40 )322.8347826086961.91163035203319168.879293146466
Trimmed Mean ( 38 / 40 )322.8751.87734103326479171.985267609319
Trimmed Mean ( 39 / 40 )322.9238095238091.83338763362879176.135042912149
Trimmed Mean ( 40 / 40 )322.97251.77531863337261181.923680588223
Median322.8
Midrange370.95
Midmean - Weighted Average at Xnp321.873770491803
Midmean - Weighted Average at X(n+1)p322.341666666667
Midmean - Empirical Distribution Function321.873770491803
Midmean - Empirical Distribution Function - Averaging322.341666666667
Midmean - Empirical Distribution Function - Interpolation322.341666666667
Midmean - Closest Observation321.873770491803
Midmean - True Basic - Statistics Graphics Toolkit322.341666666667
Midmean - MS Excel (old versions)322.288709677419
Number of observations120

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 330.064166666667 & 3.8950650735177 & 84.7390635167438 \tabularnewline
Geometric Mean & 327.552673642403 &  &  \tabularnewline
Harmonic Mean & 325.241807979301 &  &  \tabularnewline
Quadratic Mean & 332.787869996289 &  &  \tabularnewline
Winsorized Mean ( 1 / 40 ) & 330.051666666667 & 3.88259637337002 & 85.0079778908843 \tabularnewline
Winsorized Mean ( 2 / 40 ) & 330.036666666667 & 3.87696872069548 & 85.1275030682894 \tabularnewline
Winsorized Mean ( 3 / 40 ) & 329.566666666667 & 3.74917588205522 & 87.9037625959563 \tabularnewline
Winsorized Mean ( 4 / 40 ) & 329.6 & 3.70193888936814 & 89.0344248919401 \tabularnewline
Winsorized Mean ( 5 / 40 ) & 329.254166666667 & 3.60947863112695 & 91.2193145645156 \tabularnewline
Winsorized Mean ( 6 / 40 ) & 328.579166666667 & 3.44623407009347 & 95.3444136363479 \tabularnewline
Winsorized Mean ( 7 / 40 ) & 328.2875 & 3.38143816106621 & 97.0851703810211 \tabularnewline
Winsorized Mean ( 8 / 40 ) & 327.8875 & 3.26859270433114 & 100.314578676482 \tabularnewline
Winsorized Mean ( 9 / 40 ) & 327.85 & 3.254552080348 & 100.735828435397 \tabularnewline
Winsorized Mean ( 10 / 40 ) & 327.525 & 3.16090045187549 & 103.617625732461 \tabularnewline
Winsorized Mean ( 11 / 40 ) & 327.415 & 3.1352528501181 & 104.430173785718 \tabularnewline
Winsorized Mean ( 12 / 40 ) & 326.775 & 3.01778069947769 & 108.283216224611 \tabularnewline
Winsorized Mean ( 13 / 40 ) & 326.634166666667 & 2.9841843838378 & 109.455088779267 \tabularnewline
Winsorized Mean ( 14 / 40 ) & 325.560833333333 & 2.80629152495172 & 116.011052465026 \tabularnewline
Winsorized Mean ( 15 / 40 ) & 325.423333333333 & 2.77105985784518 & 117.436414234078 \tabularnewline
Winsorized Mean ( 16 / 40 ) & 324.663333333333 & 2.6203146616842 & 123.902422133019 \tabularnewline
Winsorized Mean ( 17 / 40 ) & 324.5075 & 2.53938008340287 & 127.790046917729 \tabularnewline
Winsorized Mean ( 18 / 40 ) & 323.9225 & 2.43899473669589 & 132.809839696013 \tabularnewline
Winsorized Mean ( 19 / 40 ) & 323.811666666667 & 2.40062730577888 & 134.886271553762 \tabularnewline
Winsorized Mean ( 20 / 40 ) & 323.245 & 2.31852328219581 & 139.41848351588 \tabularnewline
Winsorized Mean ( 21 / 40 ) & 322.475 & 2.22353128751421 & 145.028316808849 \tabularnewline
Winsorized Mean ( 22 / 40 ) & 322.365 & 2.19769794569322 & 146.683032867065 \tabularnewline
Winsorized Mean ( 23 / 40 ) & 322.096666666667 & 2.14455434811232 & 150.192820690314 \tabularnewline
Winsorized Mean ( 24 / 40 ) & 321.956666666667 & 2.11960031818978 & 151.894988835268 \tabularnewline
Winsorized Mean ( 25 / 40 ) & 321.810833333333 & 2.09861091707805 & 153.344686580302 \tabularnewline
Winsorized Mean ( 26 / 40 ) & 321.550833333333 & 2.06523579131201 & 155.696911067504 \tabularnewline
Winsorized Mean ( 27 / 40 ) & 321.618333333333 & 2.05749398280101 & 156.315564478829 \tabularnewline
Winsorized Mean ( 28 / 40 ) & 321.641666666667 & 2.05482576882877 & 156.529897349885 \tabularnewline
Winsorized Mean ( 29 / 40 ) & 321.520833333333 & 2.03638572006558 & 157.887982696607 \tabularnewline
Winsorized Mean ( 30 / 40 ) & 321.320833333333 & 2.00395718315623 & 160.343163034678 \tabularnewline
Winsorized Mean ( 31 / 40 ) & 320.933333333333 & 1.9408202853481 & 165.359634663841 \tabularnewline
Winsorized Mean ( 32 / 40 ) & 320.986666666667 & 1.93470042460321 & 165.910268372685 \tabularnewline
Winsorized Mean ( 33 / 40 ) & 321.784166666667 & 1.83894455626021 & 174.983071442386 \tabularnewline
Winsorized Mean ( 34 / 40 ) & 321.8125 & 1.83581531605166 & 175.296772603538 \tabularnewline
Winsorized Mean ( 35 / 40 ) & 322.075 & 1.79453155096113 & 179.475807949713 \tabularnewline
Winsorized Mean ( 36 / 40 ) & 322.135 & 1.73060992551346 & 186.139577296382 \tabularnewline
Winsorized Mean ( 37 / 40 ) & 322.289166666667 & 1.68799800031466 & 190.929827290428 \tabularnewline
Winsorized Mean ( 38 / 40 ) & 322.225833333333 & 1.67478519707729 & 192.39830510543 \tabularnewline
Winsorized Mean ( 39 / 40 ) & 322.290833333333 & 1.66783754214656 & 193.238744895103 \tabularnewline
Winsorized Mean ( 40 / 40 ) & 322.190833333333 & 1.62957178296785 & 197.715029617502 \tabularnewline
Trimmed Mean ( 1 / 40 ) & 329.371186440678 & 3.75665619161361 & 87.6766916216525 \tabularnewline
Trimmed Mean ( 2 / 40 ) & 328.66724137931 & 3.61464325222734 & 90.9266055998156 \tabularnewline
Trimmed Mean ( 3 / 40 ) & 327.94649122807 & 3.45700524080302 & 94.8643315194663 \tabularnewline
Trimmed Mean ( 4 / 40 ) & 327.367857142857 & 3.33435261465993 & 98.1803351281866 \tabularnewline
Trimmed Mean ( 5 / 40 ) & 326.759090909091 & 3.21144619259987 & 101.748268945636 \tabularnewline
Trimmed Mean ( 6 / 40 ) & 326.20462962963 & 3.09922258931425 & 105.253695153857 \tabularnewline
Trimmed Mean ( 7 / 40 ) & 325.756603773585 & 3.01384735263612 & 108.086630030766 \tabularnewline
Trimmed Mean ( 8 / 40 ) & 325.339423076923 & 2.93197949655856 & 110.962380009408 \tabularnewline
Trimmed Mean ( 9 / 40 ) & 324.964705882353 & 2.86251239004925 & 113.524296702437 \tabularnewline
Trimmed Mean ( 10 / 40 ) & 324.58 & 2.78636253233784 & 116.488790038268 \tabularnewline
Trimmed Mean ( 11 / 40 ) & 324.219387755102 & 2.7167954671403 & 119.338901907244 \tabularnewline
Trimmed Mean ( 12 / 40 ) & 323.85625 & 2.64195933924413 & 122.581844916908 \tabularnewline
Trimmed Mean ( 13 / 40 ) & 323.545744680851 & 2.57645200420628 & 125.578021307067 \tabularnewline
Trimmed Mean ( 14 / 40 ) & 323.235869565217 & 2.50692094162403 & 128.937400537178 \tabularnewline
Trimmed Mean ( 15 / 40 ) & 323.014444444444 & 2.4553391903367 & 131.555935618064 \tabularnewline
Trimmed Mean ( 16 / 40 ) & 322.795454545455 & 2.40135308268468 & 134.422320846118 \tabularnewline
Trimmed Mean ( 17 / 40 ) & 322.632558139535 & 2.36108350110873 & 136.645975454926 \tabularnewline
Trimmed Mean ( 18 / 40 ) & 322.475 & 2.32551444348348 & 138.668242161916 \tabularnewline
Trimmed Mean ( 19 / 40 ) & 322.357317073171 & 2.29766913201012 & 140.297535699214 \tabularnewline
Trimmed Mean ( 20 / 40 ) & 322.2425 & 2.26994519464873 & 141.960475856276 \tabularnewline
Trimmed Mean ( 21 / 40 ) & 322.165384615385 & 2.24788932482457 & 143.31905982094 \tabularnewline
Trimmed Mean ( 22 / 40 ) & 322.142105263158 & 2.23335736815391 & 144.241181396527 \tabularnewline
Trimmed Mean ( 23 / 40 ) & 322.125675675676 & 2.21852876993717 & 145.197880703976 \tabularnewline
Trimmed Mean ( 24 / 40 ) & 322.127777777778 & 2.20649934671792 & 145.990425175938 \tabularnewline
Trimmed Mean ( 25 / 40 ) & 322.14 & 2.1941097507517 & 146.820367527028 \tabularnewline
Trimmed Mean ( 26 / 40 ) & 322.163235294118 & 2.18071089770442 & 147.733124841652 \tabularnewline
Trimmed Mean ( 27 / 40 ) & 322.206060606061 & 2.1675148550886 & 148.652296361259 \tabularnewline
Trimmed Mean ( 28 / 40 ) & 322.246875 & 2.15132154007708 & 149.790195931592 \tabularnewline
Trimmed Mean ( 29 / 40 ) & 322.288709677419 & 2.13084931394128 & 151.24894452593 \tabularnewline
Trimmed Mean ( 30 / 40 ) & 322.341666666667 & 2.10727860444717 & 152.965851779827 \tabularnewline
Trimmed Mean ( 31 / 40 ) & 322.412068965517 & 2.08179688425869 & 154.872010522931 \tabularnewline
Trimmed Mean ( 32 / 40 ) & 322.514285714286 & 2.05806842453651 & 156.707270695782 \tabularnewline
Trimmed Mean ( 33 / 40 ) & 322.62037037037 & 2.0282566786885 & 159.062890688461 \tabularnewline
Trimmed Mean ( 34 / 40 ) & 322.678846153846 & 2.00531596781097 & 160.911722308823 \tabularnewline
Trimmed Mean ( 35 / 40 ) & 322.74 & 1.97533773914069 & 163.384718271214 \tabularnewline
Trimmed Mean ( 36 / 40 ) & 322.7875 & 1.94305141547811 & 166.124013718172 \tabularnewline
Trimmed Mean ( 37 / 40 ) & 322.834782608696 & 1.91163035203319 & 168.879293146466 \tabularnewline
Trimmed Mean ( 38 / 40 ) & 322.875 & 1.87734103326479 & 171.985267609319 \tabularnewline
Trimmed Mean ( 39 / 40 ) & 322.923809523809 & 1.83338763362879 & 176.135042912149 \tabularnewline
Trimmed Mean ( 40 / 40 ) & 322.9725 & 1.77531863337261 & 181.923680588223 \tabularnewline
Median & 322.8 &  &  \tabularnewline
Midrange & 370.95 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 321.873770491803 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 322.341666666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 321.873770491803 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 322.341666666667 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 322.341666666667 &  &  \tabularnewline
Midmean - Closest Observation & 321.873770491803 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 322.341666666667 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 322.288709677419 &  &  \tabularnewline
Number of observations & 120 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=144669&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]330.064166666667[/C][C]3.8950650735177[/C][C]84.7390635167438[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]327.552673642403[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]325.241807979301[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]332.787869996289[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 40 )[/C][C]330.051666666667[/C][C]3.88259637337002[/C][C]85.0079778908843[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 40 )[/C][C]330.036666666667[/C][C]3.87696872069548[/C][C]85.1275030682894[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 40 )[/C][C]329.566666666667[/C][C]3.74917588205522[/C][C]87.9037625959563[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 40 )[/C][C]329.6[/C][C]3.70193888936814[/C][C]89.0344248919401[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 40 )[/C][C]329.254166666667[/C][C]3.60947863112695[/C][C]91.2193145645156[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 40 )[/C][C]328.579166666667[/C][C]3.44623407009347[/C][C]95.3444136363479[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 40 )[/C][C]328.2875[/C][C]3.38143816106621[/C][C]97.0851703810211[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 40 )[/C][C]327.8875[/C][C]3.26859270433114[/C][C]100.314578676482[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 40 )[/C][C]327.85[/C][C]3.254552080348[/C][C]100.735828435397[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 40 )[/C][C]327.525[/C][C]3.16090045187549[/C][C]103.617625732461[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 40 )[/C][C]327.415[/C][C]3.1352528501181[/C][C]104.430173785718[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 40 )[/C][C]326.775[/C][C]3.01778069947769[/C][C]108.283216224611[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 40 )[/C][C]326.634166666667[/C][C]2.9841843838378[/C][C]109.455088779267[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 40 )[/C][C]325.560833333333[/C][C]2.80629152495172[/C][C]116.011052465026[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 40 )[/C][C]325.423333333333[/C][C]2.77105985784518[/C][C]117.436414234078[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 40 )[/C][C]324.663333333333[/C][C]2.6203146616842[/C][C]123.902422133019[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 40 )[/C][C]324.5075[/C][C]2.53938008340287[/C][C]127.790046917729[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 40 )[/C][C]323.9225[/C][C]2.43899473669589[/C][C]132.809839696013[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 40 )[/C][C]323.811666666667[/C][C]2.40062730577888[/C][C]134.886271553762[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 40 )[/C][C]323.245[/C][C]2.31852328219581[/C][C]139.41848351588[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 40 )[/C][C]322.475[/C][C]2.22353128751421[/C][C]145.028316808849[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 40 )[/C][C]322.365[/C][C]2.19769794569322[/C][C]146.683032867065[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 40 )[/C][C]322.096666666667[/C][C]2.14455434811232[/C][C]150.192820690314[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 40 )[/C][C]321.956666666667[/C][C]2.11960031818978[/C][C]151.894988835268[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 40 )[/C][C]321.810833333333[/C][C]2.09861091707805[/C][C]153.344686580302[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 40 )[/C][C]321.550833333333[/C][C]2.06523579131201[/C][C]155.696911067504[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 40 )[/C][C]321.618333333333[/C][C]2.05749398280101[/C][C]156.315564478829[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 40 )[/C][C]321.641666666667[/C][C]2.05482576882877[/C][C]156.529897349885[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 40 )[/C][C]321.520833333333[/C][C]2.03638572006558[/C][C]157.887982696607[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 40 )[/C][C]321.320833333333[/C][C]2.00395718315623[/C][C]160.343163034678[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 40 )[/C][C]320.933333333333[/C][C]1.9408202853481[/C][C]165.359634663841[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 40 )[/C][C]320.986666666667[/C][C]1.93470042460321[/C][C]165.910268372685[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 40 )[/C][C]321.784166666667[/C][C]1.83894455626021[/C][C]174.983071442386[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 40 )[/C][C]321.8125[/C][C]1.83581531605166[/C][C]175.296772603538[/C][/ROW]
[ROW][C]Winsorized Mean ( 35 / 40 )[/C][C]322.075[/C][C]1.79453155096113[/C][C]179.475807949713[/C][/ROW]
[ROW][C]Winsorized Mean ( 36 / 40 )[/C][C]322.135[/C][C]1.73060992551346[/C][C]186.139577296382[/C][/ROW]
[ROW][C]Winsorized Mean ( 37 / 40 )[/C][C]322.289166666667[/C][C]1.68799800031466[/C][C]190.929827290428[/C][/ROW]
[ROW][C]Winsorized Mean ( 38 / 40 )[/C][C]322.225833333333[/C][C]1.67478519707729[/C][C]192.39830510543[/C][/ROW]
[ROW][C]Winsorized Mean ( 39 / 40 )[/C][C]322.290833333333[/C][C]1.66783754214656[/C][C]193.238744895103[/C][/ROW]
[ROW][C]Winsorized Mean ( 40 / 40 )[/C][C]322.190833333333[/C][C]1.62957178296785[/C][C]197.715029617502[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 40 )[/C][C]329.371186440678[/C][C]3.75665619161361[/C][C]87.6766916216525[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 40 )[/C][C]328.66724137931[/C][C]3.61464325222734[/C][C]90.9266055998156[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 40 )[/C][C]327.94649122807[/C][C]3.45700524080302[/C][C]94.8643315194663[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 40 )[/C][C]327.367857142857[/C][C]3.33435261465993[/C][C]98.1803351281866[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 40 )[/C][C]326.759090909091[/C][C]3.21144619259987[/C][C]101.748268945636[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 40 )[/C][C]326.20462962963[/C][C]3.09922258931425[/C][C]105.253695153857[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 40 )[/C][C]325.756603773585[/C][C]3.01384735263612[/C][C]108.086630030766[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 40 )[/C][C]325.339423076923[/C][C]2.93197949655856[/C][C]110.962380009408[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 40 )[/C][C]324.964705882353[/C][C]2.86251239004925[/C][C]113.524296702437[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 40 )[/C][C]324.58[/C][C]2.78636253233784[/C][C]116.488790038268[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 40 )[/C][C]324.219387755102[/C][C]2.7167954671403[/C][C]119.338901907244[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 40 )[/C][C]323.85625[/C][C]2.64195933924413[/C][C]122.581844916908[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 40 )[/C][C]323.545744680851[/C][C]2.57645200420628[/C][C]125.578021307067[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 40 )[/C][C]323.235869565217[/C][C]2.50692094162403[/C][C]128.937400537178[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 40 )[/C][C]323.014444444444[/C][C]2.4553391903367[/C][C]131.555935618064[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 40 )[/C][C]322.795454545455[/C][C]2.40135308268468[/C][C]134.422320846118[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 40 )[/C][C]322.632558139535[/C][C]2.36108350110873[/C][C]136.645975454926[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 40 )[/C][C]322.475[/C][C]2.32551444348348[/C][C]138.668242161916[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 40 )[/C][C]322.357317073171[/C][C]2.29766913201012[/C][C]140.297535699214[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 40 )[/C][C]322.2425[/C][C]2.26994519464873[/C][C]141.960475856276[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 40 )[/C][C]322.165384615385[/C][C]2.24788932482457[/C][C]143.31905982094[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 40 )[/C][C]322.142105263158[/C][C]2.23335736815391[/C][C]144.241181396527[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 40 )[/C][C]322.125675675676[/C][C]2.21852876993717[/C][C]145.197880703976[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 40 )[/C][C]322.127777777778[/C][C]2.20649934671792[/C][C]145.990425175938[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 40 )[/C][C]322.14[/C][C]2.1941097507517[/C][C]146.820367527028[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 40 )[/C][C]322.163235294118[/C][C]2.18071089770442[/C][C]147.733124841652[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 40 )[/C][C]322.206060606061[/C][C]2.1675148550886[/C][C]148.652296361259[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 40 )[/C][C]322.246875[/C][C]2.15132154007708[/C][C]149.790195931592[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 40 )[/C][C]322.288709677419[/C][C]2.13084931394128[/C][C]151.24894452593[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 40 )[/C][C]322.341666666667[/C][C]2.10727860444717[/C][C]152.965851779827[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 40 )[/C][C]322.412068965517[/C][C]2.08179688425869[/C][C]154.872010522931[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 40 )[/C][C]322.514285714286[/C][C]2.05806842453651[/C][C]156.707270695782[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 40 )[/C][C]322.62037037037[/C][C]2.0282566786885[/C][C]159.062890688461[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 40 )[/C][C]322.678846153846[/C][C]2.00531596781097[/C][C]160.911722308823[/C][/ROW]
[ROW][C]Trimmed Mean ( 35 / 40 )[/C][C]322.74[/C][C]1.97533773914069[/C][C]163.384718271214[/C][/ROW]
[ROW][C]Trimmed Mean ( 36 / 40 )[/C][C]322.7875[/C][C]1.94305141547811[/C][C]166.124013718172[/C][/ROW]
[ROW][C]Trimmed Mean ( 37 / 40 )[/C][C]322.834782608696[/C][C]1.91163035203319[/C][C]168.879293146466[/C][/ROW]
[ROW][C]Trimmed Mean ( 38 / 40 )[/C][C]322.875[/C][C]1.87734103326479[/C][C]171.985267609319[/C][/ROW]
[ROW][C]Trimmed Mean ( 39 / 40 )[/C][C]322.923809523809[/C][C]1.83338763362879[/C][C]176.135042912149[/C][/ROW]
[ROW][C]Trimmed Mean ( 40 / 40 )[/C][C]322.9725[/C][C]1.77531863337261[/C][C]181.923680588223[/C][/ROW]
[ROW][C]Median[/C][C]322.8[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]370.95[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]321.873770491803[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]322.341666666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]321.873770491803[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]322.341666666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]322.341666666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]321.873770491803[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]322.341666666667[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]322.288709677419[/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=144669&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=144669&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 Mean330.0641666666673.895065073517784.7390635167438
Geometric Mean327.552673642403
Harmonic Mean325.241807979301
Quadratic Mean332.787869996289
Winsorized Mean ( 1 / 40 )330.0516666666673.8825963733700285.0079778908843
Winsorized Mean ( 2 / 40 )330.0366666666673.8769687206954885.1275030682894
Winsorized Mean ( 3 / 40 )329.5666666666673.7491758820552287.9037625959563
Winsorized Mean ( 4 / 40 )329.63.7019388893681489.0344248919401
Winsorized Mean ( 5 / 40 )329.2541666666673.6094786311269591.2193145645156
Winsorized Mean ( 6 / 40 )328.5791666666673.4462340700934795.3444136363479
Winsorized Mean ( 7 / 40 )328.28753.3814381610662197.0851703810211
Winsorized Mean ( 8 / 40 )327.88753.26859270433114100.314578676482
Winsorized Mean ( 9 / 40 )327.853.254552080348100.735828435397
Winsorized Mean ( 10 / 40 )327.5253.16090045187549103.617625732461
Winsorized Mean ( 11 / 40 )327.4153.1352528501181104.430173785718
Winsorized Mean ( 12 / 40 )326.7753.01778069947769108.283216224611
Winsorized Mean ( 13 / 40 )326.6341666666672.9841843838378109.455088779267
Winsorized Mean ( 14 / 40 )325.5608333333332.80629152495172116.011052465026
Winsorized Mean ( 15 / 40 )325.4233333333332.77105985784518117.436414234078
Winsorized Mean ( 16 / 40 )324.6633333333332.6203146616842123.902422133019
Winsorized Mean ( 17 / 40 )324.50752.53938008340287127.790046917729
Winsorized Mean ( 18 / 40 )323.92252.43899473669589132.809839696013
Winsorized Mean ( 19 / 40 )323.8116666666672.40062730577888134.886271553762
Winsorized Mean ( 20 / 40 )323.2452.31852328219581139.41848351588
Winsorized Mean ( 21 / 40 )322.4752.22353128751421145.028316808849
Winsorized Mean ( 22 / 40 )322.3652.19769794569322146.683032867065
Winsorized Mean ( 23 / 40 )322.0966666666672.14455434811232150.192820690314
Winsorized Mean ( 24 / 40 )321.9566666666672.11960031818978151.894988835268
Winsorized Mean ( 25 / 40 )321.8108333333332.09861091707805153.344686580302
Winsorized Mean ( 26 / 40 )321.5508333333332.06523579131201155.696911067504
Winsorized Mean ( 27 / 40 )321.6183333333332.05749398280101156.315564478829
Winsorized Mean ( 28 / 40 )321.6416666666672.05482576882877156.529897349885
Winsorized Mean ( 29 / 40 )321.5208333333332.03638572006558157.887982696607
Winsorized Mean ( 30 / 40 )321.3208333333332.00395718315623160.343163034678
Winsorized Mean ( 31 / 40 )320.9333333333331.9408202853481165.359634663841
Winsorized Mean ( 32 / 40 )320.9866666666671.93470042460321165.910268372685
Winsorized Mean ( 33 / 40 )321.7841666666671.83894455626021174.983071442386
Winsorized Mean ( 34 / 40 )321.81251.83581531605166175.296772603538
Winsorized Mean ( 35 / 40 )322.0751.79453155096113179.475807949713
Winsorized Mean ( 36 / 40 )322.1351.73060992551346186.139577296382
Winsorized Mean ( 37 / 40 )322.2891666666671.68799800031466190.929827290428
Winsorized Mean ( 38 / 40 )322.2258333333331.67478519707729192.39830510543
Winsorized Mean ( 39 / 40 )322.2908333333331.66783754214656193.238744895103
Winsorized Mean ( 40 / 40 )322.1908333333331.62957178296785197.715029617502
Trimmed Mean ( 1 / 40 )329.3711864406783.7566561916136187.6766916216525
Trimmed Mean ( 2 / 40 )328.667241379313.6146432522273490.9266055998156
Trimmed Mean ( 3 / 40 )327.946491228073.4570052408030294.8643315194663
Trimmed Mean ( 4 / 40 )327.3678571428573.3343526146599398.1803351281866
Trimmed Mean ( 5 / 40 )326.7590909090913.21144619259987101.748268945636
Trimmed Mean ( 6 / 40 )326.204629629633.09922258931425105.253695153857
Trimmed Mean ( 7 / 40 )325.7566037735853.01384735263612108.086630030766
Trimmed Mean ( 8 / 40 )325.3394230769232.93197949655856110.962380009408
Trimmed Mean ( 9 / 40 )324.9647058823532.86251239004925113.524296702437
Trimmed Mean ( 10 / 40 )324.582.78636253233784116.488790038268
Trimmed Mean ( 11 / 40 )324.2193877551022.7167954671403119.338901907244
Trimmed Mean ( 12 / 40 )323.856252.64195933924413122.581844916908
Trimmed Mean ( 13 / 40 )323.5457446808512.57645200420628125.578021307067
Trimmed Mean ( 14 / 40 )323.2358695652172.50692094162403128.937400537178
Trimmed Mean ( 15 / 40 )323.0144444444442.4553391903367131.555935618064
Trimmed Mean ( 16 / 40 )322.7954545454552.40135308268468134.422320846118
Trimmed Mean ( 17 / 40 )322.6325581395352.36108350110873136.645975454926
Trimmed Mean ( 18 / 40 )322.4752.32551444348348138.668242161916
Trimmed Mean ( 19 / 40 )322.3573170731712.29766913201012140.297535699214
Trimmed Mean ( 20 / 40 )322.24252.26994519464873141.960475856276
Trimmed Mean ( 21 / 40 )322.1653846153852.24788932482457143.31905982094
Trimmed Mean ( 22 / 40 )322.1421052631582.23335736815391144.241181396527
Trimmed Mean ( 23 / 40 )322.1256756756762.21852876993717145.197880703976
Trimmed Mean ( 24 / 40 )322.1277777777782.20649934671792145.990425175938
Trimmed Mean ( 25 / 40 )322.142.1941097507517146.820367527028
Trimmed Mean ( 26 / 40 )322.1632352941182.18071089770442147.733124841652
Trimmed Mean ( 27 / 40 )322.2060606060612.1675148550886148.652296361259
Trimmed Mean ( 28 / 40 )322.2468752.15132154007708149.790195931592
Trimmed Mean ( 29 / 40 )322.2887096774192.13084931394128151.24894452593
Trimmed Mean ( 30 / 40 )322.3416666666672.10727860444717152.965851779827
Trimmed Mean ( 31 / 40 )322.4120689655172.08179688425869154.872010522931
Trimmed Mean ( 32 / 40 )322.5142857142862.05806842453651156.707270695782
Trimmed Mean ( 33 / 40 )322.620370370372.0282566786885159.062890688461
Trimmed Mean ( 34 / 40 )322.6788461538462.00531596781097160.911722308823
Trimmed Mean ( 35 / 40 )322.741.97533773914069163.384718271214
Trimmed Mean ( 36 / 40 )322.78751.94305141547811166.124013718172
Trimmed Mean ( 37 / 40 )322.8347826086961.91163035203319168.879293146466
Trimmed Mean ( 38 / 40 )322.8751.87734103326479171.985267609319
Trimmed Mean ( 39 / 40 )322.9238095238091.83338763362879176.135042912149
Trimmed Mean ( 40 / 40 )322.97251.77531863337261181.923680588223
Median322.8
Midrange370.95
Midmean - Weighted Average at Xnp321.873770491803
Midmean - Weighted Average at X(n+1)p322.341666666667
Midmean - Empirical Distribution Function321.873770491803
Midmean - Empirical Distribution Function - Averaging322.341666666667
Midmean - Empirical Distribution Function - Interpolation322.341666666667
Midmean - Closest Observation321.873770491803
Midmean - True Basic - Statistics Graphics Toolkit322.341666666667
Midmean - MS Excel (old versions)322.288709677419
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')