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

Fri, 20 Nov 2009 05:01:20 -0700

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/2009/Nov/20/t12587186505ene8bkobz2miny.htm/, Retrieved Sat, 20 Apr 2024 08:55:56 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=58059, Retrieved Sat, 20 Apr 2024 08:55: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

142

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
F    D  [Notched Boxplots] [] [2009-11-04 14:58:21] [4d62210f0915d3a20cbf115865da7cd4]
-    D      [Notched Boxplots] [WS 6 Review] [2009-11-20 12:01:20] [51118f1042b56b16d340924f16263174] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

100,00	100,00	100,00	100
105,63	112,22	116,76	101,9299478
105,63	114,44	113,45	108,8496656
107,04	113,33	84,46	113,0912755
108,45	106,67	100,67	108,9595994
108,45	102,22	105,66	64,04250771
111,27	103,33	96,47	178,8011116
114,08	104,44	91,11	167,8168993
115,49	104,44	116,29	200,1404709
115,49	102,22	116,27	157,4800745
115,49	100,00	102,25	156,1822457
111,27	100,00	123,80	142,428314
102,82	100,00	99,49	109,0298348
97,18	108,89	108,93	101,5451797
94,37	111,11	113,17	107,4693865
94,37	108,89	93,71	127,2421901
97,18	103,33	95,98	106,467768
98,59	100,00	101,66	64,76929184
100,00	100,00	107,51	171,3927993
101,41	101,11	84,11	150,3374355
100,00	101,11	93,83	182,3770116
97,18	101,11	96,08	146,8928451
98,59	102,22	85,60	144,9659511
95,77	97,78	103,79	154,2034385
90,14	92,22	85,31	122,3287629
94,37	93,33	83,61	104,2813082
92,96	90,00	103,53	112,5599292
90,14	85,56	87,24	141,5580053
88,73	87,78	92,88	111,6957279
87,32	87,78	77,28	72,89828076
91,55	88,89	112,11	174,9045714
95,77	87,78	86,16	172,1959263
95,77	84,44	77,70	176,0680368
90,14	78,89	89,15	190,2464348
85,92	75,56	97,91	149,4152136
81,69	72,22	89,45	156,2524811
85,92	76,67	92,70	121,0370416
101,41	91,11	83,30	101,4230311
102,82	96,67	97,26	116,4289859
97,18	92,22	79,41	132,1983693
85,92	87,78	76,95	93,44367423
81,69	83,33	89,37	67,04736312
87,32	86,67	81,60	146,6790851
100,00	92,22	83,18	140,9228326
108,45	93,33	97,14	154,9332763
111,27	91,11	64,17	146,926436
108,45	85,56	72,73	117,2321129
104,23	80,00	79,18	134,7054692
105,63	81,11	84,76	110,8101505
112,68	90,00	78,37	92,62833237
114,08	94,44	84,95	92,53061349

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' @ 72.249.127.135

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

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
WM	81.69	93.665	100	107.745	115.49
WV	72.22	87.78	94.44	102.22	114.44
Bouwv	64.17	84.285	92.88	101.955	123.8
Inspw	64.04250771	106.96857725	127.2421901	154.5683574	200.1404709

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WM & 81.69 & 93.665 & 100 & 107.745 & 115.49 \tabularnewline
WV & 72.22 & 87.78 & 94.44 & 102.22 & 114.44 \tabularnewline
Bouwv & 64.17 & 84.285 & 92.88 & 101.955 & 123.8 \tabularnewline
Inspw & 64.04250771 & 106.96857725 & 127.2421901 & 154.5683574 & 200.1404709 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=58059&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]WM[/C][C]81.69[/C][C]93.665[/C][C]100[/C][C]107.745[/C][C]115.49[/C][/ROW]
[ROW][C]WV[/C][C]72.22[/C][C]87.78[/C][C]94.44[/C][C]102.22[/C][C]114.44[/C][/ROW]
[ROW][C]Bouwv[/C][C]64.17[/C][C]84.285[/C][C]92.88[/C][C]101.955[/C][C]123.8[/C][/ROW]
[ROW][C]Inspw[/C][C]64.04250771[/C][C]106.96857725[/C][C]127.2421901[/C][C]154.5683574[/C][C]200.1404709[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=58059&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=58059&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
WM	81.69	93.665	100	107.745	115.49
WV	72.22	87.78	94.44	102.22	114.44
Bouwv	64.17	84.285	92.88	101.955	123.8
Inspw	64.04250771	106.96857725	127.2421901	154.5683574	200.1404709

Boxplot Notches
Variable	lower bound	median	upper bound
WM	96.884880913868	100	103.115119086132
WV	91.2452329826884	94.44	97.6347670173116
Bouwv	88.9706140446056	92.88	96.7893859553944
Inspw	116.711012284591	127.2421901	137.773367915409

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WM & 96.884880913868 & 100 & 103.115119086132 \tabularnewline
WV & 91.2452329826884 & 94.44 & 97.6347670173116 \tabularnewline
Bouwv & 88.9706140446056 & 92.88 & 96.7893859553944 \tabularnewline
Inspw & 116.711012284591 & 127.2421901 & 137.773367915409 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=58059&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]WM[/C][C]96.884880913868[/C][C]100[/C][C]103.115119086132[/C][/ROW]
[ROW][C]WV[/C][C]91.2452329826884[/C][C]94.44[/C][C]97.6347670173116[/C][/ROW]
[ROW][C]Bouwv[/C][C]88.9706140446056[/C][C]92.88[/C][C]96.7893859553944[/C][/ROW]
[ROW][C]Inspw[/C][C]116.711012284591[/C][C]127.2421901[/C][C]137.773367915409[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=58059&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=58059&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
WM	96.884880913868	100	103.115119086132
WV	91.2452329826884	94.44	97.6347670173116
Bouwv	88.9706140446056	92.88	96.7893859553944
Inspw	116.711012284591	127.2421901	137.773367915409

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