FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 03 Oct 2014 10:16:19 +0100
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/Oct/03/t141232806360zxmlhpzc7zn0d.htm/, Retrieved Thu, 09 May 2024 23:53:57 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=238372, Retrieved Thu, 09 May 2024 23:53:57 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Boxplot Tomorrowland] [2014-10-03 09:16:19] [c260288012d574817ee98c3ddd4d9474] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
80
100
60
60
100
100
100
90
120
100
80
160
50
120
100
80
100
80
100
80
80
60
60
50
80
20
80
60
100
90
80
90
100
80
80
140
120
100
80
80
80
100
100
60
80
140
100
100
120
90
40
90
100
100
90
120
80
100
100
90
100
100
100
90
100
50
70
80
80
90
120
100
90
80
200
120
100
80
120
90
100
120
90
100
90
90
100
100
100
80
90
60
80
120
80
100
120
140
90
50
120
60
40
120
40
100
80
80
140
100
140
120
50
100
60
100
100
80
80
20
60
160
80
160
100
100
80
60
60
90
100
90
80
100
100
100
140
160
80
90
90
80
100
100
70
100
80
100
120
80
90
140
90
100
100
100
100
90
90
140
60
100
70
90
100
100
110
120
80
100
100
120
90
120
40
40
100
80
90
100
100
60
90
100
100
110
90
120
100
80
100
100
80
120
80
120
200
80
80
110
80
100
140
100
100
60
60
80
80
100
120
80
100
100
100
80
80
100
100
120
90
80
100
100
70
70
80
100
100
120
100
80
100
80
80
80
90
70
90
80
60
100
100
80
100
60
90
100
100
60
50
100
120
90
60
90
100
50
70
120
100
100
160
100
100
60
100
80
100
100
100
80
120
80
100
120
90
100
100
100
200
80
200
100
140
80
80
80
80
80
100
100
100
80
80
80
80
100
70
100
90
90
120
120
30
80
100
120
200
90
80
40
100
100
100
100
70
100
80
100
120
70
80
100
90
90
80
80
100
80
80
80
80
100
80
40
80
100
120
100
200
120
120
200
60
100
100
90
80
90
120
100
70
90
90
120
160
100
80
40
80
40
60
80
60
80
120
50
60
50
80
60
50
100
80
100
100
100
120
80
100
60
60
90
40
60
40
80
100
80
80
150
80
80
80
160
100
100
120
100
40
80
100
50
60
100
80
90
90
80
100
100
100
60
160
80
80
60
100
60
80
100
80
120
200
80
100
80
120
120
100
100
50
100
100
100
80
80
80
60
80
100
60
100
200
120
80
80
100
50
60
80
80
140
90
60
70
120
90
50
50
80
80
60
100
60
80
80
100
70
120
80
100
100
100
80
80
100
80
90
60
60
90
80
40
100
80
80
60
50
80
20
80
60
60
100
100
100
60
100
90
100
80
70
90
100
140
100
100
100
140
120
90
120
200
60
100
100
80
100
100
100
50
60
90
100
100
100
100
60
80
80
60
140
120
80
90
260
80
100
90
80
100
100
80
100
60
80
50
60
40
100
60
120
140
100
100
100
100
100
160
160
100
100
80
100
100
90
100
120
100
100
120
100
100
120
100
100
80
90
90
80
100
90
100
90
160
100
100
100
90
80
140
80
140
100
90
100
100
100
100
100
160
100
120
100
80
100
100
120
90
90
80
60
60
100
100
80
80
60
100
60
80
90
100
60
60
70
20
60
100
70
160
100
100
80
120
80
100
100
100
90
90
100
100
120
100
100
100
100
80
80
100
100
100
100
80
120
100
90
120
80
80
120
100
100
120
80
100
100
100
100
120
70
60
90
90
100
90
90
100
60
80
90
70
140
80
80
80
100
100
120
60
100
90
100
100
80
100
100
100
90
100
100
80
90
120
60
120
100
80
100
100
140
90
80
100
80
80
70
80
90
100
40
80
100
80
80
120
100
80
60
80
100
40
80
100
90
90
100
100
60
100
80
40
100
60
100
140
100
60
100
100
120
100
40
90
80
100
80
80
100
90
70
120
80
100
80
100
80
100
80
90
50
120
50
90
100
100
100
100
120
120
40
90
90
100
80
90
80
100
80
60
100
80
100
80
120
60
160
100
80
90
90
120
80
160
80
100
80
100
80
200
200
100
100
160
120
90
120
80
100
100
120
100
100
80
70
70
110
100
90
60
160
160
50
50
70
50
100
100
70
100
90
60
100
60
60
60
100
60
50
90
80
80
100
80
50
40
60
50
60
100
80
80
60
60
120
80
100
90
90
200
60
100
60
100
90
70
200
80
200
80
80
120
100
80
90
100
200
160
100
100
100
100
120
160
100
120
80

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=238372&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'Gwilym Jenkins' @ jenkins.wessa.net






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Tomorrowland & 50 & 80 & 90 & 100 & 120 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=238372&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]Tomorrowland[/C][C]50[/C][C]80[/C][C]90[/C][C]100[/C][C]120[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=238372&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=238372&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
Tomorrowland508090100120






Boxplot Notches
Variablelower boundmedianupper bound
Tomorrowland88.94666666666679091.0533333333333

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Tomorrowland & 88.9466666666667 & 90 & 91.0533333333333 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=238372&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]Tomorrowland[/C][C]88.9466666666667[/C][C]90[/C][C]91.0533333333333[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=238372&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=238372&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
Tomorrowland88.94666666666679091.0533333333333


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