Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Fri, 22 Jan 2016 08:13:40 +0000

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2016/Jan/22/t1453450437r89rkrky6lxqsk3.htm/, Retrieved Wed, 08 May 2024 02:18:51 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=290059, Retrieved Wed, 08 May 2024 02:18:51 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Notched Boxplots] [] [2016-01-22 08:13:40] [9d441e5437781f0cd4d5053adc3d2c6c] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

'bach' 1 1 6 6 3.2 1 1 0 0 0 3.2 6 3.2
'bach' 0 0 7 7 3.3 0 0 1 0 1 3.3 7 3.3
'bach' 0 0 2 2 3 1 0 1 1 1 3 2 3
'bach' 0 0 11 11 3.5 0 0 1 0 1 3.5 11 3.5
'bach' 0 0 13 13 3.7 1 0 1 0 0 3.7 13 3.7
'bach' 1 1 3 3 2.7 0 1 0 0 0 2.7 3 2.7
'bach' 0 0 17 17 3.6 1 0 1 1 1 3.6 17 3.6
'bach' 0 0 10 10 3.5 0 0 1 0 1 3.5 10 3.5
'bach' 1 1 4 4 3.8 1 1 0 0 0 3.8 4 3.8
'bach' 0 0 12 12 3.4 0 0 1 0 0 3.4 12 3.4
'scha' 0 0 7 7 3.7 1 0 0 0 1 3.7 7 3.7
'scha' 0 0 11 11 3.5 0 0 1 0 0 3.5 11 3.5
'scha' 0 0 3 3 2.8 1 0 0 1 0 2.8 3 2.8
'scha' 1 1 5 5 3.8 0 1 0 1 0 3.8 5 3.8
'scha' 0 0 1 1 4.3 1 0 1 0 0 4.3 1 4.3
'scha' 0 0 12 12 3.3 0 0 0 0 1 3.3 12 3.3
'scha' 0 0 18 18 3.6 1 0 0 0 0 3.6 18 3.6
'scha' 1 1 8 8 3.6 0 1 0 1 0 3.6 8 3.6
'scha' 1 1 6 6 3.3 1 1 1 0 0 3.3 6 3.3
'scha' 0 0 1 1 2.8 0 0 0 0 0 2.8 1 2.8

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 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 & 0 seconds \tabularnewline
R Server & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=290059&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]0 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=290059&T=0

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

