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 11:17:06 -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/t1321546658fgr5leetvse8ox4.htm/, Retrieved Thu, 28 Mar 2024 21:15:06 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=145046, Retrieved Thu, 28 Mar 2024 21:15:06 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact60
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Arabica Price in ...] [2008-01-05 23:14:31] [74be16979710d4c4e7c6647856088456]
- RMPD    [Central Tendency] [mini tutorial: un...] [2011-11-17 16:17:06] [dfccbb29b87008a80f95a64515f2b3fe] [Current]
Feedback Forum

Post a new message
Dataseries X:
1,671
1,672
1,672
1,672
1,669
1,658
1,656
1,656
1,649
1,636
1,628
1,625
1,627
1,627
1,627
1,627
1,625
1,625
1,623
1,615
1,614
1,615
1,613
1,612
1,618
1,623
1,628
1,628
1,628
1,63
1,639
1,636
1,646
1,655
1,662
1,662
1,663
1,666
1,668
1,674
1,682
1,686
1,686
1,687
1,686
1,685
1,678
1,678
1,679
1,678
1,679
1,681
1,68
1,679
1,681
1,668
1,667
1,667
1,659
1,648
1,642
1,641
1,67
1,634
1,633
1,634
1,629
1,624
1,62
1,621
1,627
1,627
1,628
1,635
1,638
1,64
1,641
1,641
1,64
1,641
1,645
1,645
1,644
1,644
1,635
1,634
1,635
1,633
1,631
1,63
1,631
1,63
1,629
1,63
1,634
1,623
1,621
1,62
1,621
1,621
1,621
1,621




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'George Udny Yule' @ yule.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 & 4 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=145046&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ yule.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=145046&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145046&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 time4 seconds
R Server'George Udny Yule' @ yule.wessa.net







