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, 29 Nov 2011 05:00:41 -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/29/t1322560881tpc1vlixvp1qox6.htm/, Retrieved Thu, 28 Mar 2024 18:11:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=148149, Retrieved Thu, 28 Mar 2024 18:11:56 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact97
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Mean versus Median] [Mean vs Median Qt...] [2011-11-29 10:00:41] [3bdb54d050744f47368418ea7c7e8e96] [Current]
Feedback Forum

Post a new message
Dataseries X:
193572
180303
178978
183016
173405
185085
197695
176908
201772
217889
186296
178952
182010
160719
175751
184732
181583
180793
184314
174547
181904
180553
188285
184075
184710
185165
183858
176374
179867
152919
134569
170594
175472
172444
167593
178081
176617
167033
171483
174373
169615
169627
167165
171452
172603
164246
164538
184937
173475
167173
162951
162925
165517
176580
163429
161378
169646
168842
162903
166636
174396
189289
174750
165089
162605
169358
172718
162125
162719
169897
169705
169465
163228
180314
168509
160680
173548
159224
162800
163336
163625
148873
142365
168464
162302
161287
155836
161265
162697
178590
162764
155748
168340
156793
170320
149149
166763
165642
154608
160565
157996
155448
155564
159700
157902
152370
156769
175004
159617
151568
155308
139183
153829
155532
147321
143100
146407
159126
163729
153325
147558
153640
148529
163150
156807
156221
154862
151588
161384
148655
155579
150044
156718
153577
138813
149389
161463
150575
147350
156568




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

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







Median versus Mean
mean166292.471428571
median164392

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=148149&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
mean166292.471428571
median164392



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