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, 14 Oct 2011 15:48:46 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Oct/14/t1318621737khudieeysdgmq5e.htm/, Retrieved Thu, 16 May 2024 06:08:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=129642, Retrieved Thu, 16 May 2024 06:08:42 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Academic Motivati...] [2010-10-12 12:51:42] [b98453cac15ba1066b407e146608df68]
- R PD  [Notched Boxplots] [] [2011-10-14 19:43:46] [ee8c3a74bf3b349877806e9a50913c60]
- R  D      [Notched Boxplots] [] [2011-10-14 19:48:46] [7dc03dd48c8acabd98b217fada4a6bc0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
23	20	17	21	23	21
24	28	17	19	20	23
22	24	18	25	20	27
24	27	20	17	24	27
27	23	28	20	22	22
27	28	22	22	20	28
24	27	16	21	25	27
23	19	18	17	23	16
27	28	14	17	22	24
28	11	11	22	24	20
27	25	27	25	25	22
24	20	22	15	28	20
25	20	23	22	25	24
24	24	24	21	28	19
20	25	14	16	21	23
26	28	23	28	27	27
23	24	24	22	14	21
23	21	24	21	14	19
20	22	8	12	27	19
24	20	23	25	21	26
23	20	21	24	21	28
18	23	24	24	12	24
23	21	25	25	28	24
26	12	23	25	22	25
26	23	21	26	27	16
23	28	21	22	26	25
22	24	26	24	22	24
20	24	18	17	24	23
25	25	17	20	22	26
22	21	15	15	21	22
23	26	13	24	23	25
25	28	26	26	28	27
23	21	16	21	10	12
22	27	21	25	21	15
24	22	20	23	21	21
25	23	14	28	24	24
17	24	20	18	25	19
20	22	22	21	23	21
23	23	20	21	21	21
20	25	18	23	17	24
24	21	24	15	25	18
24	22	20	23	23	19
28	20	19	21	28	18
25	21	23	10	19	23
25	19	26	21	26	20
18	26	22	18	18	25
17	20	20	19	18	21
22	22	13	22	21	22
25	23	22	24	22	22
26	22	22	15	27	20
19	24	20	18	22	23
25	23	6	26	28	25
21	23	21	21	26	25
13	27	20	23	10	26
25	21	23	16	22	20
26	23	20	22	21	26
25	25	24	16	24	21
25	23	22	19	25	22
21	22	18	20	20	16
24	28	23	25	23	25
21	28	21	21	24	23
25	20	24	21	24	21
20	18	21	16	20	16
23		20		20	
28		11		27	
23		22		23	
28		27		26	
24		25		23	
18		18		17	
20		20		21	
28		24		25	
21		27		27	
25		21		24	
18		18		27	
21		15		21	
22		24		24	
24		22		21	
15		14		15	
28		28		25	
23		26		22	
26		17		24	
20		18		23	
22		11		23	
26		26		22	
23		23		22	
21		15		24	
26		22		24	
23		26		25	
27		20		26	
19		18		21	
22		19		26	
25		23		28	
25		24		18	
25		23		20	
19		27		25	
25		23		22	
22		18		21	
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 time1 seconds
R Server'George Udny Yule' @ yule.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 & 1 seconds \tabularnewline
R Server & 'George Udny Yule' @ yule.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=129642&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]'George Udny Yule' @ yule.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=129642&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129642&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'George Udny Yule' @ yule.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
E1m1320232528
E1V1420232528
E2M1420222428
E2V1520222528
E3M1420232528
E3V142022.52528

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
E1m & 13 & 20 & 23 & 25 & 28 \tabularnewline
E1V & 14 & 20 & 23 & 25 & 28 \tabularnewline
E2M & 14 & 20 & 22 & 24 & 28 \tabularnewline
E2V & 15 & 20 & 22 & 25 & 28 \tabularnewline
E3M & 14 & 20 & 23 & 25 & 28 \tabularnewline
E3V & 14 & 20 & 22.5 & 25 & 28 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=129642&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]E1m[/C][C]13[/C][C]20[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]E1V[/C][C]14[/C][C]20[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]E2M[/C][C]14[/C][C]20[/C][C]22[/C][C]24[/C][C]28[/C][/ROW]
[ROW][C]E2V[/C][C]15[/C][C]20[/C][C]22[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]E3M[/C][C]14[/C][C]20[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]E3V[/C][C]14[/C][C]20[/C][C]22.5[/C][C]25[/C][C]28[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=129642&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129642&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
E1m1320232528
E1V1420232528
E2M1420222428
E2V1520222528
E3M1420232528
E3V142022.52528






Boxplot Notches
Variablelower boundmedianupper bound
E1m22.20197948980382323.7980205101962
E1V22.20197948980382323.7980205101962
E2M21.3615835918432222.638416408157
E2V21.20197948980382222.7980205101962
E3M22.20197948980382323.7980205101962
E3V21.701979489803822.523.2980205101962

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
E1m & 22.2019794898038 & 23 & 23.7980205101962 \tabularnewline
E1V & 22.2019794898038 & 23 & 23.7980205101962 \tabularnewline
E2M & 21.361583591843 & 22 & 22.638416408157 \tabularnewline
E2V & 21.2019794898038 & 22 & 22.7980205101962 \tabularnewline
E3M & 22.2019794898038 & 23 & 23.7980205101962 \tabularnewline
E3V & 21.7019794898038 & 22.5 & 23.2980205101962 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=129642&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]E1m[/C][C]22.2019794898038[/C][C]23[/C][C]23.7980205101962[/C][/ROW]
[ROW][C]E1V[/C][C]22.2019794898038[/C][C]23[/C][C]23.7980205101962[/C][/ROW]
[ROW][C]E2M[/C][C]21.361583591843[/C][C]22[/C][C]22.638416408157[/C][/ROW]
[ROW][C]E2V[/C][C]21.2019794898038[/C][C]22[/C][C]22.7980205101962[/C][/ROW]
[ROW][C]E3M[/C][C]22.2019794898038[/C][C]23[/C][C]23.7980205101962[/C][/ROW]
[ROW][C]E3V[/C][C]21.7019794898038[/C][C]22.5[/C][C]23.2980205101962[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=129642&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129642&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
E1m22.20197948980382323.7980205101962
E1V22.20197948980382323.7980205101962
E2M21.3615835918432222.638416408157
E2V21.20197948980382222.7980205101962
E3M22.20197948980382323.7980205101962
E3V21.701979489803822.523.2980205101962


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 8 ; par2 = 0 ;
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')