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

Thu, 11 Dec 2014 12:42:31 +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/11/t1418301799ayt2tugnodgwm2o.htm/, Retrieved Fri, 01 Nov 2024 00:37:56 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265921, Retrieved Fri, 01 Nov 2024 00:37:56 +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] [hhg] [2014-12-11 12:42:31] [ec52aa8040970d621dae982cb6b68c16] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

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

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' @ 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=265921&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=265921&T=0

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
IF	29	46.5	53	59	76
IM	30	48	54	60	74

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265921&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	46.5	53	59	76
IM	30	48	54	60	74

Boxplot Notches
Variable	lower bound	median	upper bound
IF	51.1970799148788	53	54.8029200851212
IM	52.4916233892028	54	55.5083766107972

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265921&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	51.1970799148788	53	54.8029200851212
IM	52.4916233892028	54	55.5083766107972

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

par1 <- 'grey'
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