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:58:36 +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/t1418302728rjvy8lrwqtwgigl.htm/, Retrieved Thu, 16 May 2024 16:59:04 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265948, Retrieved Thu, 16 May 2024 16:59:04 +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] [hjrjhd] [2014-12-11 12:58:36] [ec52aa8040970d621dae982cb6b68c16] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

50	NA
NA	68
62	NA
NA	54
NA	71
NA	54
65	NA
NA	73
NA	52
NA	84
NA	42
NA	66
NA	65
78	NA
73	NA
75	NA
NA	72
66	NA
NA	70
61	NA
NA	81
NA	71
69	NA
NA	71
NA	72
NA	68
NA	70
68	NA
NA	61
67	NA
76	NA
70	NA
NA	60
NA	77
NA	72
NA	69
71	NA
NA	62
NA	70
64	NA
NA	58
NA	76
NA	52
NA	59
NA	68
76	NA
NA	65
NA	67
59	NA
NA	69
NA	76
NA	63
NA	75
NA	63
NA	60
NA	73
63	NA
NA	70
75	NA
NA	66
NA	63
63	NA
64	NA
NA	70
75	NA
NA	61
60	NA
NA	62
NA	73
61	NA
66	NA
64	NA
59	NA
NA	64
60	NA
56	NA
NA	66
78	NA
53	NA
NA	67
59	NA
66	NA
68	NA
NA	71
66	NA
NA	73
NA	72
71	NA
59	NA
64	NA
NA	66
NA	78
NA	68
73	NA
NA	62
65	NA
NA	68
NA	65
NA	60
NA	71
NA	65
68	NA
NA	64
NA	74
NA	69
76	NA
68	NA
72	NA
67	NA
63	NA
59	NA
NA	73
NA	66
NA	62
NA	69
NA	66
51	NA
NA	56
NA	67
69	NA
NA	57
56	NA
55	NA
NA	63
NA	67
NA	65
NA	47
NA	76
NA	64
NA	68
NA	64
65	NA
NA	71
NA	63
NA	60
NA	68
NA	72
NA	70
61	NA
NA	61
NA	62
NA	71
NA	71
NA	51
56	NA
70	NA
NA	73
76	NA
59	NA
NA	68
48	NA
NA	52
NA	59
60	NA
NA	59
NA	57
NA	79
60	NA
60	NA
59	NA
62	NA
NA	59
61	NA
NA	71
57	NA
NA	66
63	NA
NA	69
58	NA
59	NA
NA	48
66	NA
NA	73
NA	67
NA	61
NA	68
NA	75
62	NA
NA	69
58	NA
60	NA
74	NA
NA	55
62	NA
NA	63
69	NA
58	NA
58	NA
68	NA
NA	72
NA	62
NA	62
NA	65
69	NA
66	NA
NA	72
62	NA
75	NA
58	NA
66	NA
NA	55
NA	47
72	NA
62	NA
NA	64
64	NA
NA	19
NA	50
NA	68
NA	70
NA	79
NA	69
71	NA
48	NA
66	NA
NA	73
NA	74
66	NA
NA	71
74	NA
78	NA
75	NA
NA	53
NA	60
50	NA
70	NA
69	NA
NA	65
NA	78
78	NA
59	NA
72	NA
NA	70
NA	63
NA	63
NA	71
74	NA
NA	67
NA	66
NA	62
80	NA
73	NA
NA	67
61	NA
NA	73
NA	74
32	NA
NA	69
69	NA
NA	84
NA	64
58	NA
NA	60
59	NA
NA	78
57	NA
NA	60
68	NA
68	NA
NA	73
NA	69
67	NA
NA	60
NA	65
66	NA
NA	74
81	NA
72	NA
NA	55
NA	49
74	NA
NA	53
64	NA
65	NA
NA	57
51	NA
80	NA
NA	67

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

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

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
EF	48	59.5	65	70.5	81
EM	49	62	67	71	84

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
EF & 48 & 59.5 & 65 & 70.5 & 81 \tabularnewline
EM & 49 & 62 & 67 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265948&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]EF[/C][C]48[/C][C]59.5[/C][C]65[/C][C]70.5[/C][C]81[/C][/ROW]
[ROW][C]EM[/C][C]49[/C][C]62[/C][C]67[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265948&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265948&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
EF	48	59.5	65	70.5	81
EM	49	62	67	71	84

Boxplot Notches
Variable	lower bound	median	upper bound
EF	63.4134303250934	65	66.5865696749066
EM	65.8687175419021	67	68.1312824580979

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
EF & 63.4134303250934 & 65 & 66.5865696749066 \tabularnewline
EM & 65.8687175419021 & 67 & 68.1312824580979 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265948&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]EF[/C][C]63.4134303250934[/C][C]65[/C][C]66.5865696749066[/C][/ROW]
[ROW][C]EM[/C][C]65.8687175419021[/C][C]67[/C][C]68.1312824580979[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265948&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265948&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
EF	63.4134303250934	65	66.5865696749066
EM	65.8687175419021	67	68.1312824580979

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