FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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 computationSun, 14 Dec 2008 04:11:00 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Dec/14/t12292533559n64gl0xvlbbl3x.htm/, Retrieved Wed, 15 May 2024 14:53:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=33288, Retrieved Wed, 15 May 2024 14:53:50 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsPaper Brutoschuld van de Belgische Schatkist
Estimated Impact235

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] [Mean versus Median] [2008-12-14 11:11:00] [1ec5ee4d60319b01c3149f541ee67727] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
205597
205471
211064
212856
217036
219302
219759
221388
220834
221788
222358
222972
224164
224915
226294
224690
227021
229284
229189
230032
229389
231053
232560
232681
231555
231428
232141
234939
235424
235471
236355
238693
236958
237060
239282
238252
241552
236230
238909
240723
242120
242100
243276
244677
243494
244902
245247
245578
243052
238121
241863
241203
243634
242351
245180
246126
244424
245166
247258
245094
246020
243082
245555
243685
247277
245029
246169
246778
244577
246048
245775
245328
245477
241903
243219
248088
248521
247389
249057
248916
249193
250768
253106
249829
249447
246755
250785
250140
255755
254671
253919
253741
252729
253810
256653
255231
258405
251061
254811
254895
258325
257608
258759
258621
257852
260560
262358
260812
261165
257164
260720
259581
264743
261845
262262
261631
258953
259966
262850
262204
263418
262752
266433
267722
266003
262971
265521
264676
270223
269508
268457
265814
266680
263018
269285
269829
270911
266844
271244
269907
271296
270157
271322
267179
264101
265518
269419
268714
272482
268351
268175
270674
272764
272599
270333
270846
270491
269160
274027
273784
276663
274525
271344
271115
270798
273911
273985
271917
273338
270601
273547
275363
281229
277793
279913
282500
280041
282166
290304
283519
287816
285226
287595
289741
289148
288301
290155
289648
288225
289351
294735
305333

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'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33288&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'Gwilym Jenkins' @ 72.249.127.135






Median versus Mean
mean254924.817708333
median255063

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33288&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
mean254924.817708333
median255063


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