Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_meanversusmedian.wasp
Title produced by softwareMean versus Median
Date of computationFri, 12 Mar 2010 05:49:39 -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/2010/Mar/12/t12683982223kxvpvgjax7i7bn.htm/, Retrieved Thu, 28 Mar 2024 09:17:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=74346, Retrieved Thu, 28 Mar 2024 09:17:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W52
Estimated Impact191
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Mean versus Median] [] [2010-03-12 12:49:39] [1c63715a73aab28ce271608ca6a82d4c] [Current]
Feedback Forum

Post a new message
Dataseries X:
6550
8728
12026
14395
14587
13791
9498
8251
7049
9545
9364
8456
7237
9374
11837
13784
15926
13821
11143
7975
7610
10015
12759
8816
10677
10947
15200
17010
20900
16205
12143
8997
5568
11474
12256
10583
10862
10965
14405
20379
20128
17816
12268
8642
7962
13932
15936
12628
12267
12470
18944
21259
22015
18581
15175
10306
10792
14752
13754
11738
12181
12965
19990
23125
23541
21247
15189
14767
10895
17130
17697
16611
12674
12760
20249
22135
20677
19933
15388
15113
13401
16135
17562
14720
12225
11608
20985
19692
24081
22114
14220
13434
13598
17187
16119
13713
13210
14251
20139
21725
26099
21084
18024
16722
14385
21342
17180
14577




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=74346&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]1 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=74346&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74346&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Median versus Mean
mean14595.1111111111
median14076

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=74346&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
mean14595.1111111111
median14076



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