Central Tendency - Ungrouped Data
MeasureValueS.E.Value/S.E.
Arithmetic Mean1.64468627450980.00218899226293521751.344032758
Geometric Mean1.64453980554612
Harmonic Mean1.64439400405008
Quadratic Mean1.6448333964146
Winsorized Mean ( 1 / 34 )1.64468627450980.00218570834849795752.472888544374
Winsorized Mean ( 2 / 34 )1.644705882352940.00218293571933429753.437615127995
Winsorized Mean ( 3 / 34 )1.644735294117650.00217890053610112754.846431430368
Winsorized Mean ( 4 / 34 )1.644696078431370.00217162072173154757.358806707266
Winsorized Mean ( 5 / 34 )1.644696078431370.00212622407403009773.529045466023
Winsorized Mean ( 6 / 34 )1.644754901960780.00210191859711023782.501712588695
Winsorized Mean ( 7 / 34 )1.644754901960780.00210191859711023782.501712588695
Winsorized Mean ( 8 / 34 )1.644754901960780.00207963362150901790.886858603163
Winsorized Mean ( 9 / 34 )1.644666666666670.00206496758206851796.461252442123
Winsorized Mean ( 10 / 34 )1.644666666666670.00206496758206851796.461252442124
Winsorized Mean ( 11 / 34 )1.644666666666670.00206496758206851796.461252442123
Winsorized Mean ( 12 / 34 )1.644549019607840.00204576011066744803.881653099249
Winsorized Mean ( 13 / 34 )1.644549019607840.00204576011066744803.881653099249
Winsorized Mean ( 14 / 34 )1.644823529411760.00201539463235193816.129755933847
Winsorized Mean ( 15 / 34 )1.644235294117650.00192230046404833855.347707015021
Winsorized Mean ( 16 / 34 )1.643921568627450.00187498456730903876.765386387582
Winsorized Mean ( 17 / 34 )1.644088235294120.00185685060892955885.417613774493
Winsorized Mean ( 18 / 34 )1.644264705882350.00183824247717486894.476504758705
Winsorized Mean ( 19 / 34 )1.644078431372550.00181061637002219908.021411157573
Winsorized Mean ( 20 / 34 )1.643882352941180.00178195478758756922.516308714372
Winsorized Mean ( 21 / 34 )1.644088235294120.00171017391078237961.357336191606
Winsorized Mean ( 22 / 34 )1.643872549019610.00167927698250455978.916858949533
Winsorized Mean ( 23 / 34 )1.643872549019610.00167927698250455978.916858949533
Winsorized Mean ( 24 / 34 )1.643637254901960.00164600604463891998.560886368149
Winsorized Mean ( 25 / 34 )1.643637254901960.00164600604463891998.560886368149
Winsorized Mean ( 26 / 34 )1.643382352941180.001610369964501281020.49987839293
Winsorized Mean ( 27 / 34 )1.642852941176470.001474852098565451113.91029837801
Winsorized Mean ( 28 / 34 )1.642578431372550.001437930594360251142.32108129207
Winsorized Mean ( 29 / 34 )1.642578431372550.001437930594360251142.32108129207
Winsorized Mean ( 30 / 34 )1.641696078431370.001321667262103241242.14023113417
Winsorized Mean ( 31 / 34 )1.641392156862740.001282481825084671279.8560765213
Winsorized Mean ( 32 / 34 )1.641078431372550.001170371819129531402.18553159722
Winsorized Mean ( 33 / 34 )1.641078431372550.001170371819129531402.18553159722
Winsorized Mean ( 34 / 34 )1.641078431372550.001094601769273381499.24701150623
Trimmed Mean ( 1 / 34 )1.644590.00216734697944121758.803281431206
Trimmed Mean ( 2 / 34 )1.644489795918370.0021463028211596766.196540257953
Trimmed Mean ( 3 / 34 )1.6443750.002123812877904774.256064226731
Trimmed Mean ( 4 / 34 )1.644244680851060.00209965005474027783.104154494194
Trimmed Mean ( 5 / 34 )1.644119565217390.00207428010015517792.621770364764
Trimmed Mean ( 6 / 34 )1.643988888888890.002057324204521799.090821600309
Trimmed Mean ( 7 / 34 )1.643840909090910.00204302508688761804.611220704672
Trimmed Mean ( 8 / 34 )1.643686046511630.00202597777497874811.305072943793
Trimmed Mean ( 9 / 34 )1.643523809523810.00201004906492238817.653577818148
Trimmed Mean ( 10 / 34 )1.643365853658540.00199370525477448824.27723442221
Trimmed Mean ( 11 / 34 )1.64320.00197407244682571832.390930050337
Trimmed Mean ( 12 / 34 )1.643025641025640.00195060330831046842.316648405957
Trimmed Mean ( 13 / 34 )1.642855263157890.00192588133821926853.040751034506
Trimmed Mean ( 14 / 34 )1.642675675675680.0018963426781039866.233563502428
Trimmed Mean ( 15 / 34 )1.642458333333330.0018653769752468880.496733436964
Trimmed Mean ( 16 / 34 )1.642285714285710.00184336343696019890.918025907
Trimmed Mean ( 17 / 34 )1.642132352941180.00182388604940967900.348107532638
Trimmed Mean ( 18 / 34 )1.641954545454550.00180215253555023911.107419080497
Trimmed Mean ( 19 / 34 )1.641750.0017775607506418923.59712567193
Trimmed Mean ( 20 / 34 )1.641548387096770.00175143326052656937.260028168728
Trimmed Mean ( 21 / 34 )1.641350.00172352040860271952.324087261996
Trimmed Mean ( 22 / 34 )1.641120689655170.00169891563334492965.981275023081
Trimmed Mean ( 23 / 34 )1.640892857142860.00167267547007792980.998936432315
Trimmed Mean ( 24 / 34 )1.640648148148150.001638793638437511001.13163101634
Trimmed Mean ( 25 / 34 )1.640403846153850.001601578128063091024.2421630331
Trimmed Mean ( 26 / 34 )1.640140.00155340573829091055.83490492608
Trimmed Mean ( 27 / 34 )1.6398750.001498706593666921094.19349119408
Trimmed Mean ( 28 / 34 )1.639630434782610.001456074630344391126.06208542677
Trimmed Mean ( 29 / 34 )1.639386363636360.001407926785035361164.39745380311
Trimmed Mean ( 30 / 34 )1.639119047619050.001343112676570961220.38833838112
Trimmed Mean ( 31 / 34 )1.639119047619050.001287414423344671273.18679820337
Trimmed Mean ( 32 / 34 )1.638684210526320.001222190081878291340.77688472806
Trimmed Mean ( 33 / 34 )1.638472222222220.001163250857433271408.52870363452
Trimmed Mean ( 34 / 34 )1.638235294117650.001078933605302641518.38378753447
Median1.637
Midrange1.6495
Midmean - Weighted Average at Xnp1.63894545454545
Midmean - Weighted Average at X(n+1)p1.6399298245614
Midmean - Empirical Distribution Function1.6399298245614
Midmean - Empirical Distribution Function - Averaging1.6399298245614
Midmean - Empirical Distribution Function - Interpolation1.63894545454545
Midmean - Closest Observation1.6399298245614
Midmean - True Basic - Statistics Graphics Toolkit1.6399298245614
Midmean - MS Excel (old versions)1.6399298245614
Number of observations102

