R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- array(list(11
+ ,12
+ ,9
+ ,22
+ ,15
+ ,20
+ ,10
+ ,7
+ ,5
+ ,6
+ ,20
+ ,14
+ ,21
+ ,4
+ ,13
+ ,14
+ ,10
+ ,20
+ ,24
+ ,28
+ ,9
+ ,9
+ ,18
+ ,9
+ ,23
+ ,26
+ ,25
+ ,5
+ ,14
+ ,19
+ ,5
+ ,19
+ ,17
+ ,16
+ ,4
+ ,13
+ ,8
+ ,9
+ ,24
+ ,22
+ ,28
+ ,4
+ ,14
+ ,21
+ ,4
+ ,21
+ ,25
+ ,24
+ ,4
+ ,15
+ ,12
+ ,9
+ ,20
+ ,18
+ ,24
+ ,16
+ ,15
+ ,15
+ ,12
+ ,20
+ ,15
+ ,20
+ ,10
+ ,15
+ ,18
+ ,9
+ ,13
+ ,20
+ ,10
+ ,4
+ ,15
+ ,16
+ ,7
+ ,21
+ ,21
+ ,12
+ ,4
+ ,15
+ ,12
+ ,10
+ ,18
+ ,18
+ ,27
+ ,8
+ ,16
+ ,18
+ ,12
+ ,23
+ ,21
+ ,25
+ ,7
+ ,16
+ ,11
+ ,10
+ ,23
+ ,16
+ ,10
+ ,4
+ ,17
+ ,19
+ ,10
+ ,24
+ ,25
+ ,27
+ ,4
+ ,16
+ ,11
+ ,9
+ ,24
+ ,20
+ ,23
+ ,5
+ ,17
+ ,12
+ ,9
+ ,22
+ ,12
+ ,19
+ ,5
+ ,16
+ ,16
+ ,14
+ ,18
+ ,22
+ ,18
+ ,8
+ ,17
+ ,20
+ ,17
+ ,22
+ ,23
+ ,21
+ ,8
+ ,16
+ ,16
+ ,14
+ ,17
+ ,20
+ ,18
+ ,8
+ ,17
+ ,18
+ ,15
+ ,20
+ ,19
+ ,21
+ ,4
+ ,16
+ ,20
+ ,13
+ ,25
+ ,24
+ ,24
+ ,7
+ ,18
+ ,14
+ ,12
+ ,20
+ ,21
+ ,18
+ ,8
+ ,16
+ ,16
+ ,12
+ ,21
+ ,27
+ ,27
+ ,7
+ ,18
+ ,12
+ ,12
+ ,21
+ ,10
+ ,23
+ ,5
+ ,16
+ ,15
+ ,7
+ ,24
+ ,22
+ ,21
+ ,5
+ ,18
+ ,16
+ ,13
+ ,24
+ ,18
+ ,23
+ ,4
+ ,16
+ ,19
+ ,15
+ ,20
+ ,18
+ ,23
+ ,7
+ ,18
+ ,17
+ ,13
+ ,18
+ ,16
+ ,16
+ ,4
+ ,16
+ ,16
+ ,16
+ ,19
+ ,27
+ ,25
+ ,16
+ ,19
+ ,18
+ ,11
+ ,20
+ ,21
+ ,21
+ ,8
+ ,17
+ ,14
+ ,11
+ ,26
+ ,23
+ ,27
+ ,5
+ ,19
+ ,16
+ ,12
+ ,23
+ ,21
+ ,21
+ ,4
+ ,17
+ ,19
+ ,18
+ ,20
+ ,18
+ ,17
+ ,18
+ ,19
+ ,22
+ ,6
+ ,19
+ ,21
+ ,20
+ ,5
+ ,17
+ ,12
+ ,11
+ ,19
+ ,20
+ ,22
+ ,14
+ ,20
+ ,26
+ ,5
+ ,27
+ ,21
+ ,27
+ ,4
+ ,17
+ ,17
+ ,18
+ ,15
+ ,14
+ ,15
+ ,12
+ ,20
+ ,19
+ ,9
+ ,11
+ ,22
+ ,20
+ ,4
+ ,18
+ ,12
+ ,7
+ ,23
+ ,25
+ ,28
+ ,4
+ ,20
+ ,12
+ ,7
+ ,20
+ ,22
+ ,24
+ ,4
+ ,18
+ ,19
+ ,15
+ ,26
+ ,21
+ ,27
+ ,7
+ ,20
+ ,15
+ ,14
+ ,25
+ ,16
+ ,23
+ ,4
+ ,18
+ ,16
+ ,17
+ ,22
+ ,15
+ ,21
+ ,9
+ ,20
+ ,22
+ ,5
+ ,21
+ ,15
+ ,18
+ ,4
+ ,18
+ ,20
+ ,10
+ ,22
+ ,21
+ ,21
+ ,5
+ ,20
+ ,21
+ ,14
+ ,22
+ ,23
+ ,19
+ ,4
+ ,18
+ ,17
+ ,12
+ ,20
+ ,22
+ ,23
+ ,6
+ ,21
+ ,17
+ ,11
+ ,23
+ ,20
+ ,22
+ ,8
+ ,18
+ ,11
+ ,12
+ ,22
+ ,13
+ ,21
+ ,5
+ ,21
+ ,20
+ ,17
+ ,24
+ ,17
+ ,23
+ ,4
+ ,18
+ ,19
+ ,15
+ ,20
+ ,21
+ ,20
+ ,10
+ ,21
+ ,22
+ ,16
+ ,26
+ ,24
+ ,25
+ ,5
+ ,18
+ ,20
+ ,12
+ ,20
+ ,20
+ ,21
+ ,6
+ ,21
+ ,17
+ ,13
+ ,23
+ ,22
+ ,26
+ ,8
+ ,18
+ ,10
+ ,8
+ ,21
+ ,15
+ ,24
+ ,6
+ ,21
+ ,20
+ ,18
+ ,22
+ ,20
+ ,16
+ ,9
+ ,18
+ ,16
+ ,18
+ ,25
+ ,23
+ ,20
+ ,6
+ ,21
+ ,18
+ ,16
+ ,20
+ ,21
+ ,21
+ ,5
+ ,19
+ ,19
+ ,18
+ ,22
+ ,18
+ ,20
+ ,6
+ ,22
+ ,20
+ ,13
+ ,27
+ ,17
+ ,27
+ ,4
+ ,19
+ ,13
+ ,14
+ ,27
+ ,14
+ ,22
+ ,4
+ ,22
+ ,25
+ ,17
+ ,25
+ ,25
+ ,22
+ ,4
+ ,19
+ ,9
+ ,5
+ ,20
+ ,8
+ ,27
+ ,4
+ ,22
+ ,21
+ ,16
+ ,24
+ ,21
+ ,19
+ ,8
+ ,19
+ ,11
+ ,14
+ ,23
+ ,13
+ ,23
+ ,4
+ ,22
+ ,23
+ ,19
+ ,12
+ ,25
+ ,25
+ ,5
+ ,19
+ ,8
+ ,14
+ ,25
+ ,6
+ ,28
+ ,8
+ ,22
+ ,22
+ ,11
+ ,28
+ ,22
+ ,25
+ ,4
+ ,19
+ ,20
+ ,13
+ ,25
+ ,22
+ ,25
+ ,7
+ ,22
+ ,16
+ ,12
+ ,21
+ ,15
+ ,22
+ ,5
+ ,19
+ ,17
+ ,14
+ ,21
+ ,18
+ ,20
+ ,6
+ ,22
+ ,20
+ ,18
+ ,23
+ ,19
+ ,22
+ ,4
+ ,19
+ ,14
+ ,18
+ ,21
+ ,15
+ ,21
+ ,10
+ ,23
+ ,16
+ ,13
+ ,28
+ ,17
+ ,24
+ ,4
+ ,19
+ ,23
+ ,18
+ ,22
+ ,24
+ ,24
+ ,8
+ ,23
+ ,15
+ ,8
+ ,20
+ ,25
+ ,26
+ ,12
+ ,20
+ ,16
+ ,15
+ ,24
+ ,17
+ ,20
+ ,4
+ ,23
+ ,25
+ ,11
+ ,23
+ ,26
+ ,16
+ ,4
+ ,20
+ ,16
+ ,8
+ ,24
+ ,20
+ ,24
+ ,8
+ ,23
+ ,22
+ ,18
+ ,25
+ ,20
+ ,26
+ ,4
+ ,20
+ ,24
+ ,14
+ ,22
+ ,26
+ ,22
+ ,6
+ ,23
+ ,20
+ ,17
+ ,26
+ ,18
+ ,25
+ ,5
+ ,20
+ ,19
+ ,14
+ ,24
+ ,20
+ ,21
+ ,4
+ ,23
+ ,23
+ ,17
+ ,22
+ ,22
+ ,22
+ ,4
+ ,20
+ ,20
+ ,12
+ ,25
+ ,22
+ ,22
+ ,4
+ ,23
+ ,23
+ ,22
+ ,23
+ ,24
+ ,22
+ ,7
+ ,20
+ ,21
+ ,13
+ ,21
+ ,21
+ ,26
+ ,8
+ ,24
+ ,22
+ ,19
+ ,23
+ ,24
+ ,24
+ ,4
+ ,20
+ ,16
+ ,12
+ ,18
+ ,18
+ ,17
+ ,4
+ ,24
+ ,24
+ ,24
+ ,24
+ ,24
+ ,24
+ ,6
+ ,20
+ ,17
+ ,14
+ ,25
+ ,21
+ ,24
+ ,8
+ ,24
+ ,23
+ ,20
+ ,23
+ ,26
+ ,25
+ ,5
+ ,20
+ ,13
+ ,11
+ ,26
+ ,17
+ ,24
+ ,6
+ ,24
+ ,23
+ ,20
+ ,27
+ ,23
+ ,26
+ ,4
+ ,20
+ ,17
+ ,17
+ ,26
+ ,22
+ ,24
+ ,7
+ ,24
+ ,15
+ ,18
+ ,21
+ ,16
+ ,20
+ ,4
+ ,20
+ ,17
+ ,10
+ ,19
+ ,18
+ ,21
+ ,4
+ ,24
+ ,20
+ ,12
+ ,28
+ ,25
+ ,25
+ ,4
+ ,20
+ ,16
+ ,17
+ ,22
+ ,18
+ ,21
+ ,6
+ ,24
+ ,22
+ ,16
+ ,28
+ ,21
+ ,23
+ ,4
+ ,20
+ ,18
+ ,17
+ ,20
+ ,16
+ ,18
+ ,4
+ ,25
+ ,17
+ ,4
+ ,28
+ ,19
+ ,23
+ ,4
+ ,21
+ ,15
+ ,19
+ ,24
+ ,24
+ ,28
+ ,7
+ ,25
+ ,26
+ ,18
+ ,24
+ ,22
+ ,21
+ ,5
+ ,21
+ ,18
+ ,20
+ ,18
+ ,24
+ ,12
+ ,15
+ ,25
+ ,27
+ ,10
+ ,27
+ ,25
+ ,15
+ ,4
+ ,21
+ ,17
+ ,18
+ ,25
+ ,17
+ ,22
+ ,6
+ ,25
+ ,27
+ ,21
+ ,23
+ ,28
+ ,24
+ ,4
+ ,21
+ ,27
+ ,16
+ ,23
+ ,20
+ ,21
+ ,4
+ ,25
+ ,19
+ ,13
+ ,22
+ ,21
+ ,21
+ ,4
+ ,21
+ ,22
+ ,19
+ ,28
+ ,19
+ ,28
+ ,4
+ ,25
+ ,22
+ ,15
+ ,25
+ ,16
+ ,21
+ ,6
+ ,21
+ ,15
+ ,11
+ ,24
+ ,23
+ ,23
+ ,4
+ ,26
+ ,25
+ ,24
+ ,28
+ ,22
+ ,28
+ ,4
+ ,21
+ ,22
+ ,14
+ ,26
+ ,26
+ ,22
+ ,11
+ ,26
+ ,25
+ ,12
+ ,21
+ ,21
+ ,19
+ ,4
+ ,21
+ ,19
+ ,12
+ ,22
+ ,19
+ ,26
+ ,5
+ ,26
+ ,24
+ ,23
+ ,28
+ ,26
+ ,27
+ ,4
+ ,22
+ ,12
+ ,20
+ ,27
+ ,22
+ ,20
+ ,8
+ ,26
+ ,26
+ ,22
+ ,25
+ ,23
+ ,24
+ ,7
+ ,22
+ ,16
+ ,14
+ ,23
+ ,18
+ ,23
+ ,4
+ ,27
+ ,24
+ ,19
+ ,24
+ ,18
+ ,19
+ ,4
+ ,22
+ ,13
+ ,15
+ ,25
+ ,23
+ ,25
+ ,8
+ ,28
+ ,28
+ ,24
+ ,28
+ ,28
+ ,27
+ ,4
+ ,22
+ ,19
+ ,17
+ ,23
+ ,21
+ ,21
+ ,4
+ ,22
+ ,25
+ ,15
+ ,26
+ ,23
+ ,22
+ ,4
+ ,22
+ ,20
+ ,16
+ ,25
+ ,26
+ ,28
+ ,5
+ ,22
+ ,19
+ ,18
+ ,24
+ ,24
+ ,25
+ ,4
+ ,22
+ ,16
+ ,13
+ ,25
+ ,23
+ ,22
+ ,6
+ ,22
+ ,23
+ ,19
+ ,25
+ ,24
+ ,24
+ ,4
+ ,22
+ ,24
+ ,17
+ ,23
+ ,22
+ ,23
+ ,4
+ ,22
+ ,20
+ ,10
+ ,24
+ ,25
+ ,23
+ ,5
+ ,22
+ ,18
+ ,12
+ ,25
+ ,23
+ ,28
+ ,6
+ ,22
+ ,16
+ ,13
+ ,25
+ ,23
+ ,22
+ ,6
+ ,23
+ ,19
+ ,15
+ ,24
+ ,23
+ ,21
+ ,4
+ ,23
+ ,20
+ ,10
+ ,23
+ ,21
+ ,26
+ ,4
+ ,23
+ ,18
+ ,19
+ ,26
+ ,20
+ ,21
+ ,4
+ ,23
+ ,18
+ ,8
+ ,28
+ ,27
+ ,26
+ ,4
+ ,23
+ ,13
+ ,14
+ ,22
+ ,11
+ ,23
+ ,8
+ ,23
+ ,20
+ ,20
+ ,23
+ ,23
+ ,22
+ ,8
+ ,24
+ ,20
+ ,8
+ ,28
+ ,11
+ ,24
+ ,4
+ ,24
+ ,17
+ ,10
+ ,25
+ ,14
+ ,24
+ ,4
+ ,24
+ ,18
+ ,9
+ ,17
+ ,20
+ ,25
+ ,4
+ ,24
+ ,20
+ ,23
+ ,25
+ ,23
+ ,19
+ ,10
+ ,24
+ ,24
+ ,22
+ ,25
+ ,26
+ ,26
+ ,5
+ ,24
+ ,20
+ ,16
+ ,26
+ ,22
+ ,27
+ ,5
+ ,24
+ ,17
+ ,18
+ ,21
+ ,21
+ ,24
+ ,8
+ ,24
+ ,17
+ ,19
+ ,23
+ ,20
+ ,20
+ ,6
+ ,24
+ ,12
+ ,15
+ ,28
+ ,11
+ ,27
+ ,4
+ ,25
+ ,23
+ ,19
+ ,27
+ ,28
+ ,22
+ ,4
+ ,25
+ ,24
+ ,17
+ ,23
+ ,24
+ ,14
+ ,4
+ ,25
+ ,24
+ ,17
+ ,23
+ ,24
+ ,14
+ ,4
+ ,25
+ ,22
+ ,20
+ ,28
+ ,24
+ ,25
+ ,4
+ ,25
+ ,23
+ ,22
+ ,23
+ ,26
+ ,22
+ ,4
+ ,25
+ ,23
+ ,22
+ ,27
+ ,20
+ ,26
+ ,8
+ ,26
+ ,21
+ ,21
+ ,23
+ ,17
+ ,23
+ ,4
+ ,26
+ ,19
+ ,16
+ ,24
+ ,16
+ ,25
+ ,5
+ ,26
+ ,27
+ ,23
+ ,27
+ ,27
+ ,25
+ ,4
+ ,27
+ ,22
+ ,20
+ ,25
+ ,24
+ ,18
+ ,4
+ ,28
+ ,28
+ ,9
+ ,28
+ ,28
+ ,25
+ ,4)
+ ,dim=c(14
+ ,98)
+ ,dimnames=list(c('I1V'
+ ,'I2V'
+ ,'I3V'
+ ,'E1V'
+ ,'E2V'
+ ,'E3V'
+ ,'AV'
+ ,'I1M'
+ ,'I2M'
+ ,'I3M'
+ ,'E1M'
+ ,'E2M'
+ ,'E3M'
+ ,'AM')
+ ,1:98))
>  y <- array(NA,dim=c(14,98),dimnames=list(c('I1V','I2V','I3V','E1V','E2V','E3V','AV','I1M','I2M','I3M','E1M','E2M','E3M','AM'),1:98))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par1 = 'grey'
> ylab = 'value'
> xlab = 'variables'
> main = 'Notched Boxplots'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> z <- as.data.frame(t(y))
> postscript(file="/var/www/html/rcomp/tmp/11afw1287165491.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
$stats
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,]    7    8    4   17   10   14    4   11    8   4.0  13.0     8    14   4.0
[2,]   17   16   10   21   18   20    4   17   14  10.0  20.0    17    20   4.0
[3,]   22   20   13   23   22   23    4   19   17  13.5  22.5    20    22   5.5
[4,]   24   23   18   25   24   25    7   21   19  17.0  25.0    23    25   8.0
[5,]   28   28   24   28   28   28   10   27   24  22.0  28.0    27    28  14.0

