FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationWed, 07 Dec 2011 13:02:08 -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/Dec/07/t1323281016dxdqzmsms2gmokw.htm/, Retrieved Wed, 15 May 2024 18:32:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=152587, Retrieved Wed, 15 May 2024 18:32:59 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Stem-and-leaf Plot] [Paper statistiek ...] [2011-12-07 17:10:05] [9e469a83342941fcd5c6dffbf184cd3a]
- RMPD    [Mean versus Median] [Paper statistiek ...] [2011-12-07 18:02:08] [5ae3d23a633522d14794d358c652ae9c] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4202,361
2763,544
1305,923
1030,944
947,293
756,46
699,645
694,87
662,883
653,641
645,285
611,281
601,162
556,277
506,652
475,834
449,594
441,437
440,31
438,555
435,956
426,113
421,403
406,167
403,556
403,064
401,915
401,422
392,25
388,3
386,688
383,703
380,531
380,155
366,936
356,725
350,089
348,821
330,563
324,04
315,955
313,906
308,532
308,174
308,16
295,281
293,671
289,714
287,069
278,741
275,562
274,482
266,793
265,777
263,906
262,875
262,517
261,596
260,642
259,7
257,567
257,102
252,64
251,422
250,407
249,148
246,542
242,344
242,205
241,171
240,755
239,89
238,502
236,71
236,302
235,577
232,669
232,444
229,641
226,731
223,166
221,588
220,553
218,761
217,465
216,886
216,548
216,046
213,923
213,511
213,361
211,655
208,108
207,533
206,893
206,771
204,386
203,077
200,156
199,746
199,297
198,296
197,549
193,299
192,797
191,835
190,379
190,157
187,881
184,641
183,613
183,186
180,818
171,328
171,26
169,861
158,047
156,187
150,034
140,321
137,55
136,813
136,452
131,812
109,215
103,898
86,58
85,094
72,844
70,939
64,016
62,156
59,609
57,47
39,047
37,028
33,999
8,95
4,813

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=152587&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=152587&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=152587&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net






Median versus Mean
mean333.340820143885
median241.171

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=152587&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
mean333.340820143885
median241.171


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
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')