Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_meanversusmedian.wasp

Title produced by software

Mean versus Median

Date of computation

Sat, 01 Dec 2012 11:35:30 -0500

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/01/t13543797431ispjio8nm1jf8z.htm/, Retrieved Mon, 29 Apr 2024 09:21:55 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=195357, Retrieved Mon, 29 Apr 2024 09:21:55 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

109

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Multiple Regression] [Competence to learn] [2010-11-17 07:43:53] [b98453cac15ba1066b407e146608df68]
-       [Multiple Regression] [mu lin reg] [2012-10-31 10:14:49] [2f324ead08cc3849e52bae5d3f3d905a]
- RMPD      [Mean versus Median] [meanversusmedian3] [2012-12-01 16:35:30] [e357aba3893873b930815b56a53f1005] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

-2.950927426978330
0.381817133424683
2.083335628339200
3.127025192635330
-2.358051987768170
-1.736016271757080
3.846299991492700
-2.007756050547860
-1.948445496639430
0.701963528835648
1.137382762208440
-0.101807700721448
0.610689034101525
0.592021391686478
-1.004395063055410
-0.379815923943083
0.489441182277558
3.616619183397030
2.625165134497640
0.506467833505857
0.697230534862408
0.958823175202897
2.546938147237920
1.010762104953450
0.833157851012718
0.778791225792725
1.028275393283400
-1.763968013898280
0.23383301576509
-0.0778957672030686
-0.746027283963927
-0.737377122432317
-0.797418619234848
0.0714998797812351
-1.602200306094290
-2.921926401309670
-3.014672990031160
-1.789991690074690
1.437350998711500
1.527886673384490
1.272815399881450
-1.828353334722140
2.425987886788690
-0.166310878185677
-0.492903544444921
-4.579946776279850
-2.604228985647020
-0.19422943412892
0.370906086774684
-1.730933527775650
-1.147151290076460
-0.221677408920302
-3.145340373452820
0.130447599287036
-2.364552177695210
1.599325081233890
-0.0107717121744094
0.412355641135433
-0.248651715103607
1.699039550281940
0.431959428762646
0.15190661485923
-0.732096822448143
-0.849165794690456
0.546781501160583
1.213271704701020
1.933602545001730
3.776399157994500
-3.703958864557730
0.552161863420334
-3.029195508180270
-0.699009794724861
1.178461282653490
0.952614163101955
0.938146133355616
3.731342199774870
-0.27445348438142
1.725904951442600
-2.033478553739770
1.075230232818890
0.434465248129707
0.463024793312068
-0.556378964773851
0.290823812108053
2.024351239547280
-0.00857332391764814
0.779169251006498
1.293406531085150
0.64524897347781
-1.705080737416820
0.321735886198806
0.256979711011826
-0.0195639849034682
-1.963598028672100
1.302627335705470
0.316937042917328
2.417701080095630
0.231489429954285
-0.319858081531102
-1.024703833760560
1.421202663716270
2.531232510295950
0.947695374061321
1.043666721783040
-1.801167421660320
1.341788163106110
0.285054576863643
1.734830472008470
-0.144502539944409
0.729968269891964
-0.0190228965520521
2.027100875672990
-1.623526260359230
-2.561106515237640
1.817433594802990
-1.874239202780090
0.936575638601393
-1.766415230067080
0.42724619588997
-1.406745684691490
0.560835234710133
-2.891167271223320
-0.904258186860854
-0.892153488946772
-0.902236170738301
0.296367937158025
1.388689572409520
1.016139203359060
-2.744083838490470
2.006357737384350
-3.757672591598220
2.482367885517180
-2.216163117791370
-1.623796371439230
-0.169866756362222
0.857844295374259
0.499053079900598
-2.468624924683490
-1.015724373858640
-2.419446534276200
3.116868494553710
1.244149428599770
-0.00977950660548293
1.726205341693290
-3.356731562514160
2.347253794042720
-2.022884771953820
1.037980817598440
0.122740837501083
-2.983866910785650
-1.149480124312880
1.972426862143270
4.088948984924600
1.118379703492860
-2.511077298298560
0.321735886198806
1.225159115393230
1.016139203359060
1.277952242966510
-0.902448708853643
0.276588643849074
0.640555248578502
-0.219714057890000
0.844074306989343
1.507288988968940
-1.369085648879320
-0.151183746564223
-3.047381402788280
-1.628420756908890
1.671359889890770
1.789630485111520
0.77058264871283
-1.678958916240210
-2.142243663121480
-2.813249493429920
0.563279912781797
-0.0443133302158332
-0.527125897983652
0.347961979312088
-1.242363629001490
1.097128567783510
-0.230816590851172
2.369755033225110
-0.0709573706773562
-6.500257228497550
1.261477725343550
2.598884231887540
-0.276935000932918
-0.337592691072861
0.766460631722878
-0.738347362672255
0.593164124039307
2.445135860848180
2.068898526535350
-0.589629361433986
0.067529462442679
3.102911980567040
0.98199052927266
1.650521445670400
1.458638605459760
2.055406796426970
0.677381538942582
-2.427517794616260
-2.436710987021590
2.330073086545160
0.541347574568722
1.532062753609930
1.068353079510020
-2.556278023983700
1.022060198203120
-2.202902205786250
-3.778443865191100
0.855979820899399
2.969296732284700
1.431517041045760
0.92686536580996
2.325387624558690
0.0576401774804177
1.109497162777210
-0.205965436350932
-1.671017170642970
-0.131920565559881
0.69988175348359
-1.109293774491140
0.288333593457519
-3.747213134275050
0.198419826035607
0.979732572076422
-1.229759183315850
-0.896838277694454
1.754791518045770
-3.213065761663230
4.632282599081560
2.052583830393920
-0.869328863803708
-2.343002738542470
-6.972696729831410
-1.267817848143290
1.693092913476200
-1.682392340516940
-0.287911979522082
-1.501192111694680
1.148577466832540
1.897137209777490
1.290751899520400
0.0314942682585027
1.122268013997320
-2.535800022795170
1.237586914115890
0.260609055995628
-0.922062430482111
-1.730463172570970
0.598033800572314
3.117443736717850
-1.376552282785240
0.0951709146478978
1.480120220034830
2.331720115159230
-1.356690156603050
-5.383345805948790
1.152740671599490
-4.108360953720810
-0.347629194317833
1.085550528595740

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=195357&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=195357&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195357&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Herman Ole Andreas Wold' @ wold.wessa.net

Median versus Mean
mean	-6.11908921575739e-17
median	0.286694085160581

\begin{tabular}{lllllllll}
\hline
Median versus Mean \tabularnewline
mean & -6.11908921575739e-17 \tabularnewline
median & 0.286694085160581 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=195357&T=1

[TABLE]
[ROW][C]Median versus Mean[/C][/ROW]
[ROW][C]mean[/C][C]-6.11908921575739e-17[/C][/ROW]
[ROW][C]median[/C][C]0.286694085160581[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=195357&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=195357&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
mean	-6.11908921575739e-17
median	0.286694085160581

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code