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_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 21 Dec 2012 11:55:44 -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/21/t13561090570501m99z4y7rdic.htm/, Retrieved Thu, 25 Apr 2024 17:03:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=203950, Retrieved Thu, 25 Apr 2024 17:03:38 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [] [2012-12-21 16:44:38] [c6facf0b6ae567d6b83e1aa51c1363be]
- R  D    [Notched Boxplots] [] [2012-12-21 16:55:44] [ce0248448cbe5ad845933386ae480935] [Current]
-    D      [Notched Boxplots] [] [2012-12-21 17:13:33] [c6facf0b6ae567d6b83e1aa51c1363be]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
26		21		21		23		17		23
20		16		15		24		17		20
19		19		18		22		18		20
	19		18		11		20		21	
20		16		8		24		20		24
25		23		19		27		28		22
	25		17		4		28		19	
22		12		20		27		22		20
26		19		16		24		16		25
22		16		14		23		18		23
	17		19		10		24		25	
	22		20		13		27		17	
19		13		14		27		14		22
24		20		8		28		11		24
26		27		23		27		27		25
	21		17		11		23		20	
13		8		9		24		22		28
	26		25		24		28		22	
	20		26		5		27		21	
22		13		15		25		23		25
	14		19		5		19		17	
21		15		19		24		24		28
7		5		6		20		14		21
	23		16		13		28		17	
17		14		11		26		23		27
25		24		17		23		24		14
25		24		17		23		24		14
19		9		5		20		8		27
	20		19		9		11		22	
23		19		15		24		23		21
	22		25		17		25		25	
22		19		17		23		21		21
21		18		20		18		24		12
	15		15		12		20		15	
	20		12		7		20		22	
	22		21		16		24		21	
18		12		7		23		25		28
	20		15		14		25		16	
	28		28		24		28		28	
22		25		15		26		23		22
18		19		15		26		21		27
23		20		10		23		21		26
20		24		14		22		26		22
	25		26		18		24		22	
	26		25		12		21		21	
15		12		9		20		18		24
	17		12		9		22		12	
	23		15		8		20		25	
21		17		18		25		17		22
	13		14		10		20		24	
18		16		17		22		15		21
19		11		14		23		13		23
22		20		16		25		26		28
16		11		10		23		16		10
	24		22		19		23		24	
18		20		10		22		21		21
20		19		14		24		20		21
24		17		10		25		14		24
	14		21		4		21		25	
	22		23		19		12		25	
24		18		9		17		20		25
18		17		12		20		22		23
21		27		16		23		20		21
	23		25		11		23		26	
17		19		18		20		18		17
	22		22		11		28		22	
	24		24		24		24		24	
	21		20		17		24		17	
22		19		18		24		24		25
16		11		9		24		20		23
21		22		19		28		19		28
	23		22		18		25		20	
	22		16		12		21		15	
24		20		23		25		23		19
24		24		22		25		26		26
16		16		14		18		22		18
16		16		14		17		20		18
	21		22		16		26		24	
	26		24		23		28		26	
	15		16		7		21		21	
	25		27		10		27		25	
18		11		12		22		13		21
										
20		20		12		25		22		22
	17		20		17		22		23	
	25		27		21		23		28	
24		20		16		26		22		27
17		12		11		19		20		22
19		8		14		25		6		28
20		21		13		21		21		26
15		18		9		13		20		10
	27		24		19		24		18	
22		16		13		25		23		22
23		18		19		26		20		21
16		20		13		25		24		24
19		20		13		25		22		25
	25		19		13		22		21	
19		17		14		21		18		20
	19		16		12		23		21	
	26		26		22		25		23	
21		15		11		24		23		23
	20		22		5		21		15	
24		17		18		21		21		24
22		23		19		25		24		24
	20		21		14		22		23	
18		19		15		20		21		20
	18		14		12		20		21	
24		17		19		23		20		20
24		12		15		28		11		27
22		24		17		23		22		23
23		18		8		28		27		26
22		20		10		24		25		23
20		16		12		18		18		17
18		20		12		20		20		21
25		22		20		28		24		25
	18		12		12		21		10	
16		16		12		21		27		27
20		17		14		25		21		24
	19		22		6		19		21	
15		12		10		18		18		27
19		14		18		21		15		21
19		23		18		22		24		24
16		15		7		24		22		21
17		17		18		15		14		15
28		28		9		28		28		25
	23		20		17		26		18	
25		23		22		23		26		22
20		13		11		26		17		24
	17		18		15		20		19	
	23		23		17		22		22	
