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

Tue, 02 Dec 2014 13:49:37 +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/02/t1417528374vqmdx8u37rb0f90.htm/, Retrieved Thu, 16 May 2024 20:16:25 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262619, Retrieved Thu, 16 May 2024 20:16:25 +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]
- RMPD  [Notched Boxplots] [boxplot] [2014-12-02 12:25:06] [15866c21ed6246d5efde5ff3ba421193]
-   PD    [Notched Boxplots] [boxplot 3] [2014-12-02 12:41:06] [15866c21ed6246d5efde5ff3ba421193]
-    D      [Notched Boxplots] [nb] [2014-12-02 13:10:20] [15866c21ed6246d5efde5ff3ba421193]
-    D          [Notched Boxplots] [NBBBB] [2014-12-02 13:49:37] [69667246dd207ce9acb00bd9a43352d5] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

57	58	69	69
58	51	63	48
14	30	39	68
53	46	68	74
30	51	70	67
48	56	59	65
55	44	62	74
35	42	75	69
41	44	73	63
45	46	73	68
47	50	61	70
53	54	63	78
53	55	78	74
41	59	65	62
55	54	77	69
55	66	69	65
46	55	68	67
59	51	76	52
39	42	67	53
44	63	69	76
57	43	73	63
46	65	78	41
54	69	68	63
60	46	55	56
50	40	66	56
66	70	75	64
60	77	77	75
58	51	66	61
52	69	60	71
49	60	64	72
63	39	74	66
52	51	69	63
52	51	77	71
31	54	70	68
61	72	77	65
56	65	50	69
63	52	72	76
45	45	64	55
68	70	79	62
69	39	69	75
46	41	68	63
54	68	64	67
61	63	79	58
59	57	57	71
51	39	58	53
65	51	74	67
47	50	62	62
58	21	66	54
51	37	66	64
64	40	66	63
60	58	58	78
64	56	75	84
46	63	72	67
56	47	72	55
58	50	75	54
NA	46	NA	58
NA	44	NA	67
NA	58	NA	77
NA	58	NA	72
NA	25	NA	52
NA	56	NA	76
NA	59	NA	77
NA	46	NA	64
NA	49	NA	71
NA	53	NA	73
NA	54	NA	58
NA	52	NA	51
NA	59	NA	75
NA	NA	NA	NA
NA	NA	NA	NA
NA	53	NA	71
NA	NA	NA	NA
NA	NA	NA	NA
NA	NA	NA	NA
NA	NA	NA	NA

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=262619&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=262619&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262619&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	30	46.5	54	59	69
IM	30	46	52	58	72
EF	50	64	69	74	79
EM	51	62	67	71	84

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IF & 30 & 46.5 & 54 & 59 & 69 \tabularnewline
IM & 30 & 46 & 52 & 58 & 72 \tabularnewline
EF & 50 & 64 & 69 & 74 & 79 \tabularnewline
EM & 51 & 62 & 67 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262619&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]30[/C][C]46.5[/C][C]54[/C][C]59[/C][C]69[/C][/ROW]
[ROW][C]IM[/C][C]30[/C][C]46[/C][C]52[/C][C]58[/C][C]72[/C][/ROW]
[ROW][C]EF[/C][C]50[/C][C]64[/C][C]69[/C][C]74[/C][C]79[/C][/ROW]
[ROW][C]EM[/C][C]51[/C][C]62[/C][C]67[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262619&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262619&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	30	46.5	54	59	69
IM	30	46	52	58	72
EF	50	64	69	74	79
EM	51	62	67	71	84

Boxplot Notches
Variable	lower bound	median	upper bound
IF	51.3369105432702	54	56.6630894567298
IM	49.7174842254938	52	54.2825157745062
EF	66.8695284346162	69	71.1304715653838
EM	65.2881131691204	67	68.7118868308796

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IF & 51.3369105432702 & 54 & 56.6630894567298 \tabularnewline
IM & 49.7174842254938 & 52 & 54.2825157745062 \tabularnewline
EF & 66.8695284346162 & 69 & 71.1304715653838 \tabularnewline
EM & 65.2881131691204 & 67 & 68.7118868308796 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262619&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.3369105432702[/C][C]54[/C][C]56.6630894567298[/C][/ROW]
[ROW][C]IM[/C][C]49.7174842254938[/C][C]52[/C][C]54.2825157745062[/C][/ROW]
[ROW][C]EF[/C][C]66.8695284346162[/C][C]69[/C][C]71.1304715653838[/C][/ROW]
[ROW][C]EM[/C][C]65.2881131691204[/C][C]67[/C][C]68.7118868308796[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262619&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262619&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.3369105432702	54	56.6630894567298
IM	49.7174842254938	52	54.2825157745062
EF	66.8695284346162	69	71.1304715653838
EM	65.2881131691204	67	68.7118868308796

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = blue ;

Parameters (R input):

par1 = blue ;

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