Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 08 Dec 2015 12:57:48 +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/2015/Dec/08/t1449579486tcex2ftphvjmjkx.htm/, Retrieved Thu, 31 Oct 2024 22:53:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=285481, Retrieved Thu, 31 Oct 2024 22:53:59 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact152
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:
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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
MeisjesLFM3297123.5156224
JongensLFM39100131.5158221
MeisjesH23627595137
JongensH246076.599153

\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
Variablelower whiskerlower hingemedianupper hingeupper whisker
MeisjesLFM3297123.5156224
JongensLFM39100131.5158221
MeisjesH23627595137
JongensH246076.599153







Boxplot Notches
Variablelower boundmedianupper bound
MeisjesLFM110.814364787653123.5136.185635212347
JongensLFM119.029375553964131.5143.970624446036
MeisjesH67.90464471173817582.0953552882619
JongensH68.114580113872376.584.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
Variablelower boundmedianupper bound
MeisjesLFM110.814364787653123.5136.185635212347
JongensLFM119.029375553964131.5143.970624446036
MeisjesH67.90464471173817582.0953552882619
JongensH68.114580113872376.584.8854198861277



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