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(237.588
+ ,164.083
+ ,278.261
+ ,220.36
+ ,253.967
+ ,422.31
+ ,136.921
+ ,143.495
+ ,189.785
+ ,219.529
+ ,217.761
+ ,221.754
+ ,159.854
+ ,209.464
+ ,174.283
+ ,154.55
+ ,153.024
+ ,162.49
+ ,154.462
+ ,249.671
+ ,259.473
+ ,155.337
+ ,151.289
+ ,276.614
+ ,188.214
+ ,181.098
+ ,240.898
+ ,244.551
+ ,250.238
+ ,183.129
+ ,310.331
+ ,281.942
+ ,230.343
+ ,161.563
+ ,392.527
+ ,1077.414
+ ,248.275
+ ,557.386
+ ,731.874
+ ,301.429
+ ,226.36
+ ,215.018
+ ,157.672
+ ,219.118
+ ,213.019
+ ,390.642
+ ,157.124
+ ,227.652
+ ,239.266
+ ,506.343
+ ,149.219
+ ,213.351
+ ,174.517
+ ,172.531
+ ,320.656
+ ,305.011
+ ,266.495
+ ,361.511
+ ,361.019
+ ,382.187
+ ,196.763
+ ,273.212
+ ,186.397
+ ,294.205
+ ,364.685
+ ,230.501
+ ,217.51
+ ,262.297
+ ,169.246
+ ,260.428
+ ,348.187
+ ,512.937
+ ,164.496
+ ,111.187
+ ,169.999
+ ,240.187
+ ,187.158
+ ,194.096
+ ,265.846
+ ,283.319
+ ,356.938
+ ,240.802
+ ,326.662
+ ,249.266
+ ,277.368
+ ,394.618
+ ,235.686
+ ,227.641
+ ,159.593
+ ,268.866
+ ,206.466
+ ,233.064
+ ,133.824
+ ,486.783
+ ,228.859
+ ,155.238
+ ,2042.451
+ ,205.218
+ ,373.648
+ ,229.151
+ ,199.156
+ ,234.41
+ ,56.519
+ ,289.239
+ ,199.227
+ ,274.513
+ ,174.499
+ ,217.714
+ ,239.717
+ ,241.529
+ ,155.561
+ ,204.107
+ ,745.97
+ ,241.772
+ ,110.267
+ ,186.58
+ ,227.906
+ ,197.518
+ ,254.094
+ ,173.942
+ ,294.42
+ ,211.924
+ ,262.479
+ ,193.495
+ ,165.972
+ ,237.352
+ ,205.814
+ ,227.526
+ ,250.439
+ ,470.849
+ ,176.469
+ ,298.691
+ ,193.922
+ ,212.422
+ ,203.284
+ ,240.56
+ ,445.327
+ ,248.984
+ ,174.44
+ ,165.024
+ ,249.681
+ ,238.312
+ ,250.437
+ ,174.75
+ ,4941.633
+ ,138.936
+ ,203.181
+ ,187.747
+ ,270.95
+ ,307.688
+ ,184.477
+ ,230.916
+ ,187.286
+ ,169.376
+ ,182.838
+ ,176.081
+ ,248.056
+ ,235.24
+ ,76.347)
+ ,dim=c(1
+ ,159)
+ ,dimnames=list(c('time')
+ ,1:159))
>  y <- array(NA,dim=c(1,159),dimnames=list(c('time'),1:159))
>  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/1gnfu1291981531.ps",horizontal=F,onefile=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]
[1,]  56.5190
[2,] 182.9835
[3,] 227.9060
[4,] 269.9080
[5,] 394.6180

$n
[1] 159

$conf
         [,1]
[1,] 217.0142
[2,] 238.7978

$out
 [1]  422.310 1077.414  557.386  731.874  506.343  512.937  486.783 2042.451
 [9]  745.970  470.849  445.327 4941.633

$group
 [1] 1 1 1 1 1 1 1 1 1 1 1 1

$names
[1] "time"

> 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/2vxv31291981531.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/356u61291981531.tab") 
> 
> try(system("convert tmp/1gnfu1291981531.ps tmp/1gnfu1291981531.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.376   0.159  84.217