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

Wed, 04 Nov 2009 10:44:31 -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/04/t1257357031wsvhnf4zq9sil5q.htm/, Retrieved Mon, 29 Apr 2024 11:50:24 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53763, Retrieved Mon, 29 Apr 2024 11:50:24 +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

notched box plot

Estimated Impact

169

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]
-    D    [Notched Boxplots] [box plot notched] [2009-11-04 17:44:31] [950726a732ba3ca782ecb1a5307d0f6f] [Current]
-           [Notched Boxplots] [Paper] [2009-12-07 10:14:57] [3e19a07d230ba260a720e0e03e0f40f2] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

79	82	82	89
106	106	94	94
101	97	99	95
104	102	94	98
97	102	96	90
93	91	87	99
99	101	97	100
116	117	109	110
104	102	107	104
99	101	110	104
109	109	118	117
93	89	107	99
91	95	95	105
111	114	119	106
105	103	107	100
114	120	112	114
103	116	118	110
105	109	105	116
106	111	109	106
125	132	130	128
103	106	105	105
114	115	125	118
123	119	113	118
102	104	118	106
101	107	105	114
121	123	116	110
120	120	124	127
119	124	124	129
102	106	113	111
118	116	116	129
114	115	123	115
130	133	144	129
113	112	112	122
119	118	121	132
129	126	126	128
116	116	140	134
110	112	117	125
124	124	133	127
133	136	138	148
129	134	135	138
105	118	117	119
127	128	118	144
127	130	121	109
128	133	125	132
133	137	143	145
122	122	129	138
141	145	137	146
127	128	146	157
110	115	110	142
136	136	142	162
132	134	132	153
110	117	106	125
97	102	106	124
96	95	89	120
98	98	97	107
106	109	108	111
98	99	99	97
94	94	98	95
107	109	110	102
98	98	109	94

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	'George Udny Yule' @ 72.249.76.132

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

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
uitintraeu	79	101.5	110	122.5	141
inintraeu	82	102	114.5	123.5	145
uitextraeu	82	105.5	113	124.5	146
inextraeu	89	104.5	115.5	129	162

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
uitintraeu & 79 & 101.5 & 110 & 122.5 & 141 \tabularnewline
inintraeu & 82 & 102 & 114.5 & 123.5 & 145 \tabularnewline
uitextraeu & 82 & 105.5 & 113 & 124.5 & 146 \tabularnewline
inextraeu & 89 & 104.5 & 115.5 & 129 & 162 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53763&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]uitintraeu[/C][C]79[/C][C]101.5[/C][C]110[/C][C]122.5[/C][C]141[/C][/ROW]
[ROW][C]inintraeu[/C][C]82[/C][C]102[/C][C]114.5[/C][C]123.5[/C][C]145[/C][/ROW]
[ROW][C]uitextraeu[/C][C]82[/C][C]105.5[/C][C]113[/C][C]124.5[/C][C]146[/C][/ROW]
[ROW][C]inextraeu[/C][C]89[/C][C]104.5[/C][C]115.5[/C][C]129[/C][C]162[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53763&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53763&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
uitintraeu	79	101.5	110	122.5	141
inintraeu	82	102	114.5	123.5	145
uitextraeu	82	105.5	113	124.5	146
inextraeu	89	104.5	115.5	129	162

Boxplot Notches
Variable	lower bound	median	upper bound
uitintraeu	105.716480419095	110	114.283519580905
inintraeu	110.114491857644	114.5	118.885508142356
uitextraeu	109.124434664895	113	116.875565335105
inextraeu	110.502560488944	115.5	120.497439511056

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
uitintraeu & 105.716480419095 & 110 & 114.283519580905 \tabularnewline
inintraeu & 110.114491857644 & 114.5 & 118.885508142356 \tabularnewline
uitextraeu & 109.124434664895 & 113 & 116.875565335105 \tabularnewline
inextraeu & 110.502560488944 & 115.5 & 120.497439511056 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53763&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]uitintraeu[/C][C]105.716480419095[/C][C]110[/C][C]114.283519580905[/C][/ROW]
[ROW][C]inintraeu[/C][C]110.114491857644[/C][C]114.5[/C][C]118.885508142356[/C][/ROW]
[ROW][C]uitextraeu[/C][C]109.124434664895[/C][C]113[/C][C]116.875565335105[/C][/ROW]
[ROW][C]inextraeu[/C][C]110.502560488944[/C][C]115.5[/C][C]120.497439511056[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53763&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53763&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
uitintraeu	105.716480419095	110	114.283519580905
inintraeu	110.114491857644	114.5	118.885508142356
uitextraeu	109.124434664895	113	116.875565335105
inextraeu	110.502560488944	115.5	120.497439511056

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