FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationSat, 12 Oct 2013 08:04:23 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Oct/12/t1381579486057dlxn65h6r4xd.htm/, Retrieved Sun, 28 Apr 2024 21:59:10 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=214903, Retrieved Sun, 28 Apr 2024 21:59:10 +0000
QR Codes:

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

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] [Wekelijkse verkoo...] [2013-10-12 12:04:23] [74a92a9d3a2c9c03f2186ea574174bd1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
221102
220892
225537
219334
216126
224573
213991
221865
215382
213962
217009
318110
219662
212650
209307
210541
210609
208910
207541
207699
205005
205747
203644
229937
214446
210194
206535
216524
198243
208274
207493
215525
207562
213355
209048
220497
214563
211571
216385
211496
209683
206304
213925
204829
205729
200296
207960
207729
208327
207794
213700
213136
210354
202205
220425
210038
205201
197441
200021
203165
201699
201003
232308
211412
209661
213587
193611
192543
196040
191407
189726
191272
187924
198213
199352
199289
195475
198045
197615
189015
189668
189120
194168
192304
185913
197599
186085
190566
187054
193222
189856
190608
190588
186773
183510
180106
180150
178412
182353
203805
186054
184290
187483
187111
189561
184439
182985
183828
184036
183214
183464
173718
180210
171252
172705
174006
172043
169445
169449
177073
170799
171648
172220
165795
167466
165528
162851
165864
162094
162385
164293
165983
159680
161739
159302
167795
164242
159743
160887
163844
161172
159330
155570
156749
155012
163419
153630
154535
151543
152955
150166
151416
150332
152196
153422
147435

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'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=214903&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=214903&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=214903&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net






Median versus Mean
mean191728.019230769
median192882.5

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=214903&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
mean191728.019230769
median192882.5


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