As an alternative you can also use a QR Code:

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

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	0 seconds
R Server	'Sir Maurice George Kendall' @ kendall.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Groep	NA	NA	NA	NA	NA
Drugs	0	0	0	1	1
Drugs	0	0	0	1	1
Numeracy	1	3.5	7	11.5	18
Numeracy	1	3.5	7	11.5	18
Gebgewicht	2.7	3.25	3.5	3.65	3.8
Geslacht	0	0	0.5	1	1
Drugs	0	0	0	1	1
Fruit	0	0	0.5	1	1
Sport	0	0	0	0.5	1
Alcohol	0	0	0	1	1
Gebgewicht	2.7	3.25	3.5	3.65	3.8
Numeracy	1	3.5	7	11.5	18
Gebgewicht	2.7	3.25	3.5	3.65	3.8

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Groep & NA & NA & NA & NA & NA \tabularnewline
Drugs & 0 & 0 & 0 & 1 & 1 \tabularnewline
Drugs & 0 & 0 & 0 & 1 & 1 \tabularnewline
Numeracy & 1 & 3.5 & 7 & 11.5 & 18 \tabularnewline
Numeracy & 1 & 3.5 & 7 & 11.5 & 18 \tabularnewline
Gebgewicht & 2.7 & 3.25 & 3.5 & 3.65 & 3.8 \tabularnewline
Geslacht & 0 & 0 & 0.5 & 1 & 1 \tabularnewline
Drugs & 0 & 0 & 0 & 1 & 1 \tabularnewline
Fruit & 0 & 0 & 0.5 & 1 & 1 \tabularnewline
Sport & 0 & 0 & 0 & 0.5 & 1 \tabularnewline
Alcohol & 0 & 0 & 0 & 1 & 1 \tabularnewline
Gebgewicht & 2.7 & 3.25 & 3.5 & 3.65 & 3.8 \tabularnewline
Numeracy & 1 & 3.5 & 7 & 11.5 & 18 \tabularnewline
Gebgewicht & 2.7 & 3.25 & 3.5 & 3.65 & 3.8 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=290059&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]Groep[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Drugs[/C][C]0[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Drugs[/C][C]0[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Numeracy[/C][C]1[/C][C]3.5[/C][C]7[/C][C]11.5[/C][C]18[/C][/ROW]
[ROW][C]Numeracy[/C][C]1[/C][C]3.5[/C][C]7[/C][C]11.5[/C][C]18[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]2.7[/C][C]3.25[/C][C]3.5[/C][C]3.65[/C][C]3.8[/C][/ROW]
[ROW][C]Geslacht[/C][C]0[/C][C]0[/C][C]0.5[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Drugs[/C][C]0[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Fruit[/C][C]0[/C][C]0[/C][C]0.5[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Sport[/C][C]0[/C][C]0[/C][C]0[/C][C]0.5[/C][C]1[/C][/ROW]
[ROW][C]Alcohol[/C][C]0[/C][C]0[/C][C]0[/C][C]1[/C][C]1[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]2.7[/C][C]3.25[/C][C]3.5[/C][C]3.65[/C][C]3.8[/C][/ROW]
[ROW][C]Numeracy[/C][C]1[/C][C]3.5[/C][C]7[/C][C]11.5[/C][C]18[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]2.7[/C][C]3.25[/C][C]3.5[/C][C]3.65[/C][C]3.8[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=290059&T=1

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

As an alternative you can also use a QR Code:

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Groep	NA	NA	NA	NA	NA
Drugs	0	0	0	1	1
Drugs	0	0	0	1	1
Numeracy	1	3.5	7	11.5	18
Numeracy	1	3.5	7	11.5	18
Gebgewicht	2.7	3.25	3.5	3.65	3.8
Geslacht	0	0	0.5	1	1
Drugs	0	0	0	1	1
Fruit	0	0	0.5	1	1
Sport	0	0	0	0.5	1
Alcohol	0	0	0	1	1
Gebgewicht	2.7	3.25	3.5	3.65	3.8
Numeracy	1	3.5	7	11.5	18
Gebgewicht	2.7	3.25	3.5	3.65	3.8

Boxplot Notches
Variable	lower bound	median	upper bound
Groep	NA	NA	NA
Drugs	-0.353298740444967	0	0.353298740444967
Drugs	-0.353298740444967	0	0.353298740444967
Numeracy	4.17361007644027	7	9.82638992355973
Numeracy	4.17361007644027	7	9.82638992355973
Gebgewicht	3.35868050382201	3.5	3.64131949617799
Geslacht	0.146701259555033	0.5	0.853298740444967
Drugs	-0.353298740444967	0	0.353298740444967
Fruit	0.146701259555033	0.5	0.853298740444967
Sport	-0.176649370222483	0	0.176649370222483
Alcohol	-0.353298740444967	0	0.353298740444967
Gebgewicht	3.35868050382201	3.5	3.64131949617799
Numeracy	4.17361007644027	7	9.82638992355973
Gebgewicht	3.35868050382201	3.5	3.64131949617799

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Groep & NA & NA & NA \tabularnewline
Drugs & -0.353298740444967 & 0 & 0.353298740444967 \tabularnewline
Drugs & -0.353298740444967 & 0 & 0.353298740444967 \tabularnewline
Numeracy & 4.17361007644027 & 7 & 9.82638992355973 \tabularnewline
Numeracy & 4.17361007644027 & 7 & 9.82638992355973 \tabularnewline
Gebgewicht & 3.35868050382201 & 3.5 & 3.64131949617799 \tabularnewline
Geslacht & 0.146701259555033 & 0.5 & 0.853298740444967 \tabularnewline
Drugs & -0.353298740444967 & 0 & 0.353298740444967 \tabularnewline
Fruit & 0.146701259555033 & 0.5 & 0.853298740444967 \tabularnewline
Sport & -0.176649370222483 & 0 & 0.176649370222483 \tabularnewline
Alcohol & -0.353298740444967 & 0 & 0.353298740444967 \tabularnewline
Gebgewicht & 3.35868050382201 & 3.5 & 3.64131949617799 \tabularnewline
Numeracy & 4.17361007644027 & 7 & 9.82638992355973 \tabularnewline
Gebgewicht & 3.35868050382201 & 3.5 & 3.64131949617799 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=290059&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]Groep[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]Drugs[/C][C]-0.353298740444967[/C][C]0[/C][C]0.353298740444967[/C][/ROW]
[ROW][C]Drugs[/C][C]-0.353298740444967[/C][C]0[/C][C]0.353298740444967[/C][/ROW]
[ROW][C]Numeracy[/C][C]4.17361007644027[/C][C]7[/C][C]9.82638992355973[/C][/ROW]
[ROW][C]Numeracy[/C][C]4.17361007644027[/C][C]7[/C][C]9.82638992355973[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]3.35868050382201[/C][C]3.5[/C][C]3.64131949617799[/C][/ROW]
[ROW][C]Geslacht[/C][C]0.146701259555033[/C][C]0.5[/C][C]0.853298740444967[/C][/ROW]
[ROW][C]Drugs[/C][C]-0.353298740444967[/C][C]0[/C][C]0.353298740444967[/C][/ROW]
[ROW][C]Fruit[/C][C]0.146701259555033[/C][C]0.5[/C][C]0.853298740444967[/C][/ROW]
[ROW][C]Sport[/C][C]-0.176649370222483[/C][C]0[/C][C]0.176649370222483[/C][/ROW]
[ROW][C]Alcohol[/C][C]-0.353298740444967[/C][C]0[/C][C]0.353298740444967[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]3.35868050382201[/C][C]3.5[/C][C]3.64131949617799[/C][/ROW]
[ROW][C]Numeracy[/C][C]4.17361007644027[/C][C]7[/C][C]9.82638992355973[/C][/ROW]
[ROW][C]Gebgewicht[/C][C]3.35868050382201[/C][C]3.5[/C][C]3.64131949617799[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=290059&T=2

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

As an alternative you can also use a QR Code:

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

Boxplot Notches
Variable	lower bound	median	upper bound
Groep	NA	NA	NA
Drugs	-0.353298740444967	0	0.353298740444967
Drugs	-0.353298740444967	0	0.353298740444967
Numeracy	4.17361007644027	7	9.82638992355973
Numeracy	4.17361007644027	7	9.82638992355973
Gebgewicht	3.35868050382201	3.5	3.64131949617799
Geslacht	0.146701259555033	0.5	0.853298740444967
Drugs	-0.353298740444967	0	0.353298740444967
Fruit	0.146701259555033	0.5	0.853298740444967
Sport	-0.176649370222483	0	0.176649370222483
Alcohol	-0.353298740444967	0	0.353298740444967
Gebgewicht	3.35868050382201	3.5	3.64131949617799
Numeracy	4.17361007644027	7	9.82638992355973
Gebgewicht	3.35868050382201	3.5	3.64131949617799

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

Parameters (R input):

par1 = grey ; par2 = no ;

R code (references can be found in the software module):

if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
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')

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code