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

Sat, 13 Dec 2014 12:57:59 +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/2014/Dec/13/t1418475496xwvpm9zp5z2okfe.htm/, Retrieved Thu, 16 May 2024 11:48:09 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267052, Retrieved Thu, 16 May 2024 11:48:09 +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] [Notched Boxplots] [2014-12-13 12:57:59] [21b927ddce509724d48ffb8407994bd0] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

26	NA
37	NA
NA	67
NA	43
NA	52
52	NA
NA	43
NA	84
NA	67
NA	49
NA	70
58	NA
68	NA
62	NA
NA	43
56	NA
74	NA
NA	63
58	NA
NA	63
NA	53
NA	57
NA	64
53	NA
29	NA
54	NA
NA	58
NA	51
54	NA
NA	56
47	NA
NA	50
NA	35
NA	30
68	NA
NA	56
NA	43
NA	67
NA	62
NA	57
NA	54
NA	61
56	NA
41	NA
53	NA
NA	46
51	NA
37	NA
42	NA
NA	38
66	NA
NA	53
49	NA
49	NA
NA	59
40	NA
63	NA
NA	34
32	NA
67	NA
NA	61
60	NA
63	NA
NA	52
NA	16
NA	46
NA	56
52	NA
NA	55
NA	50
59	NA
NA	60
52	NA
44	NA
NA	67
NA	52
NA	55
NA	37
NA	54
NA	72
NA	51
NA	48
60	NA
NA	50
NA	63
NA	33
NA	67
NA	46
NA	54
59	NA
NA	61
NA	33
NA	47
NA	69
NA	52
55	NA
41	NA
NA	73
52	NA
50	NA
NA	51
60	NA
NA	56
NA	56
29	NA
NA	66
NA	66
NA	73
55	NA
64	NA
40	NA
46	NA
NA	58
43	NA
NA	61
51	NA
NA	50
52	NA
NA	54
66	NA
61	NA
NA	80
51	NA
NA	56
NA	56
NA	56
NA	53
NA	47
25	NA
NA	47
46	NA
50	NA
39	NA
NA	51
58	NA
NA	35
58	NA
60	NA
62	NA
63	NA
NA	53
NA	46
NA	67
NA	59
64	NA
38	NA
NA	50
48	NA
48	NA
47	NA
66	NA
NA	47
NA	63
58	NA
44	NA
NA	51
43	NA
NA	55
NA	38
45	NA
NA	50
NA	54
NA	57
60	NA
55	NA
56	NA
NA	49
NA	37
NA	59
NA	46
51	NA
58	NA
64	NA
NA	53
NA	48
51	NA
47	NA
59	NA
NA	62
NA	62
51	NA
64	NA
52	NA
NA	67
NA	50
NA	54
NA	58
56	NA
NA	63
NA	31
NA	65
71	NA
50	NA
NA	57
47	NA
NA	47
NA	57
43	NA
NA	41
63	NA
NA	63
NA	56
51	NA
NA	50
22	NA
NA	41
59	NA
NA	56
66	NA
53	NA
NA	42
NA	52
54	NA
NA	44
NA	62
53	NA
NA	50
36	NA
76	NA
NA	66
NA	62
59	NA
NA	47
55	NA
58	NA
NA	60
44	NA
57	NA
NA	45
NA	58
NA	51
57	NA
NA	30
NA	46
NA	51
NA	56
58	NA
NA	44
14	NA
53	NA
NA	42
49	NA
NA	44
62	NA
30	NA
NA	46
NA	50
NA	54
48	NA
55	NA
35	NA
NA	55
41	NA
NA	59
NA	54
NA	55
45	NA
NA	51
47	NA
NA	42
53	NA
53	NA
41	NA
55	NA
55	NA
46	NA
NA	63
NA	43
NA	65
59	NA
39	NA
44	NA
60	NA
57	NA
NA	67
NA	52
NA	52
NA	69
46	NA
NA	46
53	NA
NA	40
NA	70
54	NA
NA	77
45	NA
60	NA
47	NA
50	NA
66	NA
60	NA
NA	41
53	NA
34	NA
NA	51
NA	69
NA	60
NA	45
58	NA
NA	39
NA	51
52	NA
49	NA
63	NA
44	NA
NA	51
52	NA
60	NA
53	NA
53	NA
52	NA
31	NA
NA	51
NA	65
NA	51
49	NA
61	NA
NA	58
62	NA
NA	54
NA	52
NA	72
NA	50
NA	65
53	NA
56	NA
63	NA
62	NA
66	NA
NA	50
45	NA
58	NA
NA	52
53	NA
68	NA
NA	59
58	NA
NA	52
NA	45
58	NA
NA	70
69	NA
NA	71
46	NA
NA	58
NA	39
NA	46
64	NA
NA	67
NA	44
54	NA
NA	41
NA	68
NA	63
NA	57
61	NA
NA	39
69	NA
64	NA
NA	38
59	NA
NA	51
NA	59
51	NA
65	NA
NA	47
NA	50
NA	57
NA	21
47	NA
NA	51
NA	37
NA	67
NA	43
58	NA
51	NA
NA	40
41	NA
NA	58
NA	64
64	NA
NA	58
50	NA
NA	59
55	NA
59	NA
NA	58
NA	41
NA	56
NA	63
77	NA
60	NA
NA	58
64	NA
46	NA
NA	62
NA	60
NA	50
NA	46
NA	44
NA	58
NA	56
NA	43
54	NA
NA	54
56	NA
65	NA
NA	66
NA	62
NA	58
NA	67
NA	25
NA	56
NA	53
56	NA
NA	59
NA	46
NA	49
56	NA
NA	76
NA	33
NA	49
NA	53
58	NA
NA	72
NA	51
42	NA
69	NA
NA	51
NA	54
NA	52
NA	59
51	NA
NA	67
64	NA
NA	58
NA	53

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267052&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	'Gertrude Mary Cox' @ cox.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
IF	29	47	54	60	77
IM	30	47	54	60	77

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IF & 29 & 47 & 54 & 60 & 77 \tabularnewline
IM & 30 & 47 & 54 & 60 & 77 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267052&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]IF[/C][C]29[/C][C]47[/C][C]54[/C][C]60[/C][C]77[/C][/ROW]
[ROW][C]IM[/C][C]30[/C][C]47[/C][C]54[/C][C]60[/C][C]77[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267052&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267052&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
IF	29	47	54	60	77
IM	30	47	54	60	77

Boxplot Notches
Variable	lower bound	median	upper bound
IF	52.529100048723	54	55.470899951277
IM	52.6796387922208	54	55.3203612077792

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IF & 52.529100048723 & 54 & 55.470899951277 \tabularnewline
IM & 52.6796387922208 & 54 & 55.3203612077792 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267052&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]IF[/C][C]52.529100048723[/C][C]54[/C][C]55.470899951277[/C][/ROW]
[ROW][C]IM[/C][C]52.6796387922208[/C][C]54[/C][C]55.3203612077792[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267052&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267052&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
IF	52.529100048723	54	55.470899951277
IM	52.6796387922208	54	55.3203612077792

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