FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 13 Nov 2009 11:43:41 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/13/t1258137985uir3upxgji263hy.htm/, Retrieved Sun, 05 May 2024 09:06:52 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56993, Retrieved Sun, 05 May 2024 09:06:52 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact137

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Notched Bloxplots] [2009-11-13 18:43:41] [0ba0bb061c5f6e19f35882c90a639aa5] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
232	153	252	100
309	142	331	100
308	138	330	100
309	142	332	100
298	129	322	101.1
293	138	315	101.35
290	142	313	101.45
292	122	314	101.49
283	128	304	101.68
269	135	289	101.92
265	139	284	102.04
253	166	271	102.55
236	116	254	104.02
232	153	246	105.41
224	139	237	105.48
222	150	235	105.54
215	161	230	105.16
213	112	228	105.16
211	113	227	105.16
212	133	231	105.16
215	130	231	105.16
214	131	228	105.17
215	142	230	105.17
213	161	228	105.54
212	148	227	106.9
210	167	225	107.27
197	142	210	107.31
190	132	203	107.39
183	203	196	107.41
176	158	189	107.46
169	85	182	113.14
163	149	177	117
160	155	172	119.28
150	162	162	119.39
147	160	159	119.5
150	187	161	119.67
139	185	150	119.67
137	159	148	119.73
136	126	147	119.77
130	116	144	119.77
129	214	143	119.78
134	135	148	119.78
137	170	152	119.78
131	144	145	121.28
133	119	149	122.44
133	134	148	122.72
129	154	144	122.75
129	125	143	122.8
123	177	138	122.81
122	133	136	122.83
123	151	137	122.83
116	176	133	122.83
121	154	136	122.84
121	167	137	122.85
123	204	140	123.61
125	102	141	124.74
122	121	138	125.1
122	167	137	125.29
123	121	136	125.45
121	249	134	125.51
123	185	136	125.55

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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=56993&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=56993&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56993&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
vrouw116129169222309
douane102131142161204
VlGw133144182235332
CPI100105.16113.14122.72125.55

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
vrouw & 116 & 129 & 169 & 222 & 309 \tabularnewline
douane & 102 & 131 & 142 & 161 & 204 \tabularnewline
VlGw & 133 & 144 & 182 & 235 & 332 \tabularnewline
CPI & 100 & 105.16 & 113.14 & 122.72 & 125.55 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56993&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]vrouw[/C][C]116[/C][C]129[/C][C]169[/C][C]222[/C][C]309[/C][/ROW]
[ROW][C]douane[/C][C]102[/C][C]131[/C][C]142[/C][C]161[/C][C]204[/C][/ROW]
[ROW][C]VlGw[/C][C]133[/C][C]144[/C][C]182[/C][C]235[/C][C]332[/C][/ROW]
[ROW][C]CPI[/C][C]100[/C][C]105.16[/C][C]113.14[/C][C]122.72[/C][C]125.55[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56993&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56993&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
vrouw116129169222309
douane102131142161204
VlGw133144182235332
CPI100105.16113.14122.72125.55






Boxplot Notches
Variablelower boundmedianupper bound
vrouw150.186260862660169187.813739137340
douane135.931051891181142148.068948108819
VlGw163.590857403248182200.409142596752
CPI109.587642373638113.14116.692357626362

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
vrouw & 150.186260862660 & 169 & 187.813739137340 \tabularnewline
douane & 135.931051891181 & 142 & 148.068948108819 \tabularnewline
VlGw & 163.590857403248 & 182 & 200.409142596752 \tabularnewline
CPI & 109.587642373638 & 113.14 & 116.692357626362 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56993&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]vrouw[/C][C]150.186260862660[/C][C]169[/C][C]187.813739137340[/C][/ROW]
[ROW][C]douane[/C][C]135.931051891181[/C][C]142[/C][C]148.068948108819[/C][/ROW]
[ROW][C]VlGw[/C][C]163.590857403248[/C][C]182[/C][C]200.409142596752[/C][/ROW]
[ROW][C]CPI[/C][C]109.587642373638[/C][C]113.14[/C][C]116.692357626362[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56993&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56993&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
vrouw150.186260862660169187.813739137340
douane135.931051891181142148.068948108819
VlGw163.590857403248182200.409142596752
CPI109.587642373638113.14116.692357626362


Figures (Output of Computation)

Input Parameters & R Code

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')