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

Tue, 08 Dec 2015 12:57:48 +0000

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/2015/Dec/08/t1449579486tcex2ftphvjmjkx.htm/, Retrieved Thu, 16 May 2024 08:14:48 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=285481, Retrieved Thu, 16 May 2024 08:14:48 +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

121

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

-       [Notched Boxplots] [Notched Boxplot L...] [2015-12-08 12:57:48] [d7b41ff8615e11945ad30de5daa5ba50] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

139	149	70	86
224	148	119	71
119	158	68	108
176	128	147	64
163	159	120	97
137	105	84	129
148	159	137	153
150	167	81	78
153	165	63	80
94	159	69	99
97	91	86	57
166	121	120	68
59	153	57	55
90	221	103	79
164	188	107	116
162	149	65	101
202	92	107	66
66	156	53	71
104	132	69	64
177	161	136	143
99	105	118	85
139	131	82	69
108	157	65	96
194	111	120	60
159	145	215	95
67	162	24	100
114	187	42	105
32	42	29	41
126	155	66	50
149	125	87	93
120	128	76	54
109	96	75	69
172	99	72	58
156	183	76	136
167	214	123	126
87	74	46	64
118	99	86	36
146	48	79	35
73	50	75	61
65	150	43	70
152	68	55	24
77	158	39	147
112	147	95	84
131	39	23	30
56	100	48	77
121	111	94	46
149	138	62	61
168	131	74	159
85	101	62	57
114	165	80	163
119	114	75	76
142	111	54	94
64	75	51	45
105	82	76	78
"N/A"	121	"N/A"	47
"N/A"	150	"N/A"	97
"N/A"	71	"N/A"	33
"N/A"	165	"N/A"	51
"N/A"	154	"N/A"	118
"N/A"	145	"N/A"	89
"N/A"	132	"N/A"	56
"N/A"	169	"N/A"	60
"N/A"	114	"N/A"	109
"N/A"	89	"N/A"	58
"N/A"	173	"N/A"	92
"N/A"	141	"N/A"	95
"N/A"	165	"N/A"	50
"N/A"	110	"N/A"	80
"N/A"	121	"N/A"	68
"N/A"	110	"N/A"	79
"N/A"	117	"N/A"	57
"N/A"	63	"N/A"	69
"N/A"	42	"N/A"	49
"N/A"	154	"N/A"	100
"N/A"	96	"N/A"	78
"N/A"	49	"N/A"	38
"N/A"	110	"N/A"	42
"N/A"	86	"N/A"	90
"N/A"	88	"N/A"	52
"N/A"	168	"N/A"	64
"N/A"	94	"N/A"	31
"N/A"	48	"N/A"	27
"N/A"	145	"N/A"	105
"N/A"	164	"N/A"	71
"N/A"	126	"N/A"	63
"N/A"	132	"N/A"	47
"N/A"	81	"N/A"	78

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	'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285481&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285481&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285481&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	'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
MeisjesLFM	32	97	123.5	156	224
JongensLFM	39	100	131.5	158	221
MeisjesH	23	62	75	95	137
JongensH	24	60	76.5	99	153

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
MeisjesLFM & 32 & 97 & 123.5 & 156 & 224 \tabularnewline
JongensLFM & 39 & 100 & 131.5 & 158 & 221 \tabularnewline
MeisjesH & 23 & 62 & 75 & 95 & 137 \tabularnewline
JongensH & 24 & 60 & 76.5 & 99 & 153 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285481&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]MeisjesLFM[/C][C]32[/C][C]97[/C][C]123.5[/C][C]156[/C][C]224[/C][/ROW]
[ROW][C]JongensLFM[/C][C]39[/C][C]100[/C][C]131.5[/C][C]158[/C][C]221[/C][/ROW]
[ROW][C]MeisjesH[/C][C]23[/C][C]62[/C][C]75[/C][C]95[/C][C]137[/C][/ROW]
[ROW][C]JongensH[/C][C]24[/C][C]60[/C][C]76.5[/C][C]99[/C][C]153[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285481&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285481&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
MeisjesLFM	32	97	123.5	156	224
JongensLFM	39	100	131.5	158	221
MeisjesH	23	62	75	95	137
JongensH	24	60	76.5	99	153

Boxplot Notches
Variable	lower bound	median	upper bound
MeisjesLFM	110.814364787653	123.5	136.185635212347
JongensLFM	119.029375553964	131.5	143.970624446036
MeisjesH	67.9046447117381	75	82.0953552882619
JongensH	68.1145801138723	76.5	84.8854198861277

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
MeisjesLFM & 110.814364787653 & 123.5 & 136.185635212347 \tabularnewline
JongensLFM & 119.029375553964 & 131.5 & 143.970624446036 \tabularnewline
MeisjesH & 67.9046447117381 & 75 & 82.0953552882619 \tabularnewline
JongensH & 68.1145801138723 & 76.5 & 84.8854198861277 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=285481&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]MeisjesLFM[/C][C]110.814364787653[/C][C]123.5[/C][C]136.185635212347[/C][/ROW]
[ROW][C]JongensLFM[/C][C]119.029375553964[/C][C]131.5[/C][C]143.970624446036[/C][/ROW]
[ROW][C]MeisjesH[/C][C]67.9046447117381[/C][C]75[/C][C]82.0953552882619[/C][/ROW]
[ROW][C]JongensH[/C][C]68.1145801138723[/C][C]76.5[/C][C]84.8854198861277[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=285481&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=285481&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
MeisjesLFM	110.814364787653	123.5	136.185635212347
JongensLFM	119.029375553964	131.5	143.970624446036
MeisjesH	67.9046447117381	75	82.0953552882619
JongensH	68.1145801138723	76.5	84.8854198861277

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

par1 <- 'grey'
z <- na.omit(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