Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_meanversusmedian.wasp

Title produced by software

Mean versus Median

Date of computation

Mon, 04 Oct 2010 19:36:51 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Oct/04/t1286220938ml63mhrm1hjta92.htm/, Retrieved Sun, 28 Apr 2024 13:07:07 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=81076, Retrieved Sun, 28 Apr 2024 13:07:07 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

114

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

F     [Univariate Data Series] [HPC Retail Sales] [2008-03-02 15:42:48] [74be16979710d4c4e7c6647856088456]
F RMPD    [Mean versus Median] [] [2010-10-04 19:36:51] [7a87ed98a7b21a29d6a45388a9b7b229] [Current]

Feedback Forum

2010-10-07 22:07:01 [411b43619fc9db329bbcdbf7261c55fb] [reply] 
De auteur heeft gelijk dat bij deze vergelijking de mediaan en het gemiddelde zeer dicht bij elkaar liggen. 
 
Bij het resultaat merkte ik op dat de mediaan kleiner is dan het gemiddelde. Dit is duidelijk zichtbaar in de Density Plot die scheef naar rechts is. 
 
Toch deel ik niet de mening van de auteur over het feit dat hij alweer beweerd dat de mediaan geen goede waardemeter is. Dus ook hier wil ik weer het feit aankaarten dat de mediaan vrij betrouwbaar is, aangezien hij geen rekening houdt met de extreme waarden.
2010-10-08 16:25:43 [347d11d64cf4ded9ba0714e7297d928b] [reply] 
Correct (2/2). 
De student heeft de grafiek correct gemaakt. Hij had alleen nog kunnen uitleggen dat de Density Plot scheef naar rechts is omdat het gemiddelde groter is dan de mediaan en dit te wijten is aan de extreme waarden.
2010-10-09 13:54:22 [1047e32db976ffec0cf8e54ab6985f99] [reply] 
Bij een perfect normaal verdeling zouden mediaan en rekenkundig gemiddelde samenvallen. Er is sprake van een rechts scheve verdeling omdat rekenkundig gemiddelde groter is dan de mediaan. Dit komt door de extreme meetuitslagen. Ze trekken het rekenkundig gemiddelde naar boven.
2010-10-10 13:42:19 [Kirian Weidener] [reply] 
De mediaan en het gemiddelde liggen inderdaad dicht bij elkaar. Verder is ook nog op te merken dat het gemiddelde hoger is dan de mediaan door de extreme waarden. Verder kan ik zijn conclusie over de toekomst wel volgen mede door de conclusie bij Task 9, daar heb ik dan ook uitgebreid mijn mening hierover geschreven.
2010-10-10 16:00:28 [73b763ab03a59f488b4c9e04fda397bb] [reply] 
Beide waardes liggen inderdaad heel dicht, maar je kan hieruit ook afleiden dat de mediaan kleiner is dan het gemiddelde. Dit valt te verklaren door de scheve verdeling van de extreme waardes/gegevens naar rechts (rightwards skewness). Deze trekken het gemiddelde omhoog.

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'George Udny Yule' @ 72.249.76.132

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

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

Median versus Mean
mean	16750.2857142857
median	16441.5

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=81076&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	16750.2857142857
median	16441.5

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code