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 20:24:08 +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/t1290716540jehw2c1ek0753zu.htm/, Retrieved Fri, 29 Mar 2024 07:35:13 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=101502, Retrieved Fri, 29 Mar 2024 07:35:13 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact113
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Central Tendency] [gehuwde mannen] [2010-11-25 20:24:08] [4c854bb223ec27caaa7bcfc5e77b0dbd] [Current]
Feedback Forum

Post a new message
Dataseries X:
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
54
222
522
1084
2023
3229
5198
8080
11132
14877
18448
21418
24525
26708
30336
33613
36727
39660
42131
43769
45025
46760
49385
51382
53800
54017
53313
53577
53629
54090
53725
52995
52453
52220
51870
51122
51296
49265
50020
50058
50799
50216
50571
42873
42535
40069
35293
31552
34590
36992
37279
35618
33745
32570
32227
31114
30698
29453
27620
24178
22031
19962
17784
16259
14147
11990
9988
8383
6661
4111
2154
1601
1295
1137
876
515
342
206
126
52
33
17




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=101502&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=101502&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=101502&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean22634.212082.9618688613310.8663583037039
Geometric Mean0
Harmonic Mean0
Quadratic Mean30689.4403156851
Winsorized Mean ( 1 / 33 )22633.482082.8506395230610.8665881127140
Winsorized Mean ( 2 / 33 )22629.142082.1922350350910.8679398660896
Winsorized Mean ( 3 / 33 )22626.892081.8523722341010.8686332910908
Winsorized Mean ( 4 / 33 )22623.052081.2737482189210.8698099033632
Winsorized Mean ( 5 / 33 )22620.452080.8827734991410.8706027499869
Winsorized Mean ( 6 / 33 )22604.612078.5106991895610.8753878480462
Winsorized Mean ( 7 / 33 )22582.352075.2020994132310.8820003634273
Winsorized Mean ( 8 / 33 )22538.992068.8262119012110.8945787086133
Winsorized Mean ( 9 / 33 )22518.022065.7720456140410.9005347651060
Winsorized Mean ( 10 / 33 )22483.022060.7096127491510.9103290734913
Winsorized Mean ( 11 / 33 )22429.342053.0199850055810.925047083718
Winsorized Mean ( 12 / 33 )22419.022051.5513049801310.927837849133
Winsorized Mean ( 13 / 33 )22396.42048.3411435115110.9339208807794
Winsorized Mean ( 14 / 33 )22351.182041.9565298937610.9459626944962
Winsorized Mean ( 15 / 33 )22316.982037.1545257078910.9549765215995
Winsorized Mean ( 16 / 33 )22260.182029.2237125640710.9698008465871
Winsorized Mean ( 17 / 33 )22233.492025.4724234310910.9769403635411
Winsorized Mean ( 18 / 33 )22229.532024.2043134318610.9818607995710
Winsorized Mean ( 19 / 33 )22111.922007.2214169097111.0161837721138
Winsorized Mean ( 20 / 33 )22091.722003.5082371125311.0265181798497
Winsorized Mean ( 21 / 33 )21566.091932.7701068357211.1581247680343
Winsorized Mean ( 22 / 33 )21200.231881.4335573380711.2681257955210
Winsorized Mean ( 23 / 33 )20929.751842.7856765155011.3576691346851
Winsorized Mean ( 24 / 33 )20718.551815.6344432150711.4111902191678
Winsorized Mean ( 25 / 33 )20664.051801.8273844372811.4683849177115
Winsorized Mean ( 26 / 33 )20603.991783.8653981413111.5501932048619
Winsorized Mean ( 27 / 33 )20049.141716.9085478913011.6774653050823
Winsorized Mean ( 28 / 33 )20033.741692.0939220189111.839614656908
Winsorized Mean ( 29 / 33 )19403.571605.8599413911112.0829777864633
Winsorized Mean ( 30 / 33 )19333.371594.3705986341112.1260201464846
Winsorized Mean ( 31 / 33 )19300.21579.5547320416412.2187598875119
Winsorized Mean ( 32 / 33 )19043.241529.0679641579512.4541488320874
Winsorized Mean ( 33 / 33 )19075.251501.3331977215512.7055406680868
Trimmed Mean ( 1 / 33 )22544.1938775512088.1796963069610.7960985912378
Trimmed Mean ( 2 / 33 )22451.18752092.9929978630210.7268335455126
Trimmed Mean ( 3 / 33 )22356.53191489362097.5851257040710.658223898012
Trimmed Mean ( 4 / 33 )22258.57608695652101.6604192810710.5909479394253
Trimmed Mean ( 5 / 33 )22157.33333333332105.1763441455610.5251673547218
Trimmed Mean ( 6 / 33 )22052.07954545452107.9581081316210.4613462005658
Trimmed Mean ( 7 / 33 )219452110.3229434334010.3988823456075
Trimmed Mean ( 8 / 33 )21836.60714285712112.3133506518210.3377688429223
Trimmed Mean ( 9 / 33 )21729.53658536592114.3535421003310.2771538215792
Trimmed Mean ( 10 / 33 )21620.0252115.7262279953710.2187252367168
Trimmed Mean ( 11 / 33 )21509.38461538462116.5962791554410.1622519264596
Trimmed Mean ( 12 / 33 )21399.34210526322117.2148058779910.1073079811517
Trimmed Mean ( 13 / 33 )21284.51351351352116.4757121042410.0565829278296
Trimmed Mean ( 14 / 33 )21165.72222222222114.3823289810410.0103571298869
Trimmed Mean ( 15 / 33 )21044.75714285712111.127403459589.96849224180898
Trimmed Mean ( 16 / 33 )20920.02941176472106.206069455419.93256534351072
Trimmed Mean ( 17 / 33 )20793.12121212122099.723888887349.90278832477334
Trimmed Mean ( 18 / 33 )20660.7343752090.704711478009.88218673903217
Trimmed Mean ( 19 / 33 )20520.16129032262078.235966897299.87383608847758
Trimmed Mean ( 20 / 33 )20380.53333333332063.992509110639.87432524264116
Trimmed Mean ( 21 / 33 )20233.01724137932045.446047360499.8917384144591
Trimmed Mean ( 22 / 33 )20119.66071428572032.225239056359.9003104221007
Trimmed Mean ( 23 / 33 )20028.70370370372021.870659242119.9060261902269
Trimmed Mean ( 24 / 33 )19953.36538461542012.677381337879.91384191506737
Trimmed Mean ( 25 / 33 )19889.62002.862048903719.93058908419918
Trimmed Mean ( 26 / 33 )19825.06251989.884148861959.96292297284656
Trimmed Mean ( 27 / 33 )19759.93478260871973.5346720637710.0124588953612
Trimmed Mean ( 28 / 33 )19735.59090909091961.5401735230410.0612728586867
Trimmed Mean ( 29 / 33 )19735.59090909091946.8908710192210.1369785039667
Trimmed Mean ( 30 / 33 )19736.6751940.0329201500710.1733711809763
Trimmed Mean ( 31 / 33 )19772.05263157891928.2421386594810.2539262238738
Trimmed Mean ( 32 / 33 )19814.33333333331910.4427891967010.3715920965447
Trimmed Mean ( 33 / 33 )19885.20588235291892.1654095818910.5092323227423
Median20690
Midrange27045
Midmean - Weighted Average at Xnp19503.9607843137
Midmean - Weighted Average at X(n+1)p19889.6
Midmean - Empirical Distribution Function19503.9607843137
Midmean - Empirical Distribution Function - Averaging19889.6
Midmean - Empirical Distribution Function - Interpolation19889.6
Midmean - Closest Observation19503.9607843137
Midmean - True Basic - Statistics Graphics Toolkit19889.6
Midmean - MS Excel (old versions)19953.3653846154
Number of observations100

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 22634.21 & 2082.96186886133 & 10.8663583037039 \tabularnewline
Geometric Mean & 0 &  &  \tabularnewline
Harmonic Mean & 0 &  &  \tabularnewline
Quadratic Mean & 30689.4403156851 &  &  \tabularnewline
Winsorized Mean ( 1 / 33 ) & 22633.48 & 2082.85063952306 & 10.8665881127140 \tabularnewline
Winsorized Mean ( 2 / 33 ) & 22629.14 & 2082.19223503509 & 10.8679398660896 \tabularnewline
Winsorized Mean ( 3 / 33 ) & 22626.89 & 2081.85237223410 & 10.8686332910908 \tabularnewline
Winsorized Mean ( 4 / 33 ) & 22623.05 & 2081.27374821892 & 10.8698099033632 \tabularnewline
Winsorized Mean ( 5 / 33 ) & 22620.45 & 2080.88277349914 & 10.8706027499869 \tabularnewline
Winsorized Mean ( 6 / 33 ) & 22604.61 & 2078.51069918956 & 10.8753878480462 \tabularnewline
Winsorized Mean ( 7 / 33 ) & 22582.35 & 2075.20209941323 & 10.8820003634273 \tabularnewline
Winsorized Mean ( 8 / 33 ) & 22538.99 & 2068.82621190121 & 10.8945787086133 \tabularnewline
Winsorized Mean ( 9 / 33 ) & 22518.02 & 2065.77204561404 & 10.9005347651060 \tabularnewline
Winsorized Mean ( 10 / 33 ) & 22483.02 & 2060.70961274915 & 10.9103290734913 \tabularnewline
Winsorized Mean ( 11 / 33 ) & 22429.34 & 2053.01998500558 & 10.925047083718 \tabularnewline
Winsorized Mean ( 12 / 33 ) & 22419.02 & 2051.55130498013 & 10.927837849133 \tabularnewline
Winsorized Mean ( 13 / 33 ) & 22396.4 & 2048.34114351151 & 10.9339208807794 \tabularnewline
Winsorized Mean ( 14 / 33 ) & 22351.18 & 2041.95652989376 & 10.9459626944962 \tabularnewline
Winsorized Mean ( 15 / 33 ) & 22316.98 & 2037.15452570789 & 10.9549765215995 \tabularnewline
Winsorized Mean ( 16 / 33 ) & 22260.18 & 2029.22371256407 & 10.9698008465871 \tabularnewline
Winsorized Mean ( 17 / 33 ) & 22233.49 & 2025.47242343109 & 10.9769403635411 \tabularnewline
Winsorized Mean ( 18 / 33 ) & 22229.53 & 2024.20431343186 & 10.9818607995710 \tabularnewline
Winsorized Mean ( 19 / 33 ) & 22111.92 & 2007.22141690971 & 11.0161837721138 \tabularnewline
Winsorized Mean ( 20 / 33 ) & 22091.72 & 2003.50823711253 & 11.0265181798497 \tabularnewline
Winsorized Mean ( 21 / 33 ) & 21566.09 & 1932.77010683572 & 11.1581247680343 \tabularnewline
Winsorized Mean ( 22 / 33 ) & 21200.23 & 1881.43355733807 & 11.2681257955210 \tabularnewline
Winsorized Mean ( 23 / 33 ) & 20929.75 & 1842.78567651550 & 11.3576691346851 \tabularnewline
Winsorized Mean ( 24 / 33 ) & 20718.55 & 1815.63444321507 & 11.4111902191678 \tabularnewline
Winsorized Mean ( 25 / 33 ) & 20664.05 & 1801.82738443728 & 11.4683849177115 \tabularnewline
Winsorized Mean ( 26 / 33 ) & 20603.99 & 1783.86539814131 & 11.5501932048619 \tabularnewline
Winsorized Mean ( 27 / 33 ) & 20049.14 & 1716.90854789130 & 11.6774653050823 \tabularnewline
Winsorized Mean ( 28 / 33 ) & 20033.74 & 1692.09392201891 & 11.839614656908 \tabularnewline
Winsorized Mean ( 29 / 33 ) & 19403.57 & 1605.85994139111 & 12.0829777864633 \tabularnewline
Winsorized Mean ( 30 / 33 ) & 19333.37 & 1594.37059863411 & 12.1260201464846 \tabularnewline
Winsorized Mean ( 31 / 33 ) & 19300.2 & 1579.55473204164 & 12.2187598875119 \tabularnewline
Winsorized Mean ( 32 / 33 ) & 19043.24 & 1529.06796415795 & 12.4541488320874 \tabularnewline
Winsorized Mean ( 33 / 33 ) & 19075.25 & 1501.33319772155 & 12.7055406680868 \tabularnewline
Trimmed Mean ( 1 / 33 ) & 22544.193877551 & 2088.17969630696 & 10.7960985912378 \tabularnewline
Trimmed Mean ( 2 / 33 ) & 22451.1875 & 2092.99299786302 & 10.7268335455126 \tabularnewline
Trimmed Mean ( 3 / 33 ) & 22356.5319148936 & 2097.58512570407 & 10.658223898012 \tabularnewline
Trimmed Mean ( 4 / 33 ) & 22258.5760869565 & 2101.66041928107 & 10.5909479394253 \tabularnewline
Trimmed Mean ( 5 / 33 ) & 22157.3333333333 & 2105.17634414556 & 10.5251673547218 \tabularnewline
Trimmed Mean ( 6 / 33 ) & 22052.0795454545 & 2107.95810813162 & 10.4613462005658 \tabularnewline
Trimmed Mean ( 7 / 33 ) & 21945 & 2110.32294343340 & 10.3988823456075 \tabularnewline
Trimmed Mean ( 8 / 33 ) & 21836.6071428571 & 2112.31335065182 & 10.3377688429223 \tabularnewline
Trimmed Mean ( 9 / 33 ) & 21729.5365853659 & 2114.35354210033 & 10.2771538215792 \tabularnewline
Trimmed Mean ( 10 / 33 ) & 21620.025 & 2115.72622799537 & 10.2187252367168 \tabularnewline
Trimmed Mean ( 11 / 33 ) & 21509.3846153846 & 2116.59627915544 & 10.1622519264596 \tabularnewline
Trimmed Mean ( 12 / 33 ) & 21399.3421052632 & 2117.21480587799 & 10.1073079811517 \tabularnewline
Trimmed Mean ( 13 / 33 ) & 21284.5135135135 & 2116.47571210424 & 10.0565829278296 \tabularnewline
Trimmed Mean ( 14 / 33 ) & 21165.7222222222 & 2114.38232898104 & 10.0103571298869 \tabularnewline
Trimmed Mean ( 15 / 33 ) & 21044.7571428571 & 2111.12740345958 & 9.96849224180898 \tabularnewline
Trimmed Mean ( 16 / 33 ) & 20920.0294117647 & 2106.20606945541 & 9.93256534351072 \tabularnewline
Trimmed Mean ( 17 / 33 ) & 20793.1212121212 & 2099.72388888734 & 9.90278832477334 \tabularnewline
Trimmed Mean ( 18 / 33 ) & 20660.734375 & 2090.70471147800 & 9.88218673903217 \tabularnewline
Trimmed Mean ( 19 / 33 ) & 20520.1612903226 & 2078.23596689729 & 9.87383608847758 \tabularnewline
Trimmed Mean ( 20 / 33 ) & 20380.5333333333 & 2063.99250911063 & 9.87432524264116 \tabularnewline
Trimmed Mean ( 21 / 33 ) & 20233.0172413793 & 2045.44604736049 & 9.8917384144591 \tabularnewline
Trimmed Mean ( 22 / 33 ) & 20119.6607142857 & 2032.22523905635 & 9.9003104221007 \tabularnewline
Trimmed Mean ( 23 / 33 ) & 20028.7037037037 & 2021.87065924211 & 9.9060261902269 \tabularnewline
Trimmed Mean ( 24 / 33 ) & 19953.3653846154 & 2012.67738133787 & 9.91384191506737 \tabularnewline
Trimmed Mean ( 25 / 33 ) & 19889.6 & 2002.86204890371 & 9.93058908419918 \tabularnewline
Trimmed Mean ( 26 / 33 ) & 19825.0625 & 1989.88414886195 & 9.96292297284656 \tabularnewline
Trimmed Mean ( 27 / 33 ) & 19759.9347826087 & 1973.53467206377 & 10.0124588953612 \tabularnewline
Trimmed Mean ( 28 / 33 ) & 19735.5909090909 & 1961.54017352304 & 10.0612728586867 \tabularnewline
Trimmed Mean ( 29 / 33 ) & 19735.5909090909 & 1946.89087101922 & 10.1369785039667 \tabularnewline
Trimmed Mean ( 30 / 33 ) & 19736.675 & 1940.03292015007 & 10.1733711809763 \tabularnewline
Trimmed Mean ( 31 / 33 ) & 19772.0526315789 & 1928.24213865948 & 10.2539262238738 \tabularnewline
Trimmed Mean ( 32 / 33 ) & 19814.3333333333 & 1910.44278919670 & 10.3715920965447 \tabularnewline
Trimmed Mean ( 33 / 33 ) & 19885.2058823529 & 1892.16540958189 & 10.5092323227423 \tabularnewline
Median & 20690 &  &  \tabularnewline
Midrange & 27045 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 19503.9607843137 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 19889.6 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 19503.9607843137 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 19889.6 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 19889.6 &  &  \tabularnewline
Midmean - Closest Observation & 19503.9607843137 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 19889.6 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 19953.3653846154 &  &  \tabularnewline
Number of observations & 100 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=101502&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]22634.21[/C][C]2082.96186886133[/C][C]10.8663583037039[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]0[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]0[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]30689.4403156851[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 33 )[/C][C]22633.48[/C][C]2082.85063952306[/C][C]10.8665881127140[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 33 )[/C][C]22629.14[/C][C]2082.19223503509[/C][C]10.8679398660896[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 33 )[/C][C]22626.89[/C][C]2081.85237223410[/C][C]10.8686332910908[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 33 )[/C][C]22623.05[/C][C]2081.27374821892[/C][C]10.8698099033632[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 33 )[/C][C]22620.45[/C][C]2080.88277349914[/C][C]10.8706027499869[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 33 )[/C][C]22604.61[/C][C]2078.51069918956[/C][C]10.8753878480462[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 33 )[/C][C]22582.35[/C][C]2075.20209941323[/C][C]10.8820003634273[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 33 )[/C][C]22538.99[/C][C]2068.82621190121[/C][C]10.8945787086133[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 33 )[/C][C]22518.02[/C][C]2065.77204561404[/C][C]10.9005347651060[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 33 )[/C][C]22483.02[/C][C]2060.70961274915[/C][C]10.9103290734913[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 33 )[/C][C]22429.34[/C][C]2053.01998500558[/C][C]10.925047083718[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 33 )[/C][C]22419.02[/C][C]2051.55130498013[/C][C]10.927837849133[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 33 )[/C][C]22396.4[/C][C]2048.34114351151[/C][C]10.9339208807794[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 33 )[/C][C]22351.18[/C][C]2041.95652989376[/C][C]10.9459626944962[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 33 )[/C][C]22316.98[/C][C]2037.15452570789[/C][C]10.9549765215995[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 33 )[/C][C]22260.18[/C][C]2029.22371256407[/C][C]10.9698008465871[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 33 )[/C][C]22233.49[/C][C]2025.47242343109[/C][C]10.9769403635411[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 33 )[/C][C]22229.53[/C][C]2024.20431343186[/C][C]10.9818607995710[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 33 )[/C][C]22111.92[/C][C]2007.22141690971[/C][C]11.0161837721138[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 33 )[/C][C]22091.72[/C][C]2003.50823711253[/C][C]11.0265181798497[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 33 )[/C][C]21566.09[/C][C]1932.77010683572[/C][C]11.1581247680343[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 33 )[/C][C]21200.23[/C][C]1881.43355733807[/C][C]11.2681257955210[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 33 )[/C][C]20929.75[/C][C]1842.78567651550[/C][C]11.3576691346851[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 33 )[/C][C]20718.55[/C][C]1815.63444321507[/C][C]11.4111902191678[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 33 )[/C][C]20664.05[/C][C]1801.82738443728[/C][C]11.4683849177115[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 33 )[/C][C]20603.99[/C][C]1783.86539814131[/C][C]11.5501932048619[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 33 )[/C][C]20049.14[/C][C]1716.90854789130[/C][C]11.6774653050823[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 33 )[/C][C]20033.74[/C][C]1692.09392201891[/C][C]11.839614656908[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 33 )[/C][C]19403.57[/C][C]1605.85994139111[/C][C]12.0829777864633[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 33 )[/C][C]19333.37[/C][C]1594.37059863411[/C][C]12.1260201464846[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 33 )[/C][C]19300.2[/C][C]1579.55473204164[/C][C]12.2187598875119[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 33 )[/C][C]19043.24[/C][C]1529.06796415795[/C][C]12.4541488320874[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 33 )[/C][C]19075.25[/C][C]1501.33319772155[/C][C]12.7055406680868[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 33 )[/C][C]22544.193877551[/C][C]2088.17969630696[/C][C]10.7960985912378[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 33 )[/C][C]22451.1875[/C][C]2092.99299786302[/C][C]10.7268335455126[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 33 )[/C][C]22356.5319148936[/C][C]2097.58512570407[/C][C]10.658223898012[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 33 )[/C][C]22258.5760869565[/C][C]2101.66041928107[/C][C]10.5909479394253[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 33 )[/C][C]22157.3333333333[/C][C]2105.17634414556[/C][C]10.5251673547218[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 33 )[/C][C]22052.0795454545[/C][C]2107.95810813162[/C][C]10.4613462005658[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 33 )[/C][C]21945[/C][C]2110.32294343340[/C][C]10.3988823456075[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 33 )[/C][C]21836.6071428571[/C][C]2112.31335065182[/C][C]10.3377688429223[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 33 )[/C][C]21729.5365853659[/C][C]2114.35354210033[/C][C]10.2771538215792[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 33 )[/C][C]21620.025[/C][C]2115.72622799537[/C][C]10.2187252367168[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 33 )[/C][C]21509.3846153846[/C][C]2116.59627915544[/C][C]10.1622519264596[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 33 )[/C][C]21399.3421052632[/C][C]2117.21480587799[/C][C]10.1073079811517[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 33 )[/C][C]21284.5135135135[/C][C]2116.47571210424[/C][C]10.0565829278296[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 33 )[/C][C]21165.7222222222[/C][C]2114.38232898104[/C][C]10.0103571298869[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 33 )[/C][C]21044.7571428571[/C][C]2111.12740345958[/C][C]9.96849224180898[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 33 )[/C][C]20920.0294117647[/C][C]2106.20606945541[/C][C]9.93256534351072[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 33 )[/C][C]20793.1212121212[/C][C]2099.72388888734[/C][C]9.90278832477334[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 33 )[/C][C]20660.734375[/C][C]2090.70471147800[/C][C]9.88218673903217[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 33 )[/C][C]20520.1612903226[/C][C]2078.23596689729[/C][C]9.87383608847758[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 33 )[/C][C]20380.5333333333[/C][C]2063.99250911063[/C][C]9.87432524264116[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 33 )[/C][C]20233.0172413793[/C][C]2045.44604736049[/C][C]9.8917384144591[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 33 )[/C][C]20119.6607142857[/C][C]2032.22523905635[/C][C]9.9003104221007[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 33 )[/C][C]20028.7037037037[/C][C]2021.87065924211[/C][C]9.9060261902269[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 33 )[/C][C]19953.3653846154[/C][C]2012.67738133787[/C][C]9.91384191506737[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 33 )[/C][C]19889.6[/C][C]2002.86204890371[/C][C]9.93058908419918[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 33 )[/C][C]19825.0625[/C][C]1989.88414886195[/C][C]9.96292297284656[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 33 )[/C][C]19759.9347826087[/C][C]1973.53467206377[/C][C]10.0124588953612[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 33 )[/C][C]19735.5909090909[/C][C]1961.54017352304[/C][C]10.0612728586867[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 33 )[/C][C]19735.5909090909[/C][C]1946.89087101922[/C][C]10.1369785039667[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 33 )[/C][C]19736.675[/C][C]1940.03292015007[/C][C]10.1733711809763[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 33 )[/C][C]19772.0526315789[/C][C]1928.24213865948[/C][C]10.2539262238738[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 33 )[/C][C]19814.3333333333[/C][C]1910.44278919670[/C][C]10.3715920965447[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 33 )[/C][C]19885.2058823529[/C][C]1892.16540958189[/C][C]10.5092323227423[/C][/ROW]
[ROW][C]Median[/C][C]20690[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]27045[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]19503.9607843137[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]19889.6[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]19503.9607843137[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]19889.6[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]19889.6[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]19503.9607843137[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]19889.6[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]19953.3653846154[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]100[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=101502&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=101502&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 Mean22634.212082.9618688613310.8663583037039
Geometric Mean0
Harmonic Mean0
Quadratic Mean30689.4403156851
Winsorized Mean ( 1 / 33 )22633.482082.8506395230610.8665881127140
Winsorized Mean ( 2 / 33 )22629.142082.1922350350910.8679398660896
Winsorized Mean ( 3 / 33 )22626.892081.8523722341010.8686332910908
Winsorized Mean ( 4 / 33 )22623.052081.2737482189210.8698099033632
Winsorized Mean ( 5 / 33 )22620.452080.8827734991410.8706027499869
Winsorized Mean ( 6 / 33 )22604.612078.5106991895610.8753878480462
Winsorized Mean ( 7 / 33 )22582.352075.2020994132310.8820003634273
Winsorized Mean ( 8 / 33 )22538.992068.8262119012110.8945787086133
Winsorized Mean ( 9 / 33 )22518.022065.7720456140410.9005347651060
Winsorized Mean ( 10 / 33 )22483.022060.7096127491510.9103290734913
Winsorized Mean ( 11 / 33 )22429.342053.0199850055810.925047083718
Winsorized Mean ( 12 / 33 )22419.022051.5513049801310.927837849133
Winsorized Mean ( 13 / 33 )22396.42048.3411435115110.9339208807794
Winsorized Mean ( 14 / 33 )22351.182041.9565298937610.9459626944962
Winsorized Mean ( 15 / 33 )22316.982037.1545257078910.9549765215995
Winsorized Mean ( 16 / 33 )22260.182029.2237125640710.9698008465871
Winsorized Mean ( 17 / 33 )22233.492025.4724234310910.9769403635411
Winsorized Mean ( 18 / 33 )22229.532024.2043134318610.9818607995710
Winsorized Mean ( 19 / 33 )22111.922007.2214169097111.0161837721138
Winsorized Mean ( 20 / 33 )22091.722003.5082371125311.0265181798497
Winsorized Mean ( 21 / 33 )21566.091932.7701068357211.1581247680343
Winsorized Mean ( 22 / 33 )21200.231881.4335573380711.2681257955210
Winsorized Mean ( 23 / 33 )20929.751842.7856765155011.3576691346851
Winsorized Mean ( 24 / 33 )20718.551815.6344432150711.4111902191678
Winsorized Mean ( 25 / 33 )20664.051801.8273844372811.4683849177115
Winsorized Mean ( 26 / 33 )20603.991783.8653981413111.5501932048619
Winsorized Mean ( 27 / 33 )20049.141716.9085478913011.6774653050823
Winsorized Mean ( 28 / 33 )20033.741692.0939220189111.839614656908
Winsorized Mean ( 29 / 33 )19403.571605.8599413911112.0829777864633
Winsorized Mean ( 30 / 33 )19333.371594.3705986341112.1260201464846
Winsorized Mean ( 31 / 33 )19300.21579.5547320416412.2187598875119
Winsorized Mean ( 32 / 33 )19043.241529.0679641579512.4541488320874
Winsorized Mean ( 33 / 33 )19075.251501.3331977215512.7055406680868
Trimmed Mean ( 1 / 33 )22544.1938775512088.1796963069610.7960985912378
Trimmed Mean ( 2 / 33 )22451.18752092.9929978630210.7268335455126
Trimmed Mean ( 3 / 33 )22356.53191489362097.5851257040710.658223898012
Trimmed Mean ( 4 / 33 )22258.57608695652101.6604192810710.5909479394253
Trimmed Mean ( 5 / 33 )22157.33333333332105.1763441455610.5251673547218
Trimmed Mean ( 6 / 33 )22052.07954545452107.9581081316210.4613462005658
Trimmed Mean ( 7 / 33 )219452110.3229434334010.3988823456075
Trimmed Mean ( 8 / 33 )21836.60714285712112.3133506518210.3377688429223
Trimmed Mean ( 9 / 33 )21729.53658536592114.3535421003310.2771538215792
Trimmed Mean ( 10 / 33 )21620.0252115.7262279953710.2187252367168
Trimmed Mean ( 11 / 33 )21509.38461538462116.5962791554410.1622519264596
Trimmed Mean ( 12 / 33 )21399.34210526322117.2148058779910.1073079811517
Trimmed Mean ( 13 / 33 )21284.51351351352116.4757121042410.0565829278296
Trimmed Mean ( 14 / 33 )21165.72222222222114.3823289810410.0103571298869
Trimmed Mean ( 15 / 33 )21044.75714285712111.127403459589.96849224180898
Trimmed Mean ( 16 / 33 )20920.02941176472106.206069455419.93256534351072
Trimmed Mean ( 17 / 33 )20793.12121212122099.723888887349.90278832477334
Trimmed Mean ( 18 / 33 )20660.7343752090.704711478009.88218673903217
Trimmed Mean ( 19 / 33 )20520.16129032262078.235966897299.87383608847758
Trimmed Mean ( 20 / 33 )20380.53333333332063.992509110639.87432524264116
Trimmed Mean ( 21 / 33 )20233.01724137932045.446047360499.8917384144591
Trimmed Mean ( 22 / 33 )20119.66071428572032.225239056359.9003104221007
Trimmed Mean ( 23 / 33 )20028.70370370372021.870659242119.9060261902269
Trimmed Mean ( 24 / 33 )19953.36538461542012.677381337879.91384191506737
Trimmed Mean ( 25 / 33 )19889.62002.862048903719.93058908419918
Trimmed Mean ( 26 / 33 )19825.06251989.884148861959.96292297284656
Trimmed Mean ( 27 / 33 )19759.93478260871973.5346720637710.0124588953612
Trimmed Mean ( 28 / 33 )19735.59090909091961.5401735230410.0612728586867
Trimmed Mean ( 29 / 33 )19735.59090909091946.8908710192210.1369785039667
Trimmed Mean ( 30 / 33 )19736.6751940.0329201500710.1733711809763
Trimmed Mean ( 31 / 33 )19772.05263157891928.2421386594810.2539262238738
Trimmed Mean ( 32 / 33 )19814.33333333331910.4427891967010.3715920965447
Trimmed Mean ( 33 / 33 )19885.20588235291892.1654095818910.5092323227423
Median20690
Midrange27045
Midmean - Weighted Average at Xnp19503.9607843137
Midmean - Weighted Average at X(n+1)p19889.6
Midmean - Empirical Distribution Function19503.9607843137
Midmean - Empirical Distribution Function - Averaging19889.6
Midmean - Empirical Distribution Function - Interpolation19889.6
Midmean - Closest Observation19503.9607843137
Midmean - True Basic - Statistics Graphics Toolkit19889.6
Midmean - MS Excel (old versions)19953.3653846154
Number of observations100



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