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 computationTue, 15 Nov 2011 14:33:07 -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/2011/Nov/15/t13213857067c8vdhewcg9rmry.htm/, Retrieved Fri, 29 Mar 2024 12:40:52 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=143430, Retrieved Fri, 29 Mar 2024 12:40:52 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact68
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Central Tendency] [Arabica Price in ...] [2008-01-06 21:28:17] [74be16979710d4c4e7c6647856088456]
- RMPD  [Central Tendency] [Aantal geboorten ...] [2011-11-15 19:14:54] [379dab8110dbf77cfcc4b7951c3a599f]
- R  D    [Central Tendency] [Aantal geboorten ...] [2011-11-15 19:22:37] [379dab8110dbf77cfcc4b7951c3a599f]
- RMP         [Mean versus Median] [WS 6 tutorial blo...] [2011-11-15 19:33:07] [7e9b6bd31a62815918579b1facd0f368] [Current]
Feedback Forum

Post a new message
Dataseries X:
76035
74427
73354
73081
75309
75463
75910
76151
76882
78632
80137
82490
79896
81303
79344
81355
82328
79669
77249
75101
72520
72438
72653
71429
69189
66451
63354
61379
61880
62274
62429
63905
63917
64295
61930
60440
59353
58695
60569
60386
60938
61795
63304
64270
63492
61333
59341
58412
58725
59277
58562
57858
58790
58243
57044
57339
59429
60575
61950
61712




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'AstonUniversity' @ aston.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 & 'AstonUniversity' @ aston.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=143430&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]'AstonUniversity' @ aston.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=143430&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=143430&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 time2 seconds
R Server'AstonUniversity' @ aston.wessa.net







Median versus Mean
mean67433.1833333333
median63698.5

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=143430&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
mean67433.1833333333
median63698.5



Parameters (Session):
par1 = 0 ;
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')