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 computationWed, 23 Oct 2013 08:17:16 -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/2013/Oct/23/t1382530649grgyntffkytwwne.htm/, Retrieved Sun, 28 Apr 2024 13:18:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=218855, Retrieved Sun, 28 Apr 2024 13:18:51 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2013-10-23 12:17:16] [8707ec56d577a36c6e8f91524bd637f5] [Current]
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 21
20 16 8 24 20 24
25 23 19 27 28 22
25 17 4 28 19 23
22 12 20 27 22 20
26 19 16 24 16 25
22 16 14 23 18 23
17 19 10 24 25 27
22 20 13 27 17 27
19 13 14 27 14 22
24 20 8 28 11 24
26 27 23 27 27 25
21 17 11 23 20 22
13 8 9 24 22 28
26 25 24 28 22 28
20 26 5 27 21 27
22 13 15 25 23 25
14 19 5 19 17 16
21 15 19 24 24 28
7 5 6 20 14 21
23 16 13 28 17 24
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 20
23 19 15 24 23 21
22 25 17 25 25 22
22 19 17 23 21 21
21 18 20 18 24 12
15 15 12 20 15 20
20 12 7 20 22 24
22 21 16 24 21 19
18 12 7 23 25 28
20 15 14 25 16 23
28 28 24 28 28 27
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 21
26 25 12 21 21 19
15 12 9 20 18 24
17 12 9 22 12 19
23 15 8 20 25 26
21 17 18 25 17 22
13 14 10 20 24 28
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 24
18 20 10 22 21 21
20 19 14 24 20 21
24 17 10 25 14 24
14 21 4 21 25 24
22 23 19 12 25 25
24 18 9 17 20 25
18 17 12 20 22 23
21 27 16 23 20 21
23 25 11 23 26 16
17 19 18 20 18 17
22 22 11 28 22 25
24 24 24 24 24 24
21 20 17 24 17 23
22 19 18 24 24 25
16 11 9 24 20 23
21 22 19 28 19 28
23 22 18 25 20 26
22 16 12 21 15 22
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 25
26 24 23 28 26 27
15 16 7 21 21 12
25 27 10 27 25 15
18 11 12 22 13 21
23 21 12 21 20 23
20 20 12 25 22 22
17 20 17 22 23 21
25 27 21 23 28 24
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 19
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 21
19 17 14 21 18 20
19 16 12 23 21 21
26 26 22 25 23 24
21 15 11 24 23 23
20 22 5 21 15 18
24 17 18 21 21 24
22 23 19 25 24 24
20 21 14 22 23 19
18 19 15 20 21 20
18 14 12 20 21 18
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 23
16 16 12 21 27 27
20 17 14 25 21 24
19 22 6 19 21 20
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
25 23 22 23 26 22
20 13 11 26 17 24
17 18 15 20 19 21
23 23 17 22 22 22
16 19 15 20 18 23
23 23 22 23 24 22
11 12 9 22 15 20
18 16 13 24 18 23
24 23 20 23 26 25
23 13 14 22 11 23
21 22 14 26 26 22
16 18 12 23 21 25
24 23 20 27 23 26
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 20
25 23 22 27 20 26
20 17 10 19 18 21
21 17 13 23 22 26
25 22 15 25 16 21
22 20 18 23 19 22
21 20 18 22 20 16
21 19 12 22 19 26
22 18 12 25 23 28
27 22 20 25 24 18
24 20 12 28 25 25
24 22 16 28 21 23
21 18 16 20 21 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 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'Gertrude Mary Cox' @ cox.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 & 2 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218855&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=218855&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=218855&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'Gertrude Mary Cox' @ cox.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
I11118212328
I2816192228
I3411141824
E11521232528
E21018212428
E31521232528

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=218855&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
I11118212328
I2816192228
I3411141824
E11521232528
E21018212428
E31521232528






Boxplot Notches
Variablelower boundmedianupper bound
I120.37931738095852121.6206826190415
I218.25518085715021919.7448191428498
I313.13104433334191414.8689556666581
E122.50345390476682323.4965460952332
E220.25518085715022121.7448191428498
E322.50345390476682323.4965460952332

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
I1 & 20.3793173809585 & 21 & 21.6206826190415 \tabularnewline
I2 & 18.2551808571502 & 19 & 19.7448191428498 \tabularnewline
I3 & 13.1310443333419 & 14 & 14.8689556666581 \tabularnewline
E1 & 22.5034539047668 & 23 & 23.4965460952332 \tabularnewline
E2 & 20.2551808571502 & 21 & 21.7448191428498 \tabularnewline
E3 & 22.5034539047668 & 23 & 23.4965460952332 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218855&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]20.3793173809585[/C][C]21[/C][C]21.6206826190415[/C][/ROW]
[ROW][C]I2[/C][C]18.2551808571502[/C][C]19[/C][C]19.7448191428498[/C][/ROW]
[ROW][C]I3[/C][C]13.1310443333419[/C][C]14[/C][C]14.8689556666581[/C][/ROW]
[ROW][C]E1[/C][C]22.5034539047668[/C][C]23[/C][C]23.4965460952332[/C][/ROW]
[ROW][C]E2[/C][C]20.2551808571502[/C][C]21[/C][C]21.7448191428498[/C][/ROW]
[ROW][C]E3[/C][C]22.5034539047668[/C][C]23[/C][C]23.4965460952332[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=218855&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=218855&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
I120.37931738095852121.6206826190415
I218.25518085715021919.7448191428498
I313.13104433334191414.8689556666581
E122.50345390476682323.4965460952332
E220.25518085715022121.7448191428498
E322.50345390476682323.4965460952332


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