FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationTue, 05 Apr 2011 21:08:19 +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/2011/Apr/05/t13020376566riwz3vrrhyjj32.htm/, Retrieved Thu, 09 May 2024 09:15:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=120328, Retrieved Thu, 09 May 2024 09:15:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact122

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Mean versus Median] [Rek. gem. vs medi...] [2011-04-05 21:08:19] [70eb62609fa967e8827cfcb09ffdb915] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
131676
135050
129070
137792
139762
142917
144198
142648
152170
136022
138142
138135
135027
132911
133976
137012
119610
118106
120383
133185
131416
134248
134397
127728
131837
125955
134187
143291
145074
149812
144668
147253
145568
155564
155872
156323
158010
155598
154785
157294
162938
157283
166074
169282
172552
174055
175409
173696
171283
173322
170717
174229
175339
173511
175839
173816
173990
174777
174819
176726
176199
180952
176663
182346
180605
182497
187856
190020
190108
193288
193230
199068
195076
191563
191067
186665
185508
184371
183046
175714
175768
171029
170465
170102
156389
124291
99360
86675
85056
128236
164257
162401
152779
156005
153387
153190
148840
144211
145953
145542
150271
147489
143824
134754
131736
126304
125511
125495
130133
126257
110323
98417
105749
120665
124075
127245
146731
144979
148210
144670
142970
142524
146142
146522
148128
148798
150181
152388
155694
160662
155520
158262
154338
158196
160371
154856
150636
145899
141242
140834
141119
139104
134437
129425
123155
119273
120472
121523
121983
123658
124794
124827
120382
117395
115790
114283
117271
117448
118764
120550
123554
125412
124182
119828
115361
114226
115214
115864
114276
113469
114883
114172
111225
112149
115618
118002
121382
120663

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'George Udny Yule' @ 216.218.223.82

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

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

As an alternative you can also use a QR Code:  
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'George Udny Yule' @ 216.218.223.82






Median versus Mean
mean145214.837078652
median144439.5

\begin{tabular}{lllllllll}
\hline
Median versus Mean \tabularnewline
mean & 145214.837078652 \tabularnewline
median & 144439.5 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=120328&T=1

[TABLE]
[ROW][C]Median versus Mean[/C][/ROW]
[ROW][C]mean[/C][C]145214.837078652[/C][/ROW]
[ROW][C]median[/C][C]144439.5[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=120328&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Median versus Mean
mean145214.837078652
median144439.5


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 14 ;
Parameters (R input):
R code (references can be found in the software module):
library(Hmisc)
m <- mean(x)
e <- median(x)
bitmap(file='test1.png')
op <- par(mfrow=c(2,1))
mydensity1 <- density(x,kernel='gaussian',na.rm=TRUE)
plot(mydensity1,main='Density Plot - Gaussian Kernel',xlab='Median (0 -> full line) | Mean (0 -> dashed line)',ylab='density')
abline(v=e,lty=1)
abline(v=m,lty=5)
grid()
myseq <- seq(0.01, 0.99, 0.01)
hd <- hdquantile(x, probs = myseq, se = TRUE, na.rm = FALSE, names = TRUE, weights=FALSE)
plot(myseq,hd,col=2,main='Harrell-Davis Quantiles',xlab='quantiles',ylab='Median (0 -> full) | Mean (0 -> dashed)')
abline(h=m,lty=5)
abline(h=e,lty=1)
grid()
par(op)
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Median versus Mean',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'mean',header=TRUE)
a<-table.element(a,mean(x))
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'median',header=TRUE)
a<-table.element(a,median(x))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')