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 computationFri, 16 Oct 2009 08:43:26 -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/16/t1255704374wyvl0fwpkcankhm.htm/, Retrieved Tue, 30 Apr 2024 05:09:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=47037, Retrieved Tue, 30 Apr 2024 05:09:04 +0000
QR Codes:

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

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]
- RMPD        [Mean versus Median] [WS 3 Y*X gaus] [2009-10-16 14:43:26] [51118f1042b56b16d340924f16263174] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
881,2412655
829,3840119
798,245268
860,679742
943,0594116
765,7904298
937,9587876
891,4824678
998,9762094
950,26668
950,818554
1003,009767
860,9661704
923,5955421
916,1714272
949,9833665
988,8452288
946,8919944
984,6924692
978,649437
1117,149061
854,0713256
1044,938733
960,11217
884,6545329
931,3303455
894,2625903
1089,305419
1034,156547
1008,949251
949,7055648
924,1641224
1034,0468
1004,545776
1128,755463
1011,305803
1009,571733
820,6931964
948,5830077
1061,771074
964,8048
858,6926512
824,8851512
716,525568
931,7342515
971,9671671
981,8002545
1103,17256
1148,573047
1028,97457
1298,539846
1096,215765
1071,682067
1215,565735
886,2840744
927,52071
979,8538375
784,032183
736,5133824
842,7949725

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'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=47037&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=47037&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47037&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Median versus Mean
mean957.381888985
median950.12502325

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=47037&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
mean957.381888985
median950.12502325


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