## Free Statistics

of Irreproducible Research!

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, 28 Nov 2012 09:02:18 -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/2012/Nov/28/t1354111470dut9s42ei6dn0ts.htm/, Retrieved Thu, 18 Apr 2024 20:17:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=194151, Retrieved Thu, 18 Apr 2024 20:17:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact133
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Classical Decomposition] [HPC Retail Sales] [2008-03-02 16:19:32] [74be16979710d4c4e7c6647856088456]
- RM D  [Classical Decomposition] [Classical decompo...] [2012-11-10 10:49:39] [2c4ddb4bf62114b8025bb962e2c7a2b5]
- RMPD    [Histogram] [Histogram happiness] [2012-11-28 13:29:17] [2c4ddb4bf62114b8025bb962e2c7a2b5]
- RMP         [Mean versus Median] [mean-median] [2012-11-28 14:02:18] [b4b733de199089e913cc2b6ea19b06b9] [Current]
Feedback Forum

Post a new message
Dataseries X:
14
18
11
12
16
18
14
14
15
15
17
19
10
16
18
14
14
17
14
16
18
11
14
12
17
9
16
14
15
11
16
13
17
15
14
16
9
15
17
13
15
16
16
12
12
11
15
15
17
13
16
14
11
12
12
15
16
15
12
12
8
13
11
14
15
10
11
12
15
15
14
16
15
15
13
12
17
13
15
13
15
16
15
16
15
14
15
14
13
7
17
13
15
14
13
16
12
14
17
15
17
12
16
11
15
9
16
15
10
10
15
11
13
14
18
16
14
14
14
14
12
14
15
15
15
13
17
17
19
15
13
9
15
15
15
16
11
14
11
15
13
15
16
14
15
16
16
11
12
9
16
13
16
12
9
13
13
14
19
13
12
13

 Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 2 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 & 2 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=194151&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=194151&T=0

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

As an alternative you can also use a QR Code:

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

 Summary of computational transaction Raw Input view raw input (R code) Raw Output view raw output of R engine Computing time 2 seconds R Server 'Herman Ole Andreas Wold' @ wold.wessa.net

 Median versus Mean mean 14.037037037037 median 14

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

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

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

As an alternative you can also use a QR Code:

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

 Median versus Mean mean 14.037037037037 median 14

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