16		19		15		20		18		23
	23		23		22		23		24	
	11		12		9		22		15	
	18		16		13		24		18	
	24		23		20		23		26	
23		13		14		22		11		23
21		22		14		26		26		22
	16		18		12		23		21	
	24		23		20		27		23	
23		20		20		23		23		22
18		10		8		21		15		24
20		17		17		26		22		24
9		18		9		23		26		25
	24		15		18		21		16	
25		23		22		27		20		26
20		17		10		19		18		21
	21		17		13		23		22	
	25		22		15		25		16	
	22		20		18		23		19	
	21		20		18		22		20	
21		19		12		22		19		26
22		18		12		25		23		28
27		22		20		25		24		18
	24		20		12		28		25	
	24		22		16		28		21	
	21		18		16		20		21	
18		16		18		25		23		20
16		16		16		19		27		25
22		16		13		25		23		22
20		16		17		22		18		21
	18		17		13		18		16	
20		18		17		20		16		18

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=203950&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=203950&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=203950&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
I1616202328
I2416212428
I3716202328
E11118202328
E2616202328
E371721.52428

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
I1 & 6 & 16 & 20 & 23 & 28 \tabularnewline
I2 & 4 & 16 & 21 & 24 & 28 \tabularnewline
I3 & 7 & 16 & 20 & 23 & 28 \tabularnewline
E1 & 11 & 18 & 20 & 23 & 28 \tabularnewline
E2 & 6 & 16 & 20 & 23 & 28 \tabularnewline
E3 & 7 & 17 & 21.5 & 24 & 28 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=203950&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]I1[/C][C]6[/C][C]16[/C][C]20[/C][C]23[/C][C]28[/C][/ROW]
[ROW][C]I2[/C][C]4[/C][C]16[/C][C]21[/C][C]24[/C][C]28[/C][/ROW]
[ROW][C]I3[/C][C]7[/C][C]16[/C][C]20[/C][C]23[/C][C]28[/C][/ROW]
[ROW][C]E1[/C][C]11[/C][C]18[/C][C]20[/C][C]23[/C][C]28[/C][/ROW]
[ROW][C]E2[/C][C]6[/C][C]16[/C][C]20[/C][C]23[/C][C]28[/C][/ROW]
[ROW][C]E3[/C][C]7[/C][C]17[/C][C]21.5[/C][C]24[/C][C]28[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=203950&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
I1616202328
I2416212428
I3716202328
E11118202328
E2616202328
E371721.52428






Boxplot Notches
Variablelower boundmedianupper bound
I119.13104433334192020.8689556666581
I220.00690780953362121.9930921904664
I319.13104433334192020.8689556666581
E119.37931738095852020.6206826190415
E219.13104433334192020.8689556666581
E320.631044333341921.522.3689556666581

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
I1 & 19.1310443333419 & 20 & 20.8689556666581 \tabularnewline
I2 & 20.0069078095336 & 21 & 21.9930921904664 \tabularnewline
I3 & 19.1310443333419 & 20 & 20.8689556666581 \tabularnewline
E1 & 19.3793173809585 & 20 & 20.6206826190415 \tabularnewline
E2 & 19.1310443333419 & 20 & 20.8689556666581 \tabularnewline
E3 & 20.6310443333419 & 21.5 & 22.3689556666581 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=203950&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]I1[/C][C]19.1310443333419[/C][C]20[/C][C]20.8689556666581[/C][/ROW]
[ROW][C]I2[/C][C]20.0069078095336[/C][C]21[/C][C]21.9930921904664[/C][/ROW]
[ROW][C]I3[/C][C]19.1310443333419[/C][C]20[/C][C]20.8689556666581[/C][/ROW]
[ROW][C]E1[/C][C]19.3793173809585[/C][C]20[/C][C]20.6206826190415[/C][/ROW]
[ROW][C]E2[/C][C]19.1310443333419[/C][C]20[/C][C]20.8689556666581[/C][/ROW]
[ROW][C]E3[/C][C]20.6310443333419[/C][C]21.5[/C][C]22.3689556666581[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=203950&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

Boxplot Notches
Variablelower boundmedianupper bound
I119.13104433334192020.8689556666581
I220.00690780953362121.9930921904664
I319.13104433334192020.8689556666581
E119.37931738095852020.6206826190415
E219.13104433334192020.8689556666581
E320.631044333341921.522.3689556666581


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
par1 <- 'grey'
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')