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 computationTue, 16 Dec 2014 17:15:46 +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/2014/Dec/16/t14187503053fjj6d3s4l4n770.htm/, Retrieved Thu, 16 May 2024 06:54:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269855, Retrieved Thu, 16 May 2024 06:54:55 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Bachelor 2014] [2014-12-16 17:15:46] [f02c6c9412fee5ce04bac553459224aa] [Current]
Feedback Forum

Post a new message

Dataset

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269855&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'Sir Maurice George Kendall' @ kendall.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
AMS.I11319212327
AMS.I21418202125
AMS.I3712151925
AMS.E11622242628
AMS.E21219222428
AMS.E31521232528
AMS.A444711

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269855&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
AMS.I11319212327
AMS.I21418202125
AMS.I3712151925
AMS.E11622242628
AMS.E21219222428
AMS.E31521232528
AMS.A444711






Boxplot Notches
Variablelower boundmedianupper bound
AMS.I120.31849687335432121.6815031266457
AMS.I219.48887265501572020.5111273449843
AMS.I313.807369528371516.19263047163
AMS.E123.31849687335432424.6815031266457
AMS.E221.14812109169282222.8518789083072
AMS.E322.31849687335432323.6815031266457
AMS.A3.488872655015744.5111273449843

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
AMS.I1 & 20.3184968733543 & 21 & 21.6815031266457 \tabularnewline
AMS.I2 & 19.4888726550157 & 20 & 20.5111273449843 \tabularnewline
AMS.I3 & 13.80736952837 & 15 & 16.19263047163 \tabularnewline
AMS.E1 & 23.3184968733543 & 24 & 24.6815031266457 \tabularnewline
AMS.E2 & 21.1481210916928 & 22 & 22.8518789083072 \tabularnewline
AMS.E3 & 22.3184968733543 & 23 & 23.6815031266457 \tabularnewline
AMS.A & 3.4888726550157 & 4 & 4.5111273449843 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=269855&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]AMS.I1[/C][C]20.3184968733543[/C][C]21[/C][C]21.6815031266457[/C][/ROW]
[ROW][C]AMS.I2[/C][C]19.4888726550157[/C][C]20[/C][C]20.5111273449843[/C][/ROW]
[ROW][C]AMS.I3[/C][C]13.80736952837[/C][C]15[/C][C]16.19263047163[/C][/ROW]
[ROW][C]AMS.E1[/C][C]23.3184968733543[/C][C]24[/C][C]24.6815031266457[/C][/ROW]
[ROW][C]AMS.E2[/C][C]21.1481210916928[/C][C]22[/C][C]22.8518789083072[/C][/ROW]
[ROW][C]AMS.E3[/C][C]22.3184968733543[/C][C]23[/C][C]23.6815031266457[/C][/ROW]
[ROW][C]AMS.A[/C][C]3.4888726550157[/C][C]4[/C][C]4.5111273449843[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=269855&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269855&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
AMS.I120.31849687335432121.6815031266457
AMS.I219.48887265501572020.5111273449843
AMS.I313.807369528371516.19263047163
AMS.E123.31849687335432424.6815031266457
AMS.E221.14812109169282222.8518789083072
AMS.E322.31849687335432323.6815031266457
AMS.A3.488872655015744.5111273449843


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 2 3 4 5 ;
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')