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 computationWed, 19 Dec 2012 07:58:30 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/19/t1355921935mhefh8w132w290f.htm/, Retrieved Fri, 03 May 2024 15:49:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201899, Retrieved Fri, 03 May 2024 15:49:56 +0000
QR Codes:

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

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] [Median versus Mean] [2012-12-19 12:58:30] [2d2e1459719df4dac57978867f50cb50] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
501	134	368	6.7	8.5	8.7
485	124	361	6.8	8.4	8.6
464	113	351	6.7	8.4	8.6
460	109	351	6.6	8.3	8.5
467	109	358	6.4	8.2	8.5
460	106	354	6.3	8.2	8.5
448	101	347	6.3	8.1	8.5
443	98	345	6.5	8.1	8.5
436	93	343	6.5	8.1	8.5
431	91	340	6.4	8.1	8.5
484	122	362	6.2	8.1	8.5
510	139	370	6.2	8.1	8.6
513	140	373	6.5	8.1	8.6
503	132	371	7	8.2	8.6
471	117	354	7.2	8.2	8.7
471	114	357	7.3	8.3	8.7
476	113	363	7.4	8.2	8.7
475	110	364	7.4	8.3	8.8
470	107	363	7.4	8.3	8.8
461	103	358	7.3	8.4	8.9
455	98	357	7.4	8.5	8.9
456	98	357	7.4	8.5	8.9
517	137	380	7.6	8.6	9
525	148	378	7.6	8.6	9
523	147	376	7.7	8.7	9
519	139	380	7.7	8.7	9
509	130	379	7.8	8.8	9
512	128	384	7.8	8.8	9
519	127	392	8	8.9	9.1
517	123	394	8.1	9	9.1
510	118	392	8.1	9	9.1
509	114	396	8.2	9	9.1
501	108	392	8.1	9	9.1
507	111	396	8.1	9.1	9.1
569	151	419	8.1	9.1	9.1
580	159	421	8.1	9	9.1
578	158	420	8.2	9.1	9.1
565	148	418	8.2	9	9.1
547	138	410	8.3	9.1	9.1
555	137	418	8.4	9.1	9.2
562	136	426	8.6	9.2	9.3
561	133	428	8.6	9.2	9.3
555	126	430	8.4	9.2	9.3
544	120	424	8	9.2	9.2
537	114	423	7.9	9.2	9.2
543	116	427	8.1	9.3	9.2
594	153	441	8.5	9.3	9.2
611	162	449	8.8	9.3	9.2
613	161	452	8.8	9.3	9.2
611	149	462	8.5	9.3	9.2
594	139	455	8.3	9.4	9.2
595	135	461	8.3	9.4	9.2
591	130	461	8.3	9.3	9.2
589	127	463	8.4	9.3	9.2
584	122	462	8.5	9.3	9.2
573	117	456	8.5	9.3	9.2
567	112	455	8.6	9.2	9.1
569	113	456	8.5	9.2	9.1
621	149	472	8.6	9.2	9
629	157	472	8.6	9.1	8.9
628	157	471	8.6	9.1	8.9
612	147	465	8.5	9.1	9
595	137	459	8.4	9.1	8.9
597	132	465	8.4	9	8.8
593	125	468	8.5	8.9	8.7
590	123	467	8.5	8.8	8.6
580	117	463	8.5	8.7	8.5
574	114	460	8.6	8.6	8.5
573	111	462	8.6	8.6	8.4
573	112	461	8.4	8.5	8.3
620	144	476	8.2	8.4	8.2
626	150	476	8	8.4	8.2
620	149	471	8	8.3	8.1
588	134	453	8	8.2	8
566	123	443	8	8.2	7.9
557	116	442	7.9	8	7.8
561	117	444	7.9	7.9	7.6
549	111	438	7.9	7.8	7.5
532	105	427	7.9	7.7	7.4
526	102	424	8	7.6	7.3
511	95	416	7.9	7.6	7.3
499	93	406	7.4	7.6	7.2
555	124	431	7.2	7.6	7.2
565	130	434	7	7.6	7.2
542	124	418	6.9	7.5	7.1
527	115	412	7.1	7.5	7
510	106	404	7.2	7.4	7
514	105	409	7.2	7.4	6.9
517	105	412	7.1	7.4	6.9
508	101	406	6.9	7.3	6.8
493	95	398	6.8	7.3	6.8
490	93	397	6.8	7.4	6.8
469	84	385	6.8	7.5	6.9
478	87	390	6.9	7.6	7
528	116	413	7.1	7.6	7
534	120	413	7.2	7.7	7.1
518	117	401	7.2	7.7	7.2
506	109	397	7.1	7.9	7.3
502	105	397	7.1	8.1	7.5
516	107	409	7.2	8.4	7.7
528	109	419	7.5	8.7	8.1
533	109	424	7.7	9	8.4
536	108	428	7.8	9.3	8.6
537	107	430	7.7	9.4	8.8
524	99	424	7.7	9.5	8.9
536	103	433	7.8	9.6	9.1
587	131	456	8	9.8	9.2
597	137	459	8.1	9.8	9.3
581	135	446	8.1	9.9	9.4
564	124	441	8	10	9.4
558	118	439	8.1	10	9.5
575	121	454	8.2	10.1	9.5
580	121	460	8.4	10.1	9.7
575	118	457	8.5	10.1	9.7
563	113	451	8.5	10.1	9.7
552	107	444	8.5	10.2	9.7
537	100	437	8.5	10.2	9.7
545	102	443	8.5	10.1	9.6
601	130	471	8.4	10.1	9.6
604	136	469	8.3	10.1	9.6
586	133	454	8.2	10.1	9.6
564	120	444	8.1	10.1	9.6
549	112	436	7.9	10.1	9.6
551	109	442	7.6	10.1	9.6
556	110	446	7.3	10	9.5
548	106	442	7.1	9.9	9.5
540	102	438	7	9.9	9.4
531	98	433	7.1	9.9	9.4
521	92	428	7.1	9.9	9.5
519	92	426	7.1	10	9.5
572	120	452	7.3	10.1	9.6
581	127	455	7.3	10.2	9.7
563	124	439	7.3	10.3	9.8
548	114	434	7.2	10.5	9.9
539	108	431	7.2	10.6	10
541	106	435	7.1	10.7	10
562	111	450	7.1	10.8	10.1
559	110	449	7.1	10.9	10.2
546	104	442	7.2	11	10.3
536	100	437	7.3	11.2	10.3
528	96	431	7.4	11.3	10.4
530	98	433	7.4	11.4	10.5
582	122	460	7.5	11.5	10.5
599	134	465	7.4	11.5	10.6
584	133	451	7.4	11.6	10.6

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201899&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201899&T=0

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


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