FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Vergelijking rekenkundig gemiddelde met mediaan Australische Chocoladeprodu...

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationMon, 04 Apr 2011 18:38:24 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Apr/04/t13019421949d8o2vinmvtew4v.htm/, Retrieved Wed, 08 May 2024 12:47:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=120197, Retrieved Wed, 08 May 2024 12:47:14 +0000
QR Codes:

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

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] [Vergelijking reke...] [2011-04-04 18:38:24] [b6a4d57b1954500f7acfe068aef83c69] [Current]
- R       [Mean versus Median] [Vergelijking reke...] [2011-05-19 16:19:12] [a4face641f853dff02f63190b68b1aaa]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
7992
6114
5965
8460
8323
6333
5675
10090
9035
6976
6459
10896
9978
7466
7199
10977
9412
6341
7784
11911
10079
7721
8197
12038
11963
8033
8618
13625
11734
8895
8727
13974
12583
9525
9662
15490
13839
10047
9788
14978
13045
9489
8741
13149
14106
9998
10034
15081
13266
9997
9027
14324
13149
11209
10332
15354
13800
11786
10550
16114
13255
11403
10269
14009
15847
12967
11328
15814
18626
13219
13818
18062
15722
12111
11702
15589
14852
13612
12380
15501
16322
12157
11124
14621
14035
11159
10944
15824
14378
11816
12233
17344
16812
12181
13275
18458
17375
14609
13323
18327
16053
15070
13806
18245
17461
14999
16022
20564
16372
15854
15115
18207
19488
16644
18631
21093
22212
19762
19403
21227
23176
20823
20647
21336
23458
22003
21647
26416
25226
24723
19945
24040
25034
24885
21168
23541
26019
24657
20599
24534
28717
26138
22968
26577
28660
30430
27356
25454
30194

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'George Udny Yule' @ 216.218.223.82

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

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






Median versus Mean
mean15157.4161073826
median14009

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=120197&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
mean15157.4161073826
median14009


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