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, 13 Oct 2011 14:39:35 -0400

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/2011/Oct/13/t1318531535ah89u8uyqtsv3sm.htm/, Retrieved Mon, 13 May 2024 07:55:01 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=129157, Retrieved Mon, 13 May 2024 07:55:01 +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] [Academic Motivati...] [2010-10-12 12:51:42] [b98453cac15ba1066b407e146608df68]
- R PD    [Notched Boxplots] [Taak 4] [2011-10-13 18:39:35] [5ae3d23a633522d14794d358c652ae9c] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

56	48	64	62
68	46	63	70
51	46	61	76
56	55	60	71
44	49	68	65
67	75	77	78
54	51	69	75
61	38	65	52
52	52	64	69
46	48	63	53
52	64	63	72
76	42	79	55
30	39	74	66
50	59	73	64
55	49	76	64
18	80	55	83
42	69	76	67
66	63	61	61
66	38	61	53
33	46	55	71
57	37	68	72
58	65	65	71
59	39	54	70
37	64	76	62
62	59	71	65
52	55	74	75
53	72	70	72
58	58	70	64
36	63	62	71
56	50	64	58
51	59	58	75
44	73	59	81
58	38	79	54
37	62	49	67
48	54	64	66
53	73	65	75
51	70	63	61
51	57	62	64
47	47	65	65
64	74	64	72
54	47	55	54
59	55	73	64
36	44	67	59
62	42	75	54
67	47	67	60
70	60	77	69
46	50	58	60
46	63	55	66
41	68	56	69
52	32	69	57
60	47	75	65
40	67	61	74
41	46	59	69
54	67	68	76
42	57	43	57
51	51	70	71
60	62	67	62
49	60	73	64
52	59	72	58
50	56	59	78
47	62	70	72
59	55	66	62
64	48	73	50
52		61	
60		63	
51		66	
63		68	
49		81	
52		72	
48		53	
50		61	
67		77	
44		75	
51		70	
37		63	
51		57	
60		70	
38		67	
52		44	
65		81	
70		71	
44		67	
50		61	
50		56	
57		74	
63		68	
36		60	
54		72	
36		74	
70		73	
47		58	
52		67	
52		76	
69		67	
52		68	
48		71	
51		70	
53		61	
55		54

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	'Gwilym Jenkins' @ jenkins.wessa.net
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 & 0 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ jenkins.wessa.net \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=129157&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]'Gwilym Jenkins' @ jenkins.wessa.net[/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=129157&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129157&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	'Gwilym Jenkins' @ jenkins.wessa.net
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
IM	30	47	52	59	76
IF	32	48	57	67	81
EM	43	58.5	64	70	79
EF	50	61	66	72	83

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IM & 30 & 47 & 52 & 59 & 76 \tabularnewline
IF & 32 & 48 & 57 & 67 & 81 \tabularnewline
EM & 43 & 58.5 & 64 & 70 & 79 \tabularnewline
EF

 & 50 & 61 & 66 & 72 & 83 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=129157&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]IM[/C][C]30[/C][C]47[/C][C]52[/C][C]59[/C][C]76[/C][/ROW]
[ROW][C]IF[/C][C]32[/C][C]48[/C][C]57[/C][C]67[/C][C]81[/C][/ROW]
[ROW][C]EM[/C][C]43[/C][C]58.5[/C][C]64[/C][C]70[/C][C]79[/C][/ROW]
[ROW][C]EF

[/C][C]50[/C][C]61[/C][C]66[/C][C]72[/C][C]83[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=129157&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129157&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
IM	30	47	52	59	76
IF	32	48	57	67	81
EM	43	58.5	64	70	79
EF	50	61	66	72	83

Boxplot Notches
Variable	lower bound	median	upper bound
IM	50.0944483022685	52	53.9055516977315
IF	53.9828764785918	57	60.0171235214082
EM	62.173846289674	64	65.826153710326
EF	64.2532442770795	66	67.7467557229205

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IM & 50.0944483022685 & 52 & 53.9055516977315 \tabularnewline
IF & 53.9828764785918 & 57 & 60.0171235214082 \tabularnewline
EM & 62.173846289674 & 64 & 65.826153710326 \tabularnewline
EF

 & 64.2532442770795 & 66 & 67.7467557229205 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=129157&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]IM[/C][C]50.0944483022685[/C][C]52[/C][C]53.9055516977315[/C][/ROW]
[ROW][C]IF[/C][C]53.9828764785918[/C][C]57[/C][C]60.0171235214082[/C][/ROW]
[ROW][C]EM[/C][C]62.173846289674[/C][C]64[/C][C]65.826153710326[/C][/ROW]
[ROW][C]EF

[/C][C]64.2532442770795[/C][C]66[/C][C]67.7467557229205[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=129157&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=129157&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
IM	50.0944483022685	52	53.9055516977315
IF	53.9828764785918	57	60.0171235214082
EM	62.173846289674	64	65.826153710326
EF	64.2532442770795	66	67.7467557229205

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 1 2 3 4 5 6 7 ;

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