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

Wed, 01 Dec 2010 20:34:03 +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/2010/Dec/01/t12912355686jh1wmk4i1v7nad.htm/, Retrieved Sat, 04 May 2024 21:36:54 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=104180, Retrieved Sat, 04 May 2024 21:36:54 +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

126

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

-     [Maximum-likelihood Fitting - Normal Distribution] [Intrinsic Motivat...] [2010-10-12 11:57:21] [b98453cac15ba1066b407e146608df68]
- RMPD    [Notched Boxplots] [Paper: Notched Bo...] [2010-12-01 20:34:03] [380f6bceef280be3d93cc6fafd18141e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

24	14	11	12	24	26	14
25	11	7	8	25	23	18
17	6	17	8	30	25	11
18	12	10	8	19	23	12
18	8	12	9	22	19	16
16	10	12	7	22	29	18
20	10	11	4	25	25	14
16	11	11	11	23	21	14
18	16	12	7	17	22	15
17	11	13	7	21	25	15
23	13	14	12	19	24	17
30	12	16	10	19	18	19
23	8	11	10	15	22	10
18	12	10	8	16	15	16
15	11	11	8	23	22	18
12	4	15	4	27	28	14
21	9	9	9	22	20	14
15	8	11	8	14	12	17
20	8	17	7	22	24	14
31	14	17	11	23	20	16
27	15	11	9	23	21	18
34	16	18	11	21	20	11
21	9	14	13	19	21	14
31	14	10	8	18	23	12
19	11	11	8	20	28	17
16	8	15	9	23	24	9
20	9	15	6	25	24	16
21	9	13	9	19	24	14
22	9	16	9	24	23	15
17	9	13	6	22	23	11
24	10	9	6	25	29	16
25	16	18	16	26	24	13
26	11	18	5	29	18	17
25	8	12	7	32	25	15
17	9	17	9	25	21	14
32	16	9	6	29	26	16
33	11	9	6	28	22	9
13	16	12	5	17	22	15
32	12	18	12	28	22	17
25	12	12	7	29	23	13
29	14	18	10	26	30	15
22	9	14	9	25	23	16
18	10	15	8	14	17	16
17	9	16	5	25	23	12
20	10	10	8	26	23	12
15	12	11	8	20	25	11
20	14	14	10	18	24	15
33	14	9	6	32	24	15
29	10	12	8	25	23	17
23	14	17	7	25	21	13
26	16	5	4	23	24	16
18	9	12	8	21	24	14
20	10	12	8	20	28	11
11	6	6	4	15	16	12
28	8	24	20	30	20	12
26	13	12	8	24	29	15
22	10	12	8	26	27	16
17	8	14	6	24	22	15
12	7	7	4	22	28	12
14	15	13	8	14	16	12
17	9	12	9	24	25	8
21	10	13	6	24	24	13
19	12	14	7	24	28	11
18	13	8	9	24	24	14
10	10	11	5	19	23	15
29	11	9	5	31	30	10
31	8	11	8	22	24	11
19	9	13	8	27	21	12
9	13	10	6	19	25	15
20	11	11	8	25	25	15
28	8	12	7	20	22	14
19	9	9	7	21	23	16
30	9	15	9	27	26	15
29	15	18	11	23	23	15
26	9	15	6	25	25	13
23	10	12	8	20	21	12
13	14	13	6	21	25	17
21	12	14	9	22	24	13
19	12	10	8	23	29	15
28	11	13	6	25	22	13
23	14	13	10	25	27	15
18	6	11	8	17	26	16
21	12	13	8	19	22	15
20	8	16	10	25	24	16
23	14	8	5	19	27	15
21	11	16	7	20	24	14
21	10	11	5	26	24	15
15	14	9	8	23	29	14
28	12	16	14	27	22	13
19	10	12	7	17	21	7
26	14	14	8	17	24	17
10	5	8	6	19	24	13
16	11	9	5	17	23	15
22	10	15	6	22	20	14
19	9	11	10	21	27	13
31	10	21	12	32	26	16
31	16	14	9	21	25	12
29	13	18	12	21	21	14
19	9	12	7	18	21	17
22	10	13	8	18	19	15
23	10	15	10	23	21	17
15	7	12	6	19	21	12
20	9	19	10	20	16	16
18	8	15	10	21	22	11
23	14	11	10	20	29	15
25	14	11	5	17	15	9
21	8	10	7	18	17	16
24	9	13	10	19	15	15
25	14	15	11	22	21	10
17	14	12	6	15	21	10
13	8	12	7	14	19	15
28	8	16	12	18	24	11
21	8	9	11	24	20	13
25	7	18	11	35	17	14
9	6	8	11	29	23	18
16	8	13	5	21	24	16
19	6	17	8	25	14	14
17	11	9	6	20	19	14
25	14	15	9	22	24	14
20	11	8	4	13	13	14
29	11	7	4	26	22	12
14	11	12	7	17	16	14
22	14	14	11	25	19	15
15	8	6	6	20	25	15
19	20	8	7	19	25	15
20	11	17	8	21	23	13
15	8	10	4	22	24	17
20	11	11	8	24	26	17
18	10	14	9	21	26	19
33	14	11	8	26	25	15
22	11	13	11	24	18	13
16	9	12	8	16	21	9
17	9	11	5	23	26	15
16	8	9	4	18	23	15
21	10	12	8	16	23	15
26	13	20	10	26	22	16
18	13	12	6	19	20	11
18	12	13	9	21	13	14
17	8	12	9	21	24	11
22	13	12	13	22	15	15
30	14	9	9	23	14	13
30	12	15	10	29	22	15
24	14	24	20	21	10	16
21	15	7	5	21	24	14
21	13	17	11	23	22	15
29	16	11	6	27	24	16
31	9	17	9	25	19	16
20	9	11	7	21	20	11
16	9	12	9	10	13	12
22	8	14	10	20	20	9
20	7	11	9	26	22	16
28	16	16	8	24	24	13
38	11	21	7	29	29	16
22	9	14	6	19	12	12
20	11	20	13	24	20	9
17	9	13	6	19	21	13
28	14	11	8	24	24	13
22	13	15	10	22	22	14
31	16	19	16	17	20	19
						13
						12
						13

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135
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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \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=104180&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]'Gwilym Jenkins' @ 72.249.127.135[/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=104180&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=104180&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	2 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135
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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
CM	9	18	21	25	34
D	4	9	11	13	16
PE	5	11	12	15	21
PC	4	6	8	10	16
PS	10	19	22	25	32
O	14	20	23	24	30
H	7	12	14	16	19

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
CM & 9 & 18 & 21 & 25 & 34 \tabularnewline
D & 4 & 9 & 11 & 13 & 16 \tabularnewline
PE & 5 & 11 & 12 & 15 & 21 \tabularnewline
PC & 4 & 6 & 8 & 10 & 16 \tabularnewline
PS & 10 & 19 & 22 & 25 & 32 \tabularnewline
O & 14 & 20 & 23 & 24 & 30 \tabularnewline
H
 & 7 & 12 & 14 & 16 & 19 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=104180&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]CM[/C][C]9[/C][C]18[/C][C]21[/C][C]25[/C][C]34[/C][/ROW]
