FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Vergelijking centrummaten - Omzetcijfers Carrefour Burcht - Jeroen Van Eeck...

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationSat, 14 Mar 2009 03:15:17 -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/2009/Mar/14/t123702217687xahpy400j6bi1.htm/, Retrieved Fri, 26 Apr 2024 06:00:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=39071, Retrieved Fri, 26 Apr 2024 06:00:10 +0000
QR Codes:

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

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 cent...] [2009-03-14 09:15:17] [13980c6c3342d2be2ef42581b409ab4a] [Current]
-         [Mean versus Median] [Vergelijking cent...] [2009-05-31 08:53:23] [b66e0de983b23a707273d4ecaef43d15]
- RMPD    [Classical Decomposition] [Multiplicatief de...] [2009-05-31 12:03:58] [b66e0de983b23a707273d4ecaef43d15]
- RMP     [Classical Decomposition] [Additief decompos...] [2009-05-31 12:22:48] [b66e0de983b23a707273d4ecaef43d15]
-           [Classical Decomposition] [Additief decompos...] [2009-05-31 12:30:27] [b66e0de983b23a707273d4ecaef43d15]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2291180
1971664
2193270
2197733
2345324
2195121
2170583
2241521
2154945
2912568
2392562
3336621
4080642
3735329
4018383
4171360
3855698
4101316
4199346
3959646
3960841
4784025
4105467
5929558
4048642
3828808
4268127
4171816
4004783
4295447
3968177
3918480
4040260
4530715
4103330
6025506
4632308
4133863
4519182
4151573
4486595
4504699
4180443
4222193
4373727
4734738
4403232
5903985
4414074
4061816
4504697
3994176
4114925
4485120
4171230
4476075
4179369
4823185
4585751
6110454
4279575
3782118
4098678
4065616
4413733
4481214
4345018
4294488
4361269
4535031
4318397
6040168

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=39071&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=39071&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39071&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Median versus Mean
mean4051270.95833333
median4171295

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=39071&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
mean4051270.95833333
median4171295


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