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, 15 Mar 2016 21:31:56 +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/15/t14580775746hnuzgowf310ubc.htm/, Retrieved Tue, 30 Apr 2024 11:05:27 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=294109, Retrieved Tue, 30 Apr 2024 11:05:27 +0000
QR Codes:

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

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] [rekenkundig gemid...] [2016-03-15 21:31:56] [d7adcc7732e5b057da1b42af54844e1a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68.733
41.381
51.310
39.036
42.157
52.574
39.168
41.325
40.645
42.303
38.167
8.980
66.356
50.335
47.212
42.247
45.793
48.248
40.074
39.602
41.283
41.900
29.812
7.236
56.184
33.958
34.532
30.277
30.850
35.492
33.544
27.829
33.663
35.690
27.356
8.033
62.798
37.581
44.753
37.546
36.830
50.683
38.487
36.522
45.544
43.575
36.921
11.393
74.787
49.019
56.601
47.637
49.806
50.499
42.092
39.062
44.382
43.635
41.082
17.244
70.170
43.949
52.333
41.032
47.758
76.116
30.917
32.996
31.951
26.775
30.268
18.214
47.957
31.901
35.559
30.408
30.083
35.043
30.475
28.309
31.394
36.313
40.357
38.918
44.368
33.298
29.366
28.282
30.943
32.699
29.764
25.524
29.807
35.112
32.192
36.214

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294109&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'Gertrude Mary Cox' @ cox.wessa.net






Median versus Mean
mean38.9430104166667
median38.327

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=294109&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
mean38.9430104166667
median38.327


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