[ROW][C]D[/C][C]4[/C][C]9[/C][C]11[/C][C]13[/C][C]16[/C][/ROW]
[ROW][C]PE[/C][C]5[/C][C]11[/C][C]12[/C][C]15[/C][C]21[/C][/ROW]
[ROW][C]PC[/C][C]4[/C][C]6[/C][C]8[/C][C]10[/C][C]16[/C][/ROW]
[ROW][C]PS[/C][C]10[/C][C]19[/C][C]22[/C][C]25[/C][C]32[/C][/ROW]
[ROW][C]O[/C][C]14[/C][C]20[/C][C]23[/C][C]24[/C][C]30[/C][/ROW]
[ROW][C]H
[/C][C]7[/C][C]12[/C][C]14[/C][C]16[/C][C]19[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=104180&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=104180&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
CM	9	18	21	25	34
D	4	9	11	13	16
PE	5	11	12	15	21
PC	4	6	8	10	16
PS	10	19	22	25	32
O	14	20	23	24	30
H	7	12	14	16	19

Boxplot Notches
Variable	lower bound	median	upper bound
CM	20.1310443333419	21	21.8689556666581
D	10.5034539047668	11	11.4965460952332
PE	11.5034539047668	12	12.4965460952332
PC	7.50345390476678	8	8.49654609523322
PS	21.2551808571502	22	22.7448191428498
O	22.5034539047668	23	23.4965460952332
H	13.5034539047668	14	14.4965460952332

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
CM & 20.1310443333419 & 21 & 21.8689556666581 \tabularnewline
D & 10.5034539047668 & 11 & 11.4965460952332 \tabularnewline
PE & 11.5034539047668 & 12 & 12.4965460952332 \tabularnewline
PC & 7.50345390476678 & 8 & 8.49654609523322 \tabularnewline
PS & 21.2551808571502 & 22 & 22.7448191428498 \tabularnewline
O & 22.5034539047668 & 23 & 23.4965460952332 \tabularnewline
H
 & 13.5034539047668 & 14 & 14.4965460952332 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=104180&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]CM[/C][C]20.1310443333419[/C][C]21[/C][C]21.8689556666581[/C][/ROW]
[ROW][C]D[/C][C]10.5034539047668[/C][C]11[/C][C]11.4965460952332[/C][/ROW]
[ROW][C]PE[/C][C]11.5034539047668[/C][C]12[/C][C]12.4965460952332[/C][/ROW]
[ROW][C]PC[/C][C]7.50345390476678[/C][C]8[/C][C]8.49654609523322[/C][/ROW]
[ROW][C]PS[/C][C]21.2551808571502[/C][C]22[/C][C]22.7448191428498[/C][/ROW]
[ROW][C]O[/C][C]22.5034539047668[/C][C]23[/C][C]23.4965460952332[/C][/ROW]
[ROW][C]H
[/C][C]13.5034539047668[/C][C]14[/C][C]14.4965460952332[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=104180&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=104180&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
CM	20.1310443333419	21	21.8689556666581
D	10.5034539047668	11	11.4965460952332
PE	11.5034539047668	12	12.4965460952332
PC	7.50345390476678	8	8.49654609523322
PS	21.2551808571502	22	22.7448191428498
O	22.5034539047668	23	23.4965460952332
H	13.5034539047668	14	14.4965460952332

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 ; par2 = 2 ; par3 = 3 ; par4 = FALSE ;

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code