FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationMon, 29 Oct 2007 12:06:19 -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/2007/Oct/29/skdi189ba2ez2yj1193684930.htm/, Retrieved Sun, 05 May 2024 17:38:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=2145, Retrieved Sun, 05 May 2024 17:38:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsBox Plot
Estimated Impact171

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Use notched Box Plot] [2007-10-29 19:06:19] [a98121933c09d0d44a9f89053acd1df1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2001-03  	110,40	109,20	99,90	72,50
2001-04  	96,40	88,60	99,80	59,40
2001-05   	101,90	94,30	99,80	85,70
2001-06	106,20	98,30	100,30	88,20
2001-07    	81,00	86,40	99,90	62,80
2001-08    	94,70	80,60	99,90	87,00
2001-09    	101,00	104,10	100,00	79,20
2001-10    	109,40	108,20	100,10	112,00
2001-11    	102,30	93,40	100,10	79,20
2001-12    	90,70	71,90	100,20	132,10
2002-01    	96,20	94,10	100,30	40,10
2002-02    	96,10	94,90	100,60	69,00
2002-03    	106,00	96,40	100,00	59,40
2002-04    	103,10	91,10	100,10	73,80
2002-05    	102,00	84,40	100,20	57,40
2002-06    	104,70	86,40	100,00	81,10
2002-07    	86,00	88,00	100,10	46,60
2002-08    	92,10	75,10	100,10	41,40
2002-09    	106,90	109,70	100,10	71,20
2002-10    	112,60	103,00	100,50	67,90
2002-11    	101,70	82,10	100,50	72,00
2002-12    	92,00	68,00	100,50	145,50
2003-01    	97,40	96,40	96,30	39,70
2003-02    	97,00	94,30	96,30	51,90
2003-03    	105,40	90,00	96,80	73,70
2003-04    	102,70	88,00	96,80	70,90
2003-05    	98,10	76,10	96,90	60,80
2003-06    	104,50	82,50	96,80	61,00
2003-07    	87,40	81,40	96,80	54,50
2003-08    	89,90	66,50	96,80	39,10
2003-09    	109,80	97,20	96,80	66,60
2003-10    	111,70	94,10	97,00	58,50
2003-11    	98,60	80,70	97,00	59,80
2003-12    	96,90	70,50	97,00	80,90
2004-01    	95,10	87,80	96,80	37,30
2004-02    	97,00	89,50	96,90	44,60
2004-03    	112,70	99,60	97,20	48,70
2004-04    	102,90	84,20	97,30	54,00
2004-05    	97,40	75,10	97,30	49,50
2004-06    	111,40	92,00	97,20	61,60
2004-07    	87,40	80,80	97,30	35,00
2004-08    	96,80	73,10	97,30	35,70
2004-09    	114,10	99,80	97,30	51,30
2004-10    	110,30	90,00	97,30	49,00
2004-11    	103,90	83,10	97,30	41,50
2004-12    	101,60	72,40	97,30	72,50
2005-01    	94,60	78,80	98,10	42,10
2005-02    	95,90	87,30	96,80	44,10
2005-03    	104,70	91,00	96,80	45,10
2005-04    	102,80	80,10	96,80	50,30
2005-05    	98,10	73,60	96,80	40,90
2005-06    	113,90	86,40	96,80	47,20
2005-07    	80,90	74,50	96,80	36,90
2005-08    	95,70	71,20	96,80	40,90
2005-09    	113,20	92,40	96,80	38,30
2005-10    	105,90	81,50	96,80	46,30
2005-11    	108,80	85,30	96,80	28,40
2005-12    	102,30	69,90	96,80	78,40
2006-01    	99,00	84,20	96,90	36,80
2006-02    	100,70	90,70	97,10	50,70
2006-03    	115,50	100,30	97,10	42,80

Tables (Output of Computation)





Summary of compuational 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 compuational 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=2145&T=0

[TABLE]
[ROW][C]Summary of compuational 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=2145&T=0

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


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