Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationTue, 16 Mar 2010 12:26:01 -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/2010/Mar/16/t1268764151xc64ffgmsumpiau.htm/, Retrieved Fri, 21 Jan 2022 11:19:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74477, Retrieved Fri, 21 Jan 2022 11:19:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact151
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Mean versus Median] [De verkoopcijfers] [2010-03-16 18:26:01] [202f3200e40254c22df549da03ba92fb] [Current]
-         [Mean versus Median] [De verkoopcijfers] [2010-04-26 15:56:31] [3662dfde5d149fde343bbb9499d86e59]
Feedback Forum

Post a new message
Dataseries X:
7054
8170
8620
8771
11379
12066
12657
27438
27733
29722
30169
30936
31879
32228
32745
33008
33228
33425
33666
34077
34571
34801
34870
34931
35117
35429
35699
36222
36279
36432
37013
37848
37898
37967
38064
38401
38529
38683
38708
39018
39253
39341
39383
39401
39486
39525
39556
40439
40600
40809
40870
40891
40898
41117
41519
41547
41629
41697
41756
41888
42438
43412
44720
44953
45315
45409
45633
47060
47221
48138
48428
49267
50380
50530
50669
51321
52073
56676
62557
68184
68897
68906
69116
70249
70938




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74477&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=74477&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74477&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Median versus Mean
mean39641.7176470588
median39383

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74477&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
mean39641.7176470588
median39383



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