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_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Sat, 20 Dec 2008 05:02:04 -0700

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/2008/Dec/20/t1229774560oqbxmsw5sktefqn.htm/, Retrieved Wed, 22 May 2024 17:54:46 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=35336, Retrieved Wed, 22 May 2024 17:54:46 +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

notched boxplot

Estimated Impact

195

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

F     [Maximum-likelihood Fitting - Normal Distribution] [workshop 2 Q5 Nor...] [2008-11-13 10:44:33] [47f64d63202c1921bd27f3073f07a153]
F R  D  [Maximum-likelihood Fitting - Normal Distribution] [Normal distribution] [2008-11-13 19:18:39] [3ffd109c9e040b1ae7e5dbe576d4698c]
- RMPD    [Notched Boxplots] [notched boxplot] [2008-12-10 18:45:46] [3ffd109c9e040b1ae7e5dbe576d4698c]
-           [Notched Boxplots] [Notched Boxplot] [2008-12-17 09:34:11] [3ffd109c9e040b1ae7e5dbe576d4698c]
-    D        [Notched Boxplots] [notched boxplot] [2008-12-20 11:57:36] [3ffd109c9e040b1ae7e5dbe576d4698c]
-    D          [Notched Boxplots] [notched boxplot] [2008-12-20 11:59:33] [3ffd109c9e040b1ae7e5dbe576d4698c]
-    D              [Notched Boxplots] [notched boxplot] [2008-12-20 12:02:04] [962e6c9020896982bc8283b8971710a9] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

147768	267037	298427	565464
137507	258113	289231	547344
136919	262813	291975	554788
136151	267413	294912	562325
133001	267366	293488	560854
125554	264777	290555	555332
119647	258863	284736	543599
114158	254844	281818	536662
116193	254868	287854	542722
152803	277267	316263	593530
161761	285351	325412	610763
160942	286602	326011	612613
149470	283042	328282	611324
139208	276687	317480	594167
134588	277915	317539	595454
130322	277128	313737	590865
126611	277103	312276	589379
122401	275037	309391	584428
117352	270150	302950	573100
112135	267140	300316	567456
112879	264993	304035	569028
148729	287259	333476	620735
157230	291186	337698	628884
157221	292300	335932	628232
146681	288186	323931	612117
136524	281477	313927	595404
132111	282656	314485	597141
125326	280190	313218	593408
122716	280408	309664	590072
116615	276836	302963	579799
113719	275216	298989	574205
110737	274352	298423	572775
112093	271311	301631	572942
143565	289802	329765	619567
149946	290726	335083	625809
149147	292300	327616	619916
134339	278506	309119	587625
122683	269826	295916	565742
115614	265861	291413	557274
116566	269034	291542	560576
111272	264176	284678	548854
104609	255198	276475	531673
101802	253353	272566	525919
94542	246057	264981	511038
93051	235372	263290	498662
124129	258556	296806	555362
130374	260993	303598	564591
123946	254663	286994	541657
114971	250643	276427	527070
105531	243422	266424	509846
104919	247105	267153	514258
104782	248541	268381	516922
101281	245039	262522	507561
94545	237080	255542	492622
93248	237085	253158	490243
84031	225554	243803	469357
87486	226839	250741	477580
115867	247934	280445	528379
120327	248333	285257	533590
117008	246969	270976	517945
108811	245098	261076	506174

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=35336&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=35336&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35336&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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Jonger_dan_25	84031	112093	122401	136524	161761
Mannen	225554	253353	267140	277915	292300
Vrouwen	243803	280445	296806	313737	337698
Totaal	469357	531673	564591	593408	628884

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Jonger_dan_25 & 84031 & 112093 & 122401 & 136524 & 161761 \tabularnewline
Mannen & 225554 & 253353 & 267140 & 277915 & 292300 \tabularnewline
Vrouwen & 243803 & 280445 & 296806 & 313737 & 337698 \tabularnewline
Totaal & 469357 & 531673 & 564591 & 593408 & 628884 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35336&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Variable[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]Jonger_dan_25[/C][C]84031[/C][C]112093[/C][C]122401[/C][C]136524[/C][C]161761[/C][/ROW]
[ROW][C]Mannen[/C][C]225554[/C][C]253353[/C][C]267140[/C][C]277915[/C][C]292300[/C][/ROW]
[ROW][C]Vrouwen[/C][C]243803[/C][C]280445[/C][C]296806[/C][C]313737[/C][C]337698[/C][/ROW]
[ROW][C]Totaal[/C][C]469357[/C][C]531673[/C][C]564591[/C][C]593408[/C][C]628884[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35336&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35336&T=1

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Jonger_dan_25	84031	112093	122401	136524	161761
Mannen	225554	253353	267140	277915	292300
Vrouwen	243803	280445	296806	313737	337698
Totaal	469357	531673	564591	593408	628884

Boxplot Notches
Variable	lower bound	median	upper bound
Jonger_dan_25	117458.650958448	122401	127343.349041552
Mannen	262171.149885039	267140	272108.850114961
Vrouwen	290071.085985373	296806	303540.914014627
Totaal	552102.116283401	564591	577079.883716599

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Jonger_dan_25 & 117458.650958448 & 122401 & 127343.349041552 \tabularnewline
Mannen & 262171.149885039 & 267140 & 272108.850114961 \tabularnewline
Vrouwen & 290071.085985373 & 296806 & 303540.914014627 \tabularnewline
Totaal & 552102.116283401 & 564591 & 577079.883716599 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=35336&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]Jonger_dan_25[/C][C]117458.650958448[/C][C]122401[/C][C]127343.349041552[/C][/ROW]
[ROW][C]Mannen[/C][C]262171.149885039[/C][C]267140[/C][C]272108.850114961[/C][/ROW]
[ROW][C]Vrouwen[/C][C]290071.085985373[/C][C]296806[/C][C]303540.914014627[/C][/ROW]
[ROW][C]Totaal[/C][C]552102.116283401[/C][C]564591[/C][C]577079.883716599[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=35336&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=35336&T=2

As an alternative you can also use a QR Code:

The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variable	lower bound	median	upper bound
Jonger_dan_25	117458.650958448	122401	127343.349041552
Mannen	262171.149885039	267140	272108.850114961
Vrouwen	290071.085985373	296806	303540.914014627
Totaal	552102.116283401	564591	577079.883716599

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = grey ;

Parameters (R input):

par1 = grey ;

R code (references can be found in the software module):

z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
a<-table.element(a,hyperlink('lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
a<-table.element(a,hyperlink('central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
a<-table.element(a,hyperlink('upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
a<-table.element(a,hyperlink('upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code