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:19:12 +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/t1417526390oh4xklzbewfsx44.htm/, Retrieved Sun, 19 May 2024 21:34:05 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262596, Retrieved Sun, 19 May 2024 21:34:05 +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] [NBB] [2014-12-02 13:19:12] [69667246dd207ce9acb00bd9a43352d5] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

52	52	51	57
16	55	56	56
46	72	67	71
56	33	69	56
50	66	55	62
59	66	63	59
60	64	67	57
52	40	65	66
44	46	47	63
67	58	76	69
52	51	64	48
55	50	68	66
37	52	64	73
54	54	65	67
51	66	63	61
48	61	60	68
60	80	68	75
50	51	72	62
63	56	70	69
33	53	61	74
67	47	61	63
46	50	62	58
54	39	71	58
59	58	71	72
61	35	51	62
47	58	70	62
69	60	73	65
52	62	76	69
55	63	59	66
55	53	68	72
41	46	48	62
73	67	52	75
51	59	59	58
52	64	60	66
50	38	59	55
51	50	57	47
60	48	79	62
56	47	60	64
56	66	60	64
29	63	59	50
73	44	61	70
55	43	71	69
43	38	58	48
61	56	59	66
56	45	58	73
56	50	60	74
47	54	55	66
25	55	62	78
46	37	69	60
51	46	68	69
48	51	72	65
47	64	19	78
58	47	68	63
51	62	79	71
55	67	71	80
57	56	71	73
60	65	74	69
56	50	75	84
49	57	53	64
43	47	50	58
59	47	70	59
58	57	78	78
53	50	59	67
48	22	72	60
51	59	70	66
59	56	63	74
62	53	74	72
51	42	67	55
64	52	66	49
52	54	62	74
50	44	73	53
54	62	67	64
58	53	61	65
63	50	74	57
31	36	32	51
71	76	69	80
54	66	60	67
43	62	57	70
41	59	60	74
63	47	68	75
63	55	68	70
56	58	73	69
51	60	69	65
41	57	65	71
66	45	81	65
44	NA	55	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=262596&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=262596&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262596&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
ISCHAK	33	48	53.5	59	73
IBACH	33	47	54	60	76
ESCHAK	47	59	65	70	81
EBACH	47	60	66	71	84

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
ISCHAK & 33 & 48 & 53.5 & 59 & 73 \tabularnewline
IBACH & 33 & 47 & 54 & 60 & 76 \tabularnewline
ESCHAK & 47 & 59 & 65 & 70 & 81 \tabularnewline
EBACH & 47 & 60 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262596&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]ISCHAK[/C][C]33[/C][C]48[/C][C]53.5[/C][C]59[/C][C]73[/C][/ROW]
[ROW][C]IBACH[/C][C]33[/C][C]47[/C][C]54[/C][C]60[/C][C]76[/C][/ROW]
[ROW][C]ESCHAK[/C][C]47[/C][C]59[/C][C]65[/C][C]70[/C][C]81[/C][/ROW]
[ROW][C]EBACH[/C][C]47[/C][C]60[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262596&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262596&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
ISCHAK	33	48	53.5	59	73
IBACH	33	47	54	60	76
ESCHAK	47	59	65	70	81
EBACH	47	60	66	71	84

Boxplot Notches
Variable	lower bound	median	upper bound
ISCHAK	51.6258664017242	53.5	55.3741335982758
IBACH	51.7721241982024	54	56.2278758017976
ESCHAK	63.1258664017242	65	66.8741335982758
EBACH	64.1148743215559	66	67.8851256784441

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
ISCHAK & 51.6258664017242 & 53.5 & 55.3741335982758 \tabularnewline
IBACH & 51.7721241982024 & 54 & 56.2278758017976 \tabularnewline
ESCHAK & 63.1258664017242 & 65 & 66.8741335982758 \tabularnewline
EBACH & 64.1148743215559 & 66 & 67.8851256784441 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262596&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]ISCHAK[/C][C]51.6258664017242[/C][C]53.5[/C][C]55.3741335982758[/C][/ROW]
[ROW][C]IBACH[/C][C]51.7721241982024[/C][C]54[/C][C]56.2278758017976[/C][/ROW]
[ROW][C]ESCHAK[/C][C]63.1258664017242[/C][C]65[/C][C]66.8741335982758[/C][/ROW]
[ROW][C]EBACH[/C][C]64.1148743215559[/C][C]66[/C][C]67.8851256784441[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262596&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262596&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
ISCHAK	51.6258664017242	53.5	55.3741335982758
IBACH	51.7721241982024	54	56.2278758017976
ESCHAK	63.1258664017242	65	66.8741335982758
EBACH	64.1148743215559	66	67.8851256784441

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = blue ;

Parameters (R input):

par1 = brown ;

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