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, 25 Nov 2010 16:50:14 +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/Nov/25/t129070370853j7xyhtdun0b0a.htm/, Retrieved Thu, 28 Mar 2024 10:19:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=101216, Retrieved Thu, 28 Mar 2024 10:19:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact95
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [Arabica Price in ...] [2008-01-06 21:28:17] [74be16979710d4c4e7c6647856088456]
-  M D  [Central Tendency] [] [2010-11-16 19:10:53] [1908ef7bb1a3d37a854f5aaad1a1c348]
- R       [Central Tendency] [Central Tendency] [2010-11-16 21:41:41] [c2a9e95daa10045f9fd6252038bcb219]
- R           [Central Tendency] [WS 6- Hypothese 1] [2010-11-25 16:50:14] [b5e30b7400ffb7c52b5936a3d8d7c96c] [Current]
Feedback Forum

Post a new message
Dataseries X:
87.48
82.39
83.48
79.31
78.16
72.77
72.45
68.46
67.62
68.76
70.07
68.55
65.3
58.96
59.17
62.37
66.28
55.62
55.23
55.85
56.75
50.89
53.88
52.95
55.08
53.61
58.78
61.85
55.91
53.32
46.41
44.57
50
50
53.36
46.23
50.45
49.07
45.85
48.45
49.96
46.53
50.51
47.58
48.05
46.84
47.67
49.16
55.54
55.82
58.22
56.19
57.77
63.19
54.76
55.74
62.54
61.39
69.6
79.23
80
93.68
107.63
100.18
97.3
90.45
80.64
80.58
75.82
85.59
89.35
89.42
104.73
95.32
89.27
90.44
86.97
79.98
81.22
87.35
83.64
82.22
94.4
102.18




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 3 seconds \tabularnewline
R Server & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=101216&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=101216&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=101216&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 time3 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean67.62309523809521.8731344896454236.1015696480481
Geometric Mean65.5687534182011
Harmonic Mean63.6541023117357
Quadratic Mean69.7430966715225
Winsorized Mean ( 1 / 28 )67.60380952380951.8623434634073236.3003983164966
Winsorized Mean ( 2 / 28 )67.55214285714291.8469270897971736.5754247854806
Winsorized Mean ( 3 / 28 )67.48714285714281.8302788112760336.8726023824165
Winsorized Mean ( 4 / 28 )67.35571428571431.8009827374487737.39942248482
Winsorized Mean ( 5 / 28 )67.25630952380951.7753874657280337.8826091893297
Winsorized Mean ( 6 / 28 )67.24345238095241.7557780482224538.2983785729806
Winsorized Mean ( 7 / 28 )67.19095238095241.7436845605752538.5338919092027
Winsorized Mean ( 8 / 28 )66.91952380952381.6847288845285939.7212420491317
Winsorized Mean ( 9 / 28 )66.96130952380951.6788099798244239.8861755222666
Winsorized Mean ( 10 / 28 )66.91369047619051.6488777001652340.5813544991755
Winsorized Mean ( 11 / 28 )66.91630952380951.6458369723752940.6579209526659
Winsorized Mean ( 12 / 28 )67.01916666666671.6293212917423641.1331804269235
Winsorized Mean ( 13 / 28 )66.74833333333331.583889649224942.1420351891292
Winsorized Mean ( 14 / 28 )66.72666666666671.5804780729241642.2192928897841
Winsorized Mean ( 15 / 28 )66.73916666666671.5596620844897742.7907861134546
Winsorized Mean ( 16 / 28 )66.48773809523811.5177406846192343.8070473889409
Winsorized Mean ( 17 / 28 )66.171.4493733684652545.6542126685189
Winsorized Mean ( 18 / 28 )66.57714285714281.3902316945073447.8892425774654
Winsorized Mean ( 19 / 28 )66.41428571428571.3446695435907449.3907860342669
Winsorized Mean ( 20 / 28 )66.38333333333331.3377688665297449.6224235697278
Winsorized Mean ( 21 / 28 )66.19583333333331.2951398426204851.1109543193405
Winsorized Mean ( 22 / 28 )66.11464285714291.2657645100062752.232972511463
Winsorized Mean ( 23 / 28 )66.33916666666671.235853353528153.6788337202648
Winsorized Mean ( 24 / 28 )66.2648809523811.2026646225450855.0983871232123
Winsorized Mean ( 25 / 28 )66.30357142857141.1968560081126755.398118887439
Winsorized Mean ( 26 / 28 )66.19214285714291.1577568607841357.1727493908452
Winsorized Mean ( 27 / 28 )66.19214285714291.1514000690848557.4883957665152
Winsorized Mean ( 28 / 28 )65.87547619047621.098602518186259.9629757805736
Trimmed Mean ( 1 / 28 )67.41634146341461.8334230536656336.7707503888024
Trimmed Mean ( 2 / 28 )67.21951.799532691625237.3538643186818
Trimmed Mean ( 3 / 28 )67.04038461538461.7692789962515837.8913584332472
Trimmed Mean ( 4 / 28 )66.87578947368421.7408893297267438.4147276519763
Trimmed Mean ( 5 / 28 )66.73959459459461.7174544895577138.8596000653163
Trimmed Mean ( 6 / 28 )66.61902777777781.6969161497830339.2588801669993
Trimmed Mean ( 7 / 28 )66.49414285714291.6770753712777739.6488696906215
Trimmed Mean ( 8 / 28 )66.37117647058821.6557507935955140.0852451512109
Trimmed Mean ( 9 / 28 )66.28393939393941.642555089017240.3541651888214
Trimmed Mean ( 10 / 28 )66.185156251.6269201108940540.6812576762781
Trimmed Mean ( 11 / 28 )66.08645161290321.6129094341498740.9734422861355
Trimmed Mean ( 12 / 28 )65.98083333333331.5954046524875541.3568013797982
Trimmed Mean ( 13 / 28 )65.85551724137931.5759128596923941.7888063012786
Trimmed Mean ( 14 / 28 )65.75251.5595168093263542.1620976489523
Trimmed Mean ( 15 / 28 )65.64425925925931.5386494663902242.6635570304816
Trimmed Mean ( 16 / 28 )65.52634615384611.5152870848077243.2435192055775
Trimmed Mean ( 17 / 28 )65.42541.4929348499256243.8233456759747
Trimmed Mean ( 18 / 28 )65.348751.4763745135784444.262989775953
Trimmed Mean ( 19 / 28 )65.22413043478261.463596311125744.5642899882799
Trimmed Mean ( 20 / 28 )65.10454545454551.4535026752323344.7914864994238
Trimmed Mean ( 21 / 28 )64.97666666666671.4389657317257145.155117480624
Trimmed Mean ( 22 / 28 )64.854751.4259432769807745.4819985107125
Trimmed Mean ( 23 / 28 )64.72815789473681.4116317170527745.8534312546316
Trimmed Mean ( 24 / 28 )64.56472222222221.3944718796706746.300483475845
Trimmed Mean ( 25 / 28 )64.3897058823531.374871926318246.8332392638081
Trimmed Mean ( 26 / 28 )64.188751.3442816277692947.7494809674034
Trimmed Mean ( 27 / 28 )63.9731.307707843747148.9199482177088
Trimmed Mean ( 28 / 28 )63.72642857142861.251208856131950.9318873976311
Median62.455
Midrange76.1
Midmean - Weighted Average at Xnp64.706511627907
Midmean - Weighted Average at X(n+1)p64.9766666666666
Midmean - Empirical Distribution Function64.706511627907
Midmean - Empirical Distribution Function - Averaging64.9766666666666
Midmean - Empirical Distribution Function - Interpolation64.9766666666666
Midmean - Closest Observation64.706511627907
Midmean - True Basic - Statistics Graphics Toolkit64.9766666666666
Midmean - MS Excel (old versions)65.1045454545454
Number of observations84

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 67.6230952380952 & 1.87313448964542 & 36.1015696480481 \tabularnewline
Geometric Mean & 65.5687534182011 &  &  \tabularnewline
Harmonic Mean & 63.6541023117357 &  &  \tabularnewline
Quadratic Mean & 69.7430966715225 &  &  \tabularnewline
Winsorized Mean ( 1 / 28 ) & 67.6038095238095 & 1.86234346340732 & 36.3003983164966 \tabularnewline
Winsorized Mean ( 2 / 28 ) & 67.5521428571429 & 1.84692708979717 & 36.5754247854806 \tabularnewline
Winsorized Mean ( 3 / 28 ) & 67.4871428571428 & 1.83027881127603 & 36.8726023824165 \tabularnewline
Winsorized Mean ( 4 / 28 ) & 67.3557142857143 & 1.80098273744877 & 37.39942248482 \tabularnewline
Winsorized Mean ( 5 / 28 ) & 67.2563095238095 & 1.77538746572803 & 37.8826091893297 \tabularnewline
Winsorized Mean ( 6 / 28 ) & 67.2434523809524 & 1.75577804822245 & 38.2983785729806 \tabularnewline
Winsorized Mean ( 7 / 28 ) & 67.1909523809524 & 1.74368456057525 & 38.5338919092027 \tabularnewline
Winsorized Mean ( 8 / 28 ) & 66.9195238095238 & 1.68472888452859 & 39.7212420491317 \tabularnewline
Winsorized Mean ( 9 / 28 ) & 66.9613095238095 & 1.67880997982442 & 39.8861755222666 \tabularnewline
Winsorized Mean ( 10 / 28 ) & 66.9136904761905 & 1.64887770016523 & 40.5813544991755 \tabularnewline
Winsorized Mean ( 11 / 28 ) & 66.9163095238095 & 1.64583697237529 & 40.6579209526659 \tabularnewline
Winsorized Mean ( 12 / 28 ) & 67.0191666666667 & 1.62932129174236 & 41.1331804269235 \tabularnewline
Winsorized Mean ( 13 / 28 ) & 66.7483333333333 & 1.5838896492249 & 42.1420351891292 \tabularnewline
Winsorized Mean ( 14 / 28 ) & 66.7266666666667 & 1.58047807292416 & 42.2192928897841 \tabularnewline
Winsorized Mean ( 15 / 28 ) & 66.7391666666667 & 1.55966208448977 & 42.7907861134546 \tabularnewline
Winsorized Mean ( 16 / 28 ) & 66.4877380952381 & 1.51774068461923 & 43.8070473889409 \tabularnewline
Winsorized Mean ( 17 / 28 ) & 66.17 & 1.44937336846525 & 45.6542126685189 \tabularnewline
Winsorized Mean ( 18 / 28 ) & 66.5771428571428 & 1.39023169450734 & 47.8892425774654 \tabularnewline
Winsorized Mean ( 19 / 28 ) & 66.4142857142857 & 1.34466954359074 & 49.3907860342669 \tabularnewline
Winsorized Mean ( 20 / 28 ) & 66.3833333333333 & 1.33776886652974 & 49.6224235697278 \tabularnewline
Winsorized Mean ( 21 / 28 ) & 66.1958333333333 & 1.29513984262048 & 51.1109543193405 \tabularnewline
Winsorized Mean ( 22 / 28 ) & 66.1146428571429 & 1.26576451000627 & 52.232972511463 \tabularnewline
Winsorized Mean ( 23 / 28 ) & 66.3391666666667 & 1.2358533535281 & 53.6788337202648 \tabularnewline
Winsorized Mean ( 24 / 28 ) & 66.264880952381 & 1.20266462254508 & 55.0983871232123 \tabularnewline
Winsorized Mean ( 25 / 28 ) & 66.3035714285714 & 1.19685600811267 & 55.398118887439 \tabularnewline
Winsorized Mean ( 26 / 28 ) & 66.1921428571429 & 1.15775686078413 & 57.1727493908452 \tabularnewline
Winsorized Mean ( 27 / 28 ) & 66.1921428571429 & 1.15140006908485 & 57.4883957665152 \tabularnewline
Winsorized Mean ( 28 / 28 ) & 65.8754761904762 & 1.0986025181862 & 59.9629757805736 \tabularnewline
Trimmed Mean ( 1 / 28 ) & 67.4163414634146 & 1.83342305366563 & 36.7707503888024 \tabularnewline
Trimmed Mean ( 2 / 28 ) & 67.2195 & 1.7995326916252 & 37.3538643186818 \tabularnewline
Trimmed Mean ( 3 / 28 ) & 67.0403846153846 & 1.76927899625158 & 37.8913584332472 \tabularnewline
Trimmed Mean ( 4 / 28 ) & 66.8757894736842 & 1.74088932972674 & 38.4147276519763 \tabularnewline
Trimmed Mean ( 5 / 28 ) & 66.7395945945946 & 1.71745448955771 & 38.8596000653163 \tabularnewline
Trimmed Mean ( 6 / 28 ) & 66.6190277777778 & 1.69691614978303 & 39.2588801669993 \tabularnewline
Trimmed Mean ( 7 / 28 ) & 66.4941428571429 & 1.67707537127777 & 39.6488696906215 \tabularnewline
Trimmed Mean ( 8 / 28 ) & 66.3711764705882 & 1.65575079359551 & 40.0852451512109 \tabularnewline
Trimmed Mean ( 9 / 28 ) & 66.2839393939394 & 1.6425550890172 & 40.3541651888214 \tabularnewline
Trimmed Mean ( 10 / 28 ) & 66.18515625 & 1.62692011089405 & 40.6812576762781 \tabularnewline
Trimmed Mean ( 11 / 28 ) & 66.0864516129032 & 1.61290943414987 & 40.9734422861355 \tabularnewline
Trimmed Mean ( 12 / 28 ) & 65.9808333333333 & 1.59540465248755 & 41.3568013797982 \tabularnewline
Trimmed Mean ( 13 / 28 ) & 65.8555172413793 & 1.57591285969239 & 41.7888063012786 \tabularnewline
Trimmed Mean ( 14 / 28 ) & 65.7525 & 1.55951680932635 & 42.1620976489523 \tabularnewline
Trimmed Mean ( 15 / 28 ) & 65.6442592592593 & 1.53864946639022 & 42.6635570304816 \tabularnewline
Trimmed Mean ( 16 / 28 ) & 65.5263461538461 & 1.51528708480772 & 43.2435192055775 \tabularnewline
Trimmed Mean ( 17 / 28 ) & 65.4254 & 1.49293484992562 & 43.8233456759747 \tabularnewline
Trimmed Mean ( 18 / 28 ) & 65.34875 & 1.47637451357844 & 44.262989775953 \tabularnewline
Trimmed Mean ( 19 / 28 ) & 65.2241304347826 & 1.4635963111257 & 44.5642899882799 \tabularnewline
Trimmed Mean ( 20 / 28 ) & 65.1045454545455 & 1.45350267523233 & 44.7914864994238 \tabularnewline
Trimmed Mean ( 21 / 28 ) & 64.9766666666667 & 1.43896573172571 & 45.155117480624 \tabularnewline
Trimmed Mean ( 22 / 28 ) & 64.85475 & 1.42594327698077 & 45.4819985107125 \tabularnewline
Trimmed Mean ( 23 / 28 ) & 64.7281578947368 & 1.41163171705277 & 45.8534312546316 \tabularnewline
Trimmed Mean ( 24 / 28 ) & 64.5647222222222 & 1.39447187967067 & 46.300483475845 \tabularnewline
Trimmed Mean ( 25 / 28 ) & 64.389705882353 & 1.3748719263182 & 46.8332392638081 \tabularnewline
Trimmed Mean ( 26 / 28 ) & 64.18875 & 1.34428162776929 & 47.7494809674034 \tabularnewline
Trimmed Mean ( 27 / 28 ) & 63.973 & 1.3077078437471 & 48.9199482177088 \tabularnewline
Trimmed Mean ( 28 / 28 ) & 63.7264285714286 & 1.2512088561319 & 50.9318873976311 \tabularnewline
Median & 62.455 &  &  \tabularnewline
Midrange & 76.1 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 64.706511627907 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 64.9766666666666 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 64.706511627907 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 64.9766666666666 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 64.9766666666666 &  &  \tabularnewline
Midmean - Closest Observation & 64.706511627907 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 64.9766666666666 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 65.1045454545454 &  &  \tabularnewline
Number of observations & 84 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=101216&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]67.6230952380952[/C][C]1.87313448964542[/C][C]36.1015696480481[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]65.5687534182011[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]63.6541023117357[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]69.7430966715225[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 28 )[/C][C]67.6038095238095[/C][C]1.86234346340732[/C][C]36.3003983164966[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 28 )[/C][C]67.5521428571429[/C][C]1.84692708979717[/C][C]36.5754247854806[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 28 )[/C][C]67.4871428571428[/C][C]1.83027881127603[/C][C]36.8726023824165[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 28 )[/C][C]67.3557142857143[/C][C]1.80098273744877[/C][C]37.39942248482[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 28 )[/C][C]67.2563095238095[/C][C]1.77538746572803[/C][C]37.8826091893297[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 28 )[/C][C]67.2434523809524[/C][C]1.75577804822245[/C][C]38.2983785729806[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 28 )[/C][C]67.1909523809524[/C][C]1.74368456057525[/C][C]38.5338919092027[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 28 )[/C][C]66.9195238095238[/C][C]1.68472888452859[/C][C]39.7212420491317[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 28 )[/C][C]66.9613095238095[/C][C]1.67880997982442[/C][C]39.8861755222666[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 28 )[/C][C]66.9136904761905[/C][C]1.64887770016523[/C][C]40.5813544991755[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 28 )[/C][C]66.9163095238095[/C][C]1.64583697237529[/C][C]40.6579209526659[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 28 )[/C][C]67.0191666666667[/C][C]1.62932129174236[/C][C]41.1331804269235[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 28 )[/C][C]66.7483333333333[/C][C]1.5838896492249[/C][C]42.1420351891292[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 28 )[/C][C]66.7266666666667[/C][C]1.58047807292416[/C][C]42.2192928897841[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 28 )[/C][C]66.7391666666667[/C][C]1.55966208448977[/C][C]42.7907861134546[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 28 )[/C][C]66.4877380952381[/C][C]1.51774068461923[/C][C]43.8070473889409[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 28 )[/C][C]66.17[/C][C]1.44937336846525[/C][C]45.6542126685189[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 28 )[/C][C]66.5771428571428[/C][C]1.39023169450734[/C][C]47.8892425774654[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 28 )[/C][C]66.4142857142857[/C][C]1.34466954359074[/C][C]49.3907860342669[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 28 )[/C][C]66.3833333333333[/C][C]1.33776886652974[/C][C]49.6224235697278[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 28 )[/C][C]66.1958333333333[/C][C]1.29513984262048[/C][C]51.1109543193405[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 28 )[/C][C]66.1146428571429[/C][C]1.26576451000627[/C][C]52.232972511463[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 28 )[/C][C]66.3391666666667[/C][C]1.2358533535281[/C][C]53.6788337202648[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 28 )[/C][C]66.264880952381[/C][C]1.20266462254508[/C][C]55.0983871232123[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 28 )[/C][C]66.3035714285714[/C][C]1.19685600811267[/C][C]55.398118887439[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 28 )[/C][C]66.1921428571429[/C][C]1.15775686078413[/C][C]57.1727493908452[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 28 )[/C][C]66.1921428571429[/C][C]1.15140006908485[/C][C]57.4883957665152[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 28 )[/C][C]65.8754761904762[/C][C]1.0986025181862[/C][C]59.9629757805736[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 28 )[/C][C]67.4163414634146[/C][C]1.83342305366563[/C][C]36.7707503888024[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 28 )[/C][C]67.2195[/C][C]1.7995326916252[/C][C]37.3538643186818[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 28 )[/C][C]67.0403846153846[/C][C]1.76927899625158[/C][C]37.8913584332472[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 28 )[/C][C]66.8757894736842[/C][C]1.74088932972674[/C][C]38.4147276519763[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 28 )[/C][C]66.7395945945946[/C][C]1.71745448955771[/C][C]38.8596000653163[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 28 )[/C][C]66.6190277777778[/C][C]1.69691614978303[/C][C]39.2588801669993[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 28 )[/C][C]66.4941428571429[/C][C]1.67707537127777[/C][C]39.6488696906215[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 28 )[/C][C]66.3711764705882[/C][C]1.65575079359551[/C][C]40.0852451512109[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 28 )[/C][C]66.2839393939394[/C][C]1.6425550890172[/C][C]40.3541651888214[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 28 )[/C][C]66.18515625[/C][C]1.62692011089405[/C][C]40.6812576762781[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 28 )[/C][C]66.0864516129032[/C][C]1.61290943414987[/C][C]40.9734422861355[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 28 )[/C][C]65.9808333333333[/C][C]1.59540465248755[/C][C]41.3568013797982[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 28 )[/C][C]65.8555172413793[/C][C]1.57591285969239[/C][C]41.7888063012786[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 28 )[/C][C]65.7525[/C][C]1.55951680932635[/C][C]42.1620976489523[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 28 )[/C][C]65.6442592592593[/C][C]1.53864946639022[/C][C]42.6635570304816[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 28 )[/C][C]65.5263461538461[/C][C]1.51528708480772[/C][C]43.2435192055775[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 28 )[/C][C]65.4254[/C][C]1.49293484992562[/C][C]43.8233456759747[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 28 )[/C][C]65.34875[/C][C]1.47637451357844[/C][C]44.262989775953[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 28 )[/C][C]65.2241304347826[/C][C]1.4635963111257[/C][C]44.5642899882799[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 28 )[/C][C]65.1045454545455[/C][C]1.45350267523233[/C][C]44.7914864994238[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 28 )[/C][C]64.9766666666667[/C][C]1.43896573172571[/C][C]45.155117480624[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 28 )[/C][C]64.85475[/C][C]1.42594327698077[/C][C]45.4819985107125[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 28 )[/C][C]64.7281578947368[/C][C]1.41163171705277[/C][C]45.8534312546316[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 28 )[/C][C]64.5647222222222[/C][C]1.39447187967067[/C][C]46.300483475845[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 28 )[/C][C]64.389705882353[/C][C]1.3748719263182[/C][C]46.8332392638081[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 28 )[/C][C]64.18875[/C][C]1.34428162776929[/C][C]47.7494809674034[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 28 )[/C][C]63.973[/C][C]1.3077078437471[/C][C]48.9199482177088[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 28 )[/C][C]63.7264285714286[/C][C]1.2512088561319[/C][C]50.9318873976311[/C][/ROW]
[ROW][C]Median[/C][C]62.455[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]76.1[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]64.706511627907[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]64.9766666666666[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]64.706511627907[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]64.9766666666666[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]64.9766666666666[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]64.706511627907[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]64.9766666666666[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]65.1045454545454[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]84[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=101216&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=101216&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 Mean67.62309523809521.8731344896454236.1015696480481
Geometric Mean65.5687534182011
Harmonic Mean63.6541023117357
Quadratic Mean69.7430966715225
Winsorized Mean ( 1 / 28 )67.60380952380951.8623434634073236.3003983164966
Winsorized Mean ( 2 / 28 )67.55214285714291.8469270897971736.5754247854806
Winsorized Mean ( 3 / 28 )67.48714285714281.8302788112760336.8726023824165
Winsorized Mean ( 4 / 28 )67.35571428571431.8009827374487737.39942248482
Winsorized Mean ( 5 / 28 )67.25630952380951.7753874657280337.8826091893297
Winsorized Mean ( 6 / 28 )67.24345238095241.7557780482224538.2983785729806
Winsorized Mean ( 7 / 28 )67.19095238095241.7436845605752538.5338919092027
Winsorized Mean ( 8 / 28 )66.91952380952381.6847288845285939.7212420491317
Winsorized Mean ( 9 / 28 )66.96130952380951.6788099798244239.8861755222666
Winsorized Mean ( 10 / 28 )66.91369047619051.6488777001652340.5813544991755
Winsorized Mean ( 11 / 28 )66.91630952380951.6458369723752940.6579209526659
Winsorized Mean ( 12 / 28 )67.01916666666671.6293212917423641.1331804269235
Winsorized Mean ( 13 / 28 )66.74833333333331.583889649224942.1420351891292
Winsorized Mean ( 14 / 28 )66.72666666666671.5804780729241642.2192928897841
Winsorized Mean ( 15 / 28 )66.73916666666671.5596620844897742.7907861134546
Winsorized Mean ( 16 / 28 )66.48773809523811.5177406846192343.8070473889409
Winsorized Mean ( 17 / 28 )66.171.4493733684652545.6542126685189
Winsorized Mean ( 18 / 28 )66.57714285714281.3902316945073447.8892425774654
Winsorized Mean ( 19 / 28 )66.41428571428571.3446695435907449.3907860342669
Winsorized Mean ( 20 / 28 )66.38333333333331.3377688665297449.6224235697278
Winsorized Mean ( 21 / 28 )66.19583333333331.2951398426204851.1109543193405
Winsorized Mean ( 22 / 28 )66.11464285714291.2657645100062752.232972511463
Winsorized Mean ( 23 / 28 )66.33916666666671.235853353528153.6788337202648
Winsorized Mean ( 24 / 28 )66.2648809523811.2026646225450855.0983871232123
Winsorized Mean ( 25 / 28 )66.30357142857141.1968560081126755.398118887439
Winsorized Mean ( 26 / 28 )66.19214285714291.1577568607841357.1727493908452
Winsorized Mean ( 27 / 28 )66.19214285714291.1514000690848557.4883957665152
Winsorized Mean ( 28 / 28 )65.87547619047621.098602518186259.9629757805736
Trimmed Mean ( 1 / 28 )67.41634146341461.8334230536656336.7707503888024
Trimmed Mean ( 2 / 28 )67.21951.799532691625237.3538643186818
Trimmed Mean ( 3 / 28 )67.04038461538461.7692789962515837.8913584332472
Trimmed Mean ( 4 / 28 )66.87578947368421.7408893297267438.4147276519763
Trimmed Mean ( 5 / 28 )66.73959459459461.7174544895577138.8596000653163
Trimmed Mean ( 6 / 28 )66.61902777777781.6969161497830339.2588801669993
Trimmed Mean ( 7 / 28 )66.49414285714291.6770753712777739.6488696906215
Trimmed Mean ( 8 / 28 )66.37117647058821.6557507935955140.0852451512109
Trimmed Mean ( 9 / 28 )66.28393939393941.642555089017240.3541651888214
Trimmed Mean ( 10 / 28 )66.185156251.6269201108940540.6812576762781
Trimmed Mean ( 11 / 28 )66.08645161290321.6129094341498740.9734422861355
Trimmed Mean ( 12 / 28 )65.98083333333331.5954046524875541.3568013797982
Trimmed Mean ( 13 / 28 )65.85551724137931.5759128596923941.7888063012786
Trimmed Mean ( 14 / 28 )65.75251.5595168093263542.1620976489523
Trimmed Mean ( 15 / 28 )65.64425925925931.5386494663902242.6635570304816
Trimmed Mean ( 16 / 28 )65.52634615384611.5152870848077243.2435192055775
Trimmed Mean ( 17 / 28 )65.42541.4929348499256243.8233456759747
Trimmed Mean ( 18 / 28 )65.348751.4763745135784444.262989775953
Trimmed Mean ( 19 / 28 )65.22413043478261.463596311125744.5642899882799
Trimmed Mean ( 20 / 28 )65.10454545454551.4535026752323344.7914864994238
Trimmed Mean ( 21 / 28 )64.97666666666671.4389657317257145.155117480624
Trimmed Mean ( 22 / 28 )64.854751.4259432769807745.4819985107125
Trimmed Mean ( 23 / 28 )64.72815789473681.4116317170527745.8534312546316
Trimmed Mean ( 24 / 28 )64.56472222222221.3944718796706746.300483475845
Trimmed Mean ( 25 / 28 )64.3897058823531.374871926318246.8332392638081
Trimmed Mean ( 26 / 28 )64.188751.3442816277692947.7494809674034
Trimmed Mean ( 27 / 28 )63.9731.307707843747148.9199482177088
Trimmed Mean ( 28 / 28 )63.72642857142861.251208856131950.9318873976311
Median62.455
Midrange76.1
Midmean - Weighted Average at Xnp64.706511627907
Midmean - Weighted Average at X(n+1)p64.9766666666666
Midmean - Empirical Distribution Function64.706511627907
Midmean - Empirical Distribution Function - Averaging64.9766666666666
Midmean - Empirical Distribution Function - Interpolation64.9766666666666
Midmean - Closest Observation64.706511627907
Midmean - True Basic - Statistics Graphics Toolkit64.9766666666666
Midmean - MS Excel (old versions)65.1045454545454
Number of observations84



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