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 computationSun, 18 Oct 2009 13:21:00 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Oct/18/t1255893916do1ffj0xenerxpz.htm/, Retrieved Mon, 29 Apr 2024 09:25:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=47473, Retrieved Mon, 29 Apr 2024 09:25:01 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
F RMPD  [Univariate Explorative Data Analysis] [Colombia Coffee] [2008-01-07 14:21:11] [74be16979710d4c4e7c6647856088456]
F RMPD    [Univariate Data Series] [] [2009-10-14 08:30:28] [74be16979710d4c4e7c6647856088456]
- RMP       [Mean versus Median] [Ws3 part 1 mean v...] [2009-10-18 14:09:14] [e0fc65a5811681d807296d590d5b45de]
-    D        [Mean versus Median] [WS3 Part 2 Yt mea...] [2009-10-18 16:50:27] [e0fc65a5811681d807296d590d5b45de]
- R  D            [Mean versus Median] [WS3Part2Yt/Xt] [2009-10-18 19:21:00] [51108381f3361ca8af49c4f74052c840] [Current]
- R  D              [Mean versus Median] [WS3Part2Yt*Xt] [2009-10-19 19:14:12] [e0fc65a5811681d807296d590d5b45de]
- RM D              [Variability] [WS3Part2Yt*Xt] [2009-10-19 19:37:50] [e0fc65a5811681d807296d590d5b45de]
- RMPD              [Histogram] [WS3Part2Yt*Xt] [2009-10-19 19:40:19] [e0fc65a5811681d807296d590d5b45de]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
557,1102662
445,4847909
486,5340909
437,8314394
444,5009416
426,9238006
387,4718045
316,1365762
291,9309701
397,250699
313,3737185
200,5400372
524,6025105
492,7412626
494,0112577
483,557852
384,1178651
354,2627048
326,4841872
243,8965836
293,7868189
349,990797
252,5128393
168,6416583
463,688893
400,7759722
442,5694761
399,6995356
342,2891017
367,4831543
322,7739882
263,5942608
313,0730822
386,5517241
275,5341395
240,1579808
430,9061195
452,1613573
553,8884383
484,0616272
359,7648774
399,7359075
286,1388838
271,3378109
307,0683241
354,829932
305,3823849
227,0744729
464,9493854
410,9418657
472,3691311
436,7658962
373,7577223
443,912265
292,8284003
298,6400644
319,028014
330,6311936
318,979081
187,1831489

Tables (Output of Computation)





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

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 3 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=47473&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=47473&T=0

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






Median versus Mean
mean367.903718071667
median363.62401585

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47473&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
mean367.903718071667
median363.62401585


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