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 computationMon, 08 Aug 2016 13:00:01 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Aug/08/t1470657653in9gzve96v4zag3.htm/, Retrieved Mon, 29 Apr 2024 15:16:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=296086, Retrieved Mon, 29 Apr 2024 15:16:55 +0000
QR Codes:

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

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] [] [2015-10-10 14:58:02] [39c526a439265efa15f7db403b90ebd6]
- R PD    [Mean versus Median] [] [2016-08-08 12:00:01] [047b71d569822bc9ea0d1a14ab5e311b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5400
5200
5500
4400
5700
5600
6000
6200
6900
6000
5700
7100
6000
4500
5300
4000
5600
4600
6100
5500
5800
6500
6400
7600
5500
4600
5100
3700
5300
4100
5800
5500
4900
7000
6300
7200
5400
5000
4500
3700
4900
4400
6000
5800
5000
6700
6200
8000
6400
3900
3900
3900
4600
4600
6200
5700
5100
6400
5900
8500
6700
3900
4100
3400
4700
5400
6800
6700
5400
6300
5600
8000
6100
4900
4400
3300
4900
5900
6900
6500
4800
6900
5400
8300
6900
5000
4600
3100
4900
4700
7100
7100
5400
7000
5200
8100
6900
5100
3900
2700
5300
5100
6700
7700
5700
6400
4800
8300

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'Gertrude Mary Cox' @ cox.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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=296086&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=296086&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296086&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'Gertrude Mary Cox' @ cox.wessa.net






Median versus Mean
mean5613.88888888889
median5500

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=296086&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
mean5613.88888888889
median5500


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0.01 ; par2 = 0.99 ; par3 = 0.01 ;
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')