\begin{tabular}{lllllllll}
\hline
Central Tendency - Ungrouped Data \tabularnewline
Measure & Value & S.E. & Value/S.E. \tabularnewline
Arithmetic Mean & 1.6446862745098 & 0.00218899226293521 & 751.344032758 \tabularnewline
Geometric Mean & 1.64453980554612 &  &  \tabularnewline
Harmonic Mean & 1.64439400405008 &  &  \tabularnewline
Quadratic Mean & 1.6448333964146 &  &  \tabularnewline
Winsorized Mean ( 1 / 34 ) & 1.6446862745098 & 0.00218570834849795 & 752.472888544374 \tabularnewline
Winsorized Mean ( 2 / 34 ) & 1.64470588235294 & 0.00218293571933429 & 753.437615127995 \tabularnewline
Winsorized Mean ( 3 / 34 ) & 1.64473529411765 & 0.00217890053610112 & 754.846431430368 \tabularnewline
Winsorized Mean ( 4 / 34 ) & 1.64469607843137 & 0.00217162072173154 & 757.358806707266 \tabularnewline
Winsorized Mean ( 5 / 34 ) & 1.64469607843137 & 0.00212622407403009 & 773.529045466023 \tabularnewline
Winsorized Mean ( 6 / 34 ) & 1.64475490196078 & 0.00210191859711023 & 782.501712588695 \tabularnewline
Winsorized Mean ( 7 / 34 ) & 1.64475490196078 & 0.00210191859711023 & 782.501712588695 \tabularnewline
Winsorized Mean ( 8 / 34 ) & 1.64475490196078 & 0.00207963362150901 & 790.886858603163 \tabularnewline
Winsorized Mean ( 9 / 34 ) & 1.64466666666667 & 0.00206496758206851 & 796.461252442123 \tabularnewline
Winsorized Mean ( 10 / 34 ) & 1.64466666666667 & 0.00206496758206851 & 796.461252442124 \tabularnewline
Winsorized Mean ( 11 / 34 ) & 1.64466666666667 & 0.00206496758206851 & 796.461252442123 \tabularnewline
Winsorized Mean ( 12 / 34 ) & 1.64454901960784 & 0.00204576011066744 & 803.881653099249 \tabularnewline
Winsorized Mean ( 13 / 34 ) & 1.64454901960784 & 0.00204576011066744 & 803.881653099249 \tabularnewline
Winsorized Mean ( 14 / 34 ) & 1.64482352941176 & 0.00201539463235193 & 816.129755933847 \tabularnewline
Winsorized Mean ( 15 / 34 ) & 1.64423529411765 & 0.00192230046404833 & 855.347707015021 \tabularnewline
Winsorized Mean ( 16 / 34 ) & 1.64392156862745 & 0.00187498456730903 & 876.765386387582 \tabularnewline
Winsorized Mean ( 17 / 34 ) & 1.64408823529412 & 0.00185685060892955 & 885.417613774493 \tabularnewline
Winsorized Mean ( 18 / 34 ) & 1.64426470588235 & 0.00183824247717486 & 894.476504758705 \tabularnewline
Winsorized Mean ( 19 / 34 ) & 1.64407843137255 & 0.00181061637002219 & 908.021411157573 \tabularnewline
Winsorized Mean ( 20 / 34 ) & 1.64388235294118 & 0.00178195478758756 & 922.516308714372 \tabularnewline
Winsorized Mean ( 21 / 34 ) & 1.64408823529412 & 0.00171017391078237 & 961.357336191606 \tabularnewline
Winsorized Mean ( 22 / 34 ) & 1.64387254901961 & 0.00167927698250455 & 978.916858949533 \tabularnewline
Winsorized Mean ( 23 / 34 ) & 1.64387254901961 & 0.00167927698250455 & 978.916858949533 \tabularnewline
Winsorized Mean ( 24 / 34 ) & 1.64363725490196 & 0.00164600604463891 & 998.560886368149 \tabularnewline
Winsorized Mean ( 25 / 34 ) & 1.64363725490196 & 0.00164600604463891 & 998.560886368149 \tabularnewline
Winsorized Mean ( 26 / 34 ) & 1.64338235294118 & 0.00161036996450128 & 1020.49987839293 \tabularnewline
Winsorized Mean ( 27 / 34 ) & 1.64285294117647 & 0.00147485209856545 & 1113.91029837801 \tabularnewline
Winsorized Mean ( 28 / 34 ) & 1.64257843137255 & 0.00143793059436025 & 1142.32108129207 \tabularnewline
Winsorized Mean ( 29 / 34 ) & 1.64257843137255 & 0.00143793059436025 & 1142.32108129207 \tabularnewline
Winsorized Mean ( 30 / 34 ) & 1.64169607843137 & 0.00132166726210324 & 1242.14023113417 \tabularnewline
Winsorized Mean ( 31 / 34 ) & 1.64139215686274 & 0.00128248182508467 & 1279.8560765213 \tabularnewline
Winsorized Mean ( 32 / 34 ) & 1.64107843137255 & 0.00117037181912953 & 1402.18553159722 \tabularnewline
Winsorized Mean ( 33 / 34 ) & 1.64107843137255 & 0.00117037181912953 & 1402.18553159722 \tabularnewline
Winsorized Mean ( 34 / 34 ) & 1.64107843137255 & 0.00109460176927338 & 1499.24701150623 \tabularnewline
Trimmed Mean ( 1 / 34 ) & 1.64459 & 0.00216734697944121 & 758.803281431206 \tabularnewline
Trimmed Mean ( 2 / 34 ) & 1.64448979591837 & 0.0021463028211596 & 766.196540257953 \tabularnewline
Trimmed Mean ( 3 / 34 ) & 1.644375 & 0.002123812877904 & 774.256064226731 \tabularnewline
Trimmed Mean ( 4 / 34 ) & 1.64424468085106 & 0.00209965005474027 & 783.104154494194 \tabularnewline
Trimmed Mean ( 5 / 34 ) & 1.64411956521739 & 0.00207428010015517 & 792.621770364764 \tabularnewline
Trimmed Mean ( 6 / 34 ) & 1.64398888888889 & 0.002057324204521 & 799.090821600309 \tabularnewline
Trimmed Mean ( 7 / 34 ) & 1.64384090909091 & 0.00204302508688761 & 804.611220704672 \tabularnewline
Trimmed Mean ( 8 / 34 ) & 1.64368604651163 & 0.00202597777497874 & 811.305072943793 \tabularnewline
Trimmed Mean ( 9 / 34 ) & 1.64352380952381 & 0.00201004906492238 & 817.653577818148 \tabularnewline
Trimmed Mean ( 10 / 34 ) & 1.64336585365854 & 0.00199370525477448 & 824.27723442221 \tabularnewline
Trimmed Mean ( 11 / 34 ) & 1.6432 & 0.00197407244682571 & 832.390930050337 \tabularnewline
Trimmed Mean ( 12 / 34 ) & 1.64302564102564 & 0.00195060330831046 & 842.316648405957 \tabularnewline
Trimmed Mean ( 13 / 34 ) & 1.64285526315789 & 0.00192588133821926 & 853.040751034506 \tabularnewline
Trimmed Mean ( 14 / 34 ) & 1.64267567567568 & 0.0018963426781039 & 866.233563502428 \tabularnewline
Trimmed Mean ( 15 / 34 ) & 1.64245833333333 & 0.0018653769752468 & 880.496733436964 \tabularnewline
Trimmed Mean ( 16 / 34 ) & 1.64228571428571 & 0.00184336343696019 & 890.918025907 \tabularnewline
Trimmed Mean ( 17 / 34 ) & 1.64213235294118 & 0.00182388604940967 & 900.348107532638 \tabularnewline
Trimmed Mean ( 18 / 34 ) & 1.64195454545455 & 0.00180215253555023 & 911.107419080497 \tabularnewline
Trimmed Mean ( 19 / 34 ) & 1.64175 & 0.0017775607506418 & 923.59712567193 \tabularnewline
Trimmed Mean ( 20 / 34 ) & 1.64154838709677 & 0.00175143326052656 & 937.260028168728 \tabularnewline
Trimmed Mean ( 21 / 34 ) & 1.64135 & 0.00172352040860271 & 952.324087261996 \tabularnewline
Trimmed Mean ( 22 / 34 ) & 1.64112068965517 & 0.00169891563334492 & 965.981275023081 \tabularnewline
Trimmed Mean ( 23 / 34 ) & 1.64089285714286 & 0.00167267547007792 & 980.998936432315 \tabularnewline
Trimmed Mean ( 24 / 34 ) & 1.64064814814815 & 0.00163879363843751 & 1001.13163101634 \tabularnewline
Trimmed Mean ( 25 / 34 ) & 1.64040384615385 & 0.00160157812806309 & 1024.2421630331 \tabularnewline
Trimmed Mean ( 26 / 34 ) & 1.64014 & 0.0015534057382909 & 1055.83490492608 \tabularnewline
Trimmed Mean ( 27 / 34 ) & 1.639875 & 0.00149870659366692 & 1094.19349119408 \tabularnewline
Trimmed Mean ( 28 / 34 ) & 1.63963043478261 & 0.00145607463034439 & 1126.06208542677 \tabularnewline
Trimmed Mean ( 29 / 34 ) & 1.63938636363636 & 0.00140792678503536 & 1164.39745380311 \tabularnewline
Trimmed Mean ( 30 / 34 ) & 1.63911904761905 & 0.00134311267657096 & 1220.38833838112 \tabularnewline
Trimmed Mean ( 31 / 34 ) & 1.63911904761905 & 0.00128741442334467 & 1273.18679820337 \tabularnewline
Trimmed Mean ( 32 / 34 ) & 1.63868421052632 & 0.00122219008187829 & 1340.77688472806 \tabularnewline
Trimmed Mean ( 33 / 34 ) & 1.63847222222222 & 0.00116325085743327 & 1408.52870363452 \tabularnewline
Trimmed Mean ( 34 / 34 ) & 1.63823529411765 & 0.00107893360530264 & 1518.38378753447 \tabularnewline
Median & 1.637 &  &  \tabularnewline
Midrange & 1.6495 &  &  \tabularnewline
Midmean - Weighted Average at Xnp & 1.63894545454545 &  &  \tabularnewline
Midmean - Weighted Average at X(n+1)p & 1.6399298245614 &  &  \tabularnewline
Midmean - Empirical Distribution Function & 1.6399298245614 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Averaging & 1.6399298245614 &  &  \tabularnewline
Midmean - Empirical Distribution Function - Interpolation & 1.63894545454545 &  &  \tabularnewline
Midmean - Closest Observation & 1.6399298245614 &  &  \tabularnewline
Midmean - True Basic - Statistics Graphics Toolkit & 1.6399298245614 &  &  \tabularnewline
Midmean - MS Excel (old versions) & 1.6399298245614 &  &  \tabularnewline
Number of observations & 102 &  &  \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=145046&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]1.6446862745098[/C][C]0.00218899226293521[/C][C]751.344032758[/C][/ROW]
[ROW][C]Geometric Mean[/C][C]1.64453980554612[/C][C][/C][C][/C][/ROW]
[ROW][C]Harmonic Mean[/C][C]1.64439400405008[/C][C][/C][C][/C][/ROW]
[ROW][C]Quadratic Mean[/C][C]1.6448333964146[/C][C][/C][C][/C][/ROW]
[ROW][C]Winsorized Mean ( 1 / 34 )[/C][C]1.6446862745098[/C][C]0.00218570834849795[/C][C]752.472888544374[/C][/ROW]
[ROW][C]Winsorized Mean ( 2 / 34 )[/C][C]1.64470588235294[/C][C]0.00218293571933429[/C][C]753.437615127995[/C][/ROW]
[ROW][C]Winsorized Mean ( 3 / 34 )[/C][C]1.64473529411765[/C][C]0.00217890053610112[/C][C]754.846431430368[/C][/ROW]
[ROW][C]Winsorized Mean ( 4 / 34 )[/C][C]1.64469607843137[/C][C]0.00217162072173154[/C][C]757.358806707266[/C][/ROW]
[ROW][C]Winsorized Mean ( 5 / 34 )[/C][C]1.64469607843137[/C][C]0.00212622407403009[/C][C]773.529045466023[/C][/ROW]
[ROW][C]Winsorized Mean ( 6 / 34 )[/C][C]1.64475490196078[/C][C]0.00210191859711023[/C][C]782.501712588695[/C][/ROW]
[ROW][C]Winsorized Mean ( 7 / 34 )[/C][C]1.64475490196078[/C][C]0.00210191859711023[/C][C]782.501712588695[/C][/ROW]
[ROW][C]Winsorized Mean ( 8 / 34 )[/C][C]1.64475490196078[/C][C]0.00207963362150901[/C][C]790.886858603163[/C][/ROW]
[ROW][C]Winsorized Mean ( 9 / 34 )[/C][C]1.64466666666667[/C][C]0.00206496758206851[/C][C]796.461252442123[/C][/ROW]
[ROW][C]Winsorized Mean ( 10 / 34 )[/C][C]1.64466666666667[/C][C]0.00206496758206851[/C][C]796.461252442124[/C][/ROW]
[ROW][C]Winsorized Mean ( 11 / 34 )[/C][C]1.64466666666667[/C][C]0.00206496758206851[/C][C]796.461252442123[/C][/ROW]
[ROW][C]Winsorized Mean ( 12 / 34 )[/C][C]1.64454901960784[/C][C]0.00204576011066744[/C][C]803.881653099249[/C][/ROW]
[ROW][C]Winsorized Mean ( 13 / 34 )[/C][C]1.64454901960784[/C][C]0.00204576011066744[/C][C]803.881653099249[/C][/ROW]
[ROW][C]Winsorized Mean ( 14 / 34 )[/C][C]1.64482352941176[/C][C]0.00201539463235193[/C][C]816.129755933847[/C][/ROW]
[ROW][C]Winsorized Mean ( 15 / 34 )[/C][C]1.64423529411765[/C][C]0.00192230046404833[/C][C]855.347707015021[/C][/ROW]
[ROW][C]Winsorized Mean ( 16 / 34 )[/C][C]1.64392156862745[/C][C]0.00187498456730903[/C][C]876.765386387582[/C][/ROW]
[ROW][C]Winsorized Mean ( 17 / 34 )[/C][C]1.64408823529412[/C][C]0.00185685060892955[/C][C]885.417613774493[/C][/ROW]
[ROW][C]Winsorized Mean ( 18 / 34 )[/C][C]1.64426470588235[/C][C]0.00183824247717486[/C][C]894.476504758705[/C][/ROW]
[ROW][C]Winsorized Mean ( 19 / 34 )[/C][C]1.64407843137255[/C][C]0.00181061637002219[/C][C]908.021411157573[/C][/ROW]
[ROW][C]Winsorized Mean ( 20 / 34 )[/C][C]1.64388235294118[/C][C]0.00178195478758756[/C][C]922.516308714372[/C][/ROW]
[ROW][C]Winsorized Mean ( 21 / 34 )[/C][C]1.64408823529412[/C][C]0.00171017391078237[/C][C]961.357336191606[/C][/ROW]
[ROW][C]Winsorized Mean ( 22 / 34 )[/C][C]1.64387254901961[/C][C]0.00167927698250455[/C][C]978.916858949533[/C][/ROW]
[ROW][C]Winsorized Mean ( 23 / 34 )[/C][C]1.64387254901961[/C][C]0.00167927698250455[/C][C]978.916858949533[/C][/ROW]
[ROW][C]Winsorized Mean ( 24 / 34 )[/C][C]1.64363725490196[/C][C]0.00164600604463891[/C][C]998.560886368149[/C][/ROW]
[ROW][C]Winsorized Mean ( 25 / 34 )[/C][C]1.64363725490196[/C][C]0.00164600604463891[/C][C]998.560886368149[/C][/ROW]
[ROW][C]Winsorized Mean ( 26 / 34 )[/C][C]1.64338235294118[/C][C]0.00161036996450128[/C][C]1020.49987839293[/C][/ROW]
[ROW][C]Winsorized Mean ( 27 / 34 )[/C][C]1.64285294117647[/C][C]0.00147485209856545[/C][C]1113.91029837801[/C][/ROW]
[ROW][C]Winsorized Mean ( 28 / 34 )[/C][C]1.64257843137255[/C][C]0.00143793059436025[/C][C]1142.32108129207[/C][/ROW]
[ROW][C]Winsorized Mean ( 29 / 34 )[/C][C]1.64257843137255[/C][C]0.00143793059436025[/C][C]1142.32108129207[/C][/ROW]
[ROW][C]Winsorized Mean ( 30 / 34 )[/C][C]1.64169607843137[/C][C]0.00132166726210324[/C][C]1242.14023113417[/C][/ROW]
[ROW][C]Winsorized Mean ( 31 / 34 )[/C][C]1.64139215686274[/C][C]0.00128248182508467[/C][C]1279.8560765213[/C][/ROW]
[ROW][C]Winsorized Mean ( 32 / 34 )[/C][C]1.64107843137255[/C][C]0.00117037181912953[/C][C]1402.18553159722[/C][/ROW]
[ROW][C]Winsorized Mean ( 33 / 34 )[/C][C]1.64107843137255[/C][C]0.00117037181912953[/C][C]1402.18553159722[/C][/ROW]
[ROW][C]Winsorized Mean ( 34 / 34 )[/C][C]1.64107843137255[/C][C]0.00109460176927338[/C][C]1499.24701150623[/C][/ROW]
[ROW][C]Trimmed Mean ( 1 / 34 )[/C][C]1.64459[/C][C]0.00216734697944121[/C][C]758.803281431206[/C][/ROW]
[ROW][C]Trimmed Mean ( 2 / 34 )[/C][C]1.64448979591837[/C][C]0.0021463028211596[/C][C]766.196540257953[/C][/ROW]
[ROW][C]Trimmed Mean ( 3 / 34 )[/C][C]1.644375[/C][C]0.002123812877904[/C][C]774.256064226731[/C][/ROW]
[ROW][C]Trimmed Mean ( 4 / 34 )[/C][C]1.64424468085106[/C][C]0.00209965005474027[/C][C]783.104154494194[/C][/ROW]
[ROW][C]Trimmed Mean ( 5 / 34 )[/C][C]1.64411956521739[/C][C]0.00207428010015517[/C][C]792.621770364764[/C][/ROW]
[ROW][C]Trimmed Mean ( 6 / 34 )[/C][C]1.64398888888889[/C][C]0.002057324204521[/C][C]799.090821600309[/C][/ROW]
[ROW][C]Trimmed Mean ( 7 / 34 )[/C][C]1.64384090909091[/C][C]0.00204302508688761[/C][C]804.611220704672[/C][/ROW]
[ROW][C]Trimmed Mean ( 8 / 34 )[/C][C]1.64368604651163[/C][C]0.00202597777497874[/C][C]811.305072943793[/C][/ROW]
[ROW][C]Trimmed Mean ( 9 / 34 )[/C][C]1.64352380952381[/C][C]0.00201004906492238[/C][C]817.653577818148[/C][/ROW]
[ROW][C]Trimmed Mean ( 10 / 34 )[/C][C]1.64336585365854[/C][C]0.00199370525477448[/C][C]824.27723442221[/C][/ROW]
[ROW][C]Trimmed Mean ( 11 / 34 )[/C][C]1.6432[/C][C]0.00197407244682571[/C][C]832.390930050337[/C][/ROW]
[ROW][C]Trimmed Mean ( 12 / 34 )[/C][C]1.64302564102564[/C][C]0.00195060330831046[/C][C]842.316648405957[/C][/ROW]
[ROW][C]Trimmed Mean ( 13 / 34 )[/C][C]1.64285526315789[/C][C]0.00192588133821926[/C][C]853.040751034506[/C][/ROW]
[ROW][C]Trimmed Mean ( 14 / 34 )[/C][C]1.64267567567568[/C][C]0.0018963426781039[/C][C]866.233563502428[/C][/ROW]
[ROW][C]Trimmed Mean ( 15 / 34 )[/C][C]1.64245833333333[/C][C]0.0018653769752468[/C][C]880.496733436964[/C][/ROW]
[ROW][C]Trimmed Mean ( 16 / 34 )[/C][C]1.64228571428571[/C][C]0.00184336343696019[/C][C]890.918025907[/C][/ROW]
[ROW][C]Trimmed Mean ( 17 / 34 )[/C][C]1.64213235294118[/C][C]0.00182388604940967[/C][C]900.348107532638[/C][/ROW]
[ROW][C]Trimmed Mean ( 18 / 34 )[/C][C]1.64195454545455[/C][C]0.00180215253555023[/C][C]911.107419080497[/C][/ROW]
[ROW][C]Trimmed Mean ( 19 / 34 )[/C][C]1.64175[/C][C]0.0017775607506418[/C][C]923.59712567193[/C][/ROW]
[ROW][C]Trimmed Mean ( 20 / 34 )[/C][C]1.64154838709677[/C][C]0.00175143326052656[/C][C]937.260028168728[/C][/ROW]
[ROW][C]Trimmed Mean ( 21 / 34 )[/C][C]1.64135[/C][C]0.00172352040860271[/C][C]952.324087261996[/C][/ROW]
[ROW][C]Trimmed Mean ( 22 / 34 )[/C][C]1.64112068965517[/C][C]0.00169891563334492[/C][C]965.981275023081[/C][/ROW]
[ROW][C]Trimmed Mean ( 23 / 34 )[/C][C]1.64089285714286[/C][C]0.00167267547007792[/C][C]980.998936432315[/C][/ROW]
[ROW][C]Trimmed Mean ( 24 / 34 )[/C][C]1.64064814814815[/C][C]0.00163879363843751[/C][C]1001.13163101634[/C][/ROW]
[ROW][C]Trimmed Mean ( 25 / 34 )[/C][C]1.64040384615385[/C][C]0.00160157812806309[/C][C]1024.2421630331[/C][/ROW]
[ROW][C]Trimmed Mean ( 26 / 34 )[/C][C]1.64014[/C][C]0.0015534057382909[/C][C]1055.83490492608[/C][/ROW]
[ROW][C]Trimmed Mean ( 27 / 34 )[/C][C]1.639875[/C][C]0.00149870659366692[/C][C]1094.19349119408[/C][/ROW]
[ROW][C]Trimmed Mean ( 28 / 34 )[/C][C]1.63963043478261[/C][C]0.00145607463034439[/C][C]1126.06208542677[/C][/ROW]
[ROW][C]Trimmed Mean ( 29 / 34 )[/C][C]1.63938636363636[/C][C]0.00140792678503536[/C][C]1164.39745380311[/C][/ROW]
[ROW][C]Trimmed Mean ( 30 / 34 )[/C][C]1.63911904761905[/C][C]0.00134311267657096[/C][C]1220.38833838112[/C][/ROW]
[ROW][C]Trimmed Mean ( 31 / 34 )[/C][C]1.63911904761905[/C][C]0.00128741442334467[/C][C]1273.18679820337[/C][/ROW]
[ROW][C]Trimmed Mean ( 32 / 34 )[/C][C]1.63868421052632[/C][C]0.00122219008187829[/C][C]1340.77688472806[/C][/ROW]
[ROW][C]Trimmed Mean ( 33 / 34 )[/C][C]1.63847222222222[/C][C]0.00116325085743327[/C][C]1408.52870363452[/C][/ROW]
[ROW][C]Trimmed Mean ( 34 / 34 )[/C][C]1.63823529411765[/C][C]0.00107893360530264[/C][C]1518.38378753447[/C][/ROW]
[ROW][C]Median[/C][C]1.637[/C][C][/C][C][/C][/ROW]
[ROW][C]Midrange[/C][C]1.6495[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at Xnp[/C][C]1.63894545454545[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Weighted Average at X(n+1)p[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Averaging[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Empirical Distribution Function - Interpolation[/C][C]1.63894545454545[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - Closest Observation[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - True Basic - Statistics Graphics Toolkit[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Midmean - MS Excel (old versions)[/C][C]1.6399298245614[/C][C][/C][C][/C][/ROW]
[ROW][C]Number of observations[/C][C]102[/C][C][/C][C][/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=145046&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=145046&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 Mean1.64468627450980.00218899226293521751.344032758
Geometric Mean1.64453980554612
Harmonic Mean1.64439400405008
Quadratic Mean1.6448333964146
Winsorized Mean ( 1 / 34 )1.64468627450980.00218570834849795752.472888544374
Winsorized Mean ( 2 / 34 )1.644705882352940.00218293571933429753.437615127995
Winsorized Mean ( 3 / 34 )1.644735294117650.00217890053610112754.846431430368
Winsorized Mean ( 4 / 34 )1.644696078431370.00217162072173154757.358806707266
Winsorized Mean ( 5 / 34 )1.644696078431370.00212622407403009773.529045466023
Winsorized Mean ( 6 / 34 )1.644754901960780.00210191859711023782.501712588695
Winsorized Mean ( 7 / 34 )1.644754901960780.00210191859711023782.501712588695
Winsorized Mean ( 8 / 34 )1.644754901960780.00207963362150901790.886858603163
Winsorized Mean ( 9 / 34 )1.644666666666670.00206496758206851796.461252442123
Winsorized Mean ( 10 / 34 )1.644666666666670.00206496758206851796.461252442124
Winsorized Mean ( 11 / 34 )1.644666666666670.00206496758206851796.461252442123
Winsorized Mean ( 12 / 34 )1.644549019607840.00204576011066744803.881653099249
Winsorized Mean ( 13 / 34 )1.644549019607840.00204576011066744803.881653099249
Winsorized Mean ( 14 / 34 )1.644823529411760.00201539463235193816.129755933847
Winsorized Mean ( 15 / 34 )1.644235294117650.00192230046404833855.347707015021
Winsorized Mean ( 16 / 34 )1.643921568627450.00187498456730903876.765386387582
Winsorized Mean ( 17 / 34 )1.644088235294120.00185685060892955885.417613774493
Winsorized Mean ( 18 / 34 )1.644264705882350.00183824247717486894.476504758705
Winsorized Mean ( 19 / 34 )1.644078431372550.00181061637002219908.021411157573
Winsorized Mean ( 20 / 34 )1.643882352941180.00178195478758756922.516308714372
Winsorized Mean ( 21 / 34 )1.644088235294120.00171017391078237961.357336191606
Winsorized Mean ( 22 / 34 )1.643872549019610.00167927698250455978.916858949533
Winsorized Mean ( 23 / 34 )1.643872549019610.00167927698250455978.916858949533
Winsorized Mean ( 24 / 34 )1.643637254901960.00164600604463891998.560886368149
Winsorized Mean ( 25 / 34 )1.643637254901960.00164600604463891998.560886368149
Winsorized Mean ( 26 / 34 )1.643382352941180.001610369964501281020.49987839293
Winsorized Mean ( 27 / 34 )1.642852941176470.001474852098565451113.91029837801
Winsorized Mean ( 28 / 34 )1.642578431372550.001437930594360251142.32108129207
Winsorized Mean ( 29 / 34 )1.642578431372550.001437930594360251142.32108129207
Winsorized Mean ( 30 / 34 )1.641696078431370.001321667262103241242.14023113417
Winsorized Mean ( 31 / 34 )1.641392156862740.001282481825084671279.8560765213
Winsorized Mean ( 32 / 34 )1.641078431372550.001170371819129531402.18553159722
Winsorized Mean ( 33 / 34 )1.641078431372550.001170371819129531402.18553159722
Winsorized Mean ( 34 / 34 )1.641078431372550.001094601769273381499.24701150623
Trimmed Mean ( 1 / 34 )1.644590.00216734697944121758.803281431206
Trimmed Mean ( 2 / 34 )1.644489795918370.0021463028211596766.196540257953
Trimmed Mean ( 3 / 34 )1.6443750.002123812877904774.256064226731
Trimmed Mean ( 4 / 34 )1.644244680851060.00209965005474027783.104154494194
Trimmed Mean ( 5 / 34 )1.644119565217390.00207428010015517792.621770364764
Trimmed Mean ( 6 / 34 )1.643988888888890.002057324204521799.090821600309
Trimmed Mean ( 7 / 34 )1.643840909090910.00204302508688761804.611220704672
Trimmed Mean ( 8 / 34 )1.643686046511630.00202597777497874811.305072943793
Trimmed Mean ( 9 / 34 )1.643523809523810.00201004906492238817.653577818148
Trimmed Mean ( 10 / 34 )1.643365853658540.00199370525477448824.27723442221
Trimmed Mean ( 11 / 34 )1.64320.00197407244682571832.390930050337
Trimmed Mean ( 12 / 34 )1.643025641025640.00195060330831046842.316648405957
Trimmed Mean ( 13 / 34 )1.642855263157890.00192588133821926853.040751034506
Trimmed Mean ( 14 / 34 )1.642675675675680.0018963426781039866.233563502428
Trimmed Mean ( 15 / 34 )1.642458333333330.0018653769752468880.496733436964
Trimmed Mean ( 16 / 34 )1.642285714285710.00184336343696019890.918025907
Trimmed Mean ( 17 / 34 )1.642132352941180.00182388604940967900.348107532638
Trimmed Mean ( 18 / 34 )1.641954545454550.00180215253555023911.107419080497
Trimmed Mean ( 19 / 34 )1.641750.0017775607506418923.59712567193
Trimmed Mean ( 20 / 34 )1.641548387096770.00175143326052656937.260028168728
Trimmed Mean ( 21 / 34 )1.641350.00172352040860271952.324087261996
Trimmed Mean ( 22 / 34 )1.641120689655170.00169891563334492965.981275023081
Trimmed Mean ( 23 / 34 )1.640892857142860.00167267547007792980.998936432315
Trimmed Mean ( 24 / 34 )1.640648148148150.001638793638437511001.13163101634
Trimmed Mean ( 25 / 34 )1.640403846153850.001601578128063091024.2421630331
Trimmed Mean ( 26 / 34 )1.640140.00155340573829091055.83490492608
Trimmed Mean ( 27 / 34 )1.6398750.001498706593666921094.19349119408
Trimmed Mean ( 28 / 34 )1.639630434782610.001456074630344391126.06208542677
Trimmed Mean ( 29 / 34 )1.639386363636360.001407926785035361164.39745380311
Trimmed Mean ( 30 / 34 )1.639119047619050.001343112676570961220.38833838112
Trimmed Mean ( 31 / 34 )1.639119047619050.001287414423344671273.18679820337
Trimmed Mean ( 32 / 34 )1.638684210526320.001222190081878291340.77688472806
Trimmed Mean ( 33 / 34 )1.638472222222220.001163250857433271408.52870363452
Trimmed Mean ( 34 / 34 )1.638235294117650.001078933605302641518.38378753447
Median1.637
Midrange1.6495
Midmean - Weighted Average at Xnp1.63894545454545
Midmean - Weighted Average at X(n+1)p1.6399298245614
Midmean - Empirical Distribution Function1.6399298245614
Midmean - Empirical Distribution Function - Averaging1.6399298245614
Midmean - Empirical Distribution Function - Interpolation1.63894545454545
Midmean - Closest Observation1.6399298245614
Midmean - True Basic - Statistics Graphics Toolkit1.6399298245614
Midmean - MS Excel (old versions)1.6399298245614
Number of observations102



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