$n
 [1] 98 98 98 98 98 98 98 98 98 98 98 98 98 98

$conf
         [,1]     [,2]     [,3]     [,4]     [,5]     [,6]     [,7]     [,8]
[1,] 20.88277 18.88277 11.72317 22.36158 21.04238 22.20198 3.521188 18.36158
[2,] 23.11723 21.11723 14.27683 23.63842 22.95762 23.79802 4.478812 19.63842
         [,9]    [,10]    [,11]    [,12]    [,13]    [,14]
[1,] 16.20198 12.38277 21.70198 19.04238 21.20198 4.861584
[2,] 17.79802 14.61723 23.29802 20.95762 22.79802 6.138416

$out
 [1]  5 11 12 13 12 10 10 12 16 16 18  7  9  5 27  6 10 10 12 12 16 16 18 15

$group
 [1]  2  4  4  4  6  6  6  7  7  7  7  8  8  9  9 12 13 13 13 13 14 14 14 14

$names
 [1] "I1V" "I2V" "I3V" "E1V" "E2V" "E3V" "AV"  "I1M" "I2M" "I3M" "E1M" "E2M"
[13] "E3M" "AM" 

Warning message:
In bxp(list(stats = c(7, 17, 22, 24, 28, 8, 16, 20, 23, 28, 4, 10,  :
  some notches went outside hinges ('box'): maybe set notch=FALSE
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,hyperlink('http://www.xycoon.com/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('http://www.xycoon.com/lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
> a<-table.element(a,hyperlink('http://www.xycoon.com/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="/var/www/html/rcomp/tmp/2naek1287165491.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="/var/www/html/rcomp/tmp/3g2v51287165491.tab") 
> try(system("convert tmp/11afw1287165491.ps tmp/11afw1287165491.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.637   0.168   0.724