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 computationTue, 08 Mar 2016 22:49:00 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Mar/08/t1457477349mbiqsg5v3bgz3bo.htm/, Retrieved Sun, 28 Apr 2024 21:34:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=293794, Retrieved Sun, 28 Apr 2024 21:34:59 +0000
QR Codes:

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

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] [] [2016-03-08 22:49:00] [e2ca982fef5d38be90899c2ec1ea6fcf] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
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
309030
310215
321935
325734
320846
323023
319753
321753
320757
324479
324641
322767
324181
321389
327897
334287
332653
334819
335264
339622
342440
346585
335378
337010
339130
341193
343507
348915
346431
348322
348288
346597
351076
355215
350562
355266
361565
363462
366183
365423
369208
366713
369354
371970
371824
373187
367270
368140
373742
364815
368558
371503
372611
370197
375441
375888
375132
381142
372024
376070
376864
371401
375687
384304
380738
379908
384007
384499
385106
387935
380435
379281
384153
380599

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

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






Median versus Mean
mean304357.433333333
median281697.5

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=293794&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
mean304357.433333333
median281697.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')