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, 13 Nov 2009 06:21:13 -0700

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/2009/Nov/13/t1258118706jmlzhwnk7plab5d.htm/, Retrieved Sun, 05 May 2024 18:46:24 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56598, Retrieved Sun, 05 May 2024 18:46:24 +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

123

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

-       [Notched Boxplots] [Shwws6v1] [2009-11-13 13:21:13] [0bdf648420800d03e6dbfbd39fe2311c] [Current]
- RMP     [Kendall tau Correlation Matrix] [Ws 6] [2009-11-13 13:50:46] [dc3c82a565f0b2cd85906905748a1f2c] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

33	62	44	46
39	64	44	46
45	62	46	41
46	64	44	43
45	64	46	39
45	69	46	36
49	69	48	34
50	65	44	31
54	56	48	27
59	58	50	27
58	53	49	30
56	62	52	28
48	55	49	31
50	60	51	25
52	59	51	26
53	58	51	22
55	53	51	27
43	57	51	38
42	57	49	39
38	53	48	45
41	54	46	48
41	53	47	46
39	57	48	47
34	57	46	55
27	55	45	63
15	49	42	83
14	50	43	100
31	49	43	76
41	54	47	68
43	58	48	63
46	58	47	63
42	52	47	62
45	56	46	62
45	52	46	64
40	59	47	72
35	53	45	67
36	52	45	67
38	53	45	67
39	51	44	69
32	50	44	78
24	56	44	80
21	52	41	85
12	46	39	90
29	48	43	83
36	46	44	84
31	48	43	84
28	48	42	89
30	49	41	82
38	53	44	76
27	48	43	97
40	51	45	82
40	48	46	79
44	50	46	73
47	55	46	72
45	52	46	74
42	53	46	77
38	52	45	78
46	55	46	68
37	53	45	71
41	53	46	68
40	56	45	70
33	54	47	79
34	52	44	78
36	55	45	79
36	54	46	78
38	59	46	77
42	56	45	72
35	56	43	72
25	51	42	84
24	53	43	83
22	52	43	82
27	51	42	78
17	46	40	77
30	49	44	75
30	46	44	77
34	55	45	73
37	57	46	64
36	53	46	64
33	52	45	71
33	53	45	65
33	50	43	68
37	54	45	64
40	53	45	65
35	50	45	56
37	51	43	57
43	52	46	51
42	47	46	52
33	51	44	79
39	49	46	59
40	53	45	54
37	52	44	55
44	45	45	47
42	53	45	52
43	51	44	52
40	48	43	54
30	48	42	49
30	48	43	48
31	48	42	44
18	40	39	47
24	43	40	43
22	40	38	45
26	39	41	40
28	39	38	38
23	36	38	46
17	41	38	51
12	39	34	49
9	40	36	57
19	39	38	61
21	46	40	61
18	40	35	81
18	37	36	97
15	37	35	105
24	44	39	108
18	41	38	113
19	40	36	111
30	36	39	111
33	38	41	110
35	43	41	109
36	42	38	105
47	45	41	97
46	46	41	97

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56598&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	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Alg	12	29	36	42	59
Spaar	38	48	52	55	65
Fin	36	42	45	46	52
Werk	22	48	67	79	113

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Alg & 12 & 29 & 36 & 42 & 59 \tabularnewline
Spaar & 38 & 48 & 52 & 55 & 65 \tabularnewline
Fin & 36 & 42 & 45 & 46 & 52 \tabularnewline
Werk & 22 & 48 & 67 & 79 & 113 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56598&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]Alg[/C][C]12[/C][C]29[/C][C]36[/C][C]42[/C][C]59[/C][/ROW]
[ROW][C]Spaar[/C][C]38[/C][C]48[/C][C]52[/C][C]55[/C][C]65[/C][/ROW]
[ROW][C]Fin[/C][C]36[/C][C]42[/C][C]45[/C][C]46[/C][C]52[/C][/ROW]
[ROW][C]Werk[/C][C]22[/C][C]48[/C][C]67[/C][C]79[/C][C]113[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56598&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56598&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
Alg	12	29	36	42	59
Spaar	38	48	52	55	65
Fin	36	42	45	46	52
Werk	22	48	67	79	113

Boxplot Notches
Variable	lower bound	median	upper bound
Alg	34.1327272727273	36	37.8672727272727
Spaar	50.9945454545455	52	53.0054545454545
Fin	44.4254545454545	45	45.5745454545455
Werk	62.5472727272727	67	71.4527272727273

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Alg & 34.1327272727273 & 36 & 37.8672727272727 \tabularnewline
Spaar & 50.9945454545455 & 52 & 53.0054545454545 \tabularnewline
Fin & 44.4254545454545 & 45 & 45.5745454545455 \tabularnewline
Werk & 62.5472727272727 & 67 & 71.4527272727273 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56598&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]Alg[/C][C]34.1327272727273[/C][C]36[/C][C]37.8672727272727[/C][/ROW]
[ROW][C]Spaar[/C][C]50.9945454545455[/C][C]52[/C][C]53.0054545454545[/C][/ROW]
[ROW][C]Fin[/C][C]44.4254545454545[/C][C]45[/C][C]45.5745454545455[/C][/ROW]
[ROW][C]Werk[/C][C]62.5472727272727[/C][C]67[/C][C]71.4527272727273[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56598&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56598&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
Alg	34.1327272727273	36	37.8672727272727
Spaar	50.9945454545455	52	53.0054545454545
Fin	44.4254545454545	45	45.5745454545455
Werk	62.5472727272727	67	71.4527272727273

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code