R version 2.7.2 (2008-08-25)
Copyright (C) 2008 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(2.042969073
+ ,2.038222638
+ ,1.999565488
+ ,1.860338007
+ ,1.984077034
+ ,1.947433722
+ ,1.999130541
+ ,1.773786445
+ ,2.008174184
+ ,1.974511693
+ ,1.999130541
+ ,1.932980822
+ ,2.026124517
+ ,1.992553518
+ ,2.001300933
+ ,1.945468585
+ ,1.908485019
+ ,1.936513742
+ ,1.999565488
+ ,1.797959644
+ ,1.976349979
+ ,1.906335042
+ ,1.999565488
+ ,1.939519253
+ ,2.004321374
+ ,2.01745073
+ ,2
+ ,1.898725182
+ ,2.039017322
+ ,2.034227261
+ ,2.000434077
+ ,2.049218023
+ ,2.009875634
+ ,1.970346876
+ ,2.000434077
+ ,1.898725182
+ ,1.957607287
+ ,1.85672889
+ ,2.000867722
+ ,2.120902818
+ ,1.983175072
+ ,1.973589623
+ ,2.001300933
+ ,1.603144373
+ ,1.982723388
+ ,1.977266212
+ ,2.002597981
+ ,1.838849091
+ ,2.025305865
+ ,1.984077034
+ ,2
+ ,1.773786445
+ ,2.013258665
+ ,1.959518377
+ ,2.000434077
+ ,1.868056362
+ ,2.008600172
+ ,1.926342447
+ ,2.000867722
+ ,1.758911892
+ ,2.019946682
+ ,1.936513742
+ ,2
+ ,1.909020854
+ ,1.934498451
+ ,1.944482672
+ ,2.000434077
+ ,1.668385917
+ ,1.96425963
+ ,1.875639937
+ ,2.000434077
+ ,1.617000341
+ ,2.028977705
+ ,2.040206628
+ ,2.000434077
+ ,1.852479994
+ ,2.051538391
+ ,2.012837225
+ ,2.002166062
+ ,1.831869774
+ ,2.007320953
+ ,1.914343157
+ ,2.002166062
+ ,1.857332496
+ ,1.963787827
+ ,1.832508913
+ ,2.002166062
+ ,2.162862993
+ ,1.988558957
+ ,1.984077034
+ ,1.983626287
+ ,1.598790507
+ ,1.986771734
+ ,1.974511693
+ ,1.983626287
+ ,1.715167358
+ ,2.022840611
+ ,1.954242509
+ ,1.985875357
+ ,1.867467488
+ ,2.011570444
+ ,1.944482672
+ ,1.985875357
+ ,1.850646235
+ ,1.991669007
+ ,1.881384657
+ ,1.986323777
+ ,1.783903579
+ ,2.01911629
+ ,1.916453949
+ ,1.985875357
+ ,1.785329835
+ ,1.941511433
+ ,1.910624405
+ ,1.985875357
+ ,1.736396502
+ ,1.953759692
+ ,1.822821645
+ ,1.985875357
+ ,1.592176757
+ ,2.04060234
+ ,1.987666265
+ ,1.985875357
+ ,1.823474229
+ ,2.048053173
+ ,1.973589623
+ ,1.986771734
+ ,1.767155866
+ ,1.993876915
+ ,1.906873535
+ ,1.986771734
+ ,1.776701184
+ ,1.986323777
+ ,1.848189117
+ ,1.986771734
+ ,1.907948522
+ ,1.978180517
+ ,1.943494516
+ ,1.985875357
+ ,1.571708832
+ ,1.986771734
+ ,1.951823035
+ ,1.986323777
+ ,1.649334859
+ ,2.051923916
+ ,1.998259338
+ ,1.987666265
+ ,1.687528961
+ ,2.012415375
+ ,1.925312091
+ ,1.98811284
+ ,1.73239376
+ ,1.988558957
+ ,1.875639937
+ ,1.98811284
+ ,1.694605199
+ ,2.046885191
+ ,1.963787827
+ ,1.987666265
+ ,1.789580712
+ ,1.941511433
+ ,1.907411361
+ ,1.98811284
+ ,1.544068044
+ ,1.985875357
+ ,1.863917377
+ ,1.98811284
+ ,1.552668216
+ ,2.057285644
+ ,1.999130541
+ ,1.98811284
+ ,1.710117365
+ ,2.042575512
+ ,1.954242509
+ ,1.98811284
+ ,1.69019608
+ ,2.016615548
+ ,1.919601024
+ ,1.98811284
+ ,1.618048097
+ ,2.006893708
+ ,1.859738566
+ ,1.98811284
+ ,1.860338007
+ ,1.975891136
+ ,1.896526217
+ ,1.991669007
+ ,1.624282096
+ ,1.981818607
+ ,1.941014244
+ ,1.985875357
+ ,1.644438589
+ ,2.019946682
+ ,1.959041392
+ ,1.985875357
+ ,1.654176542
+ ,2.011993115
+ ,1.903632516
+ ,1.985875357
+ ,1.701567985
+ ,1.991669007
+ ,1.866877814
+ ,1.985875357
+ ,1.611723308
+ ,2.056523724
+ ,1.936513742
+ ,1.985875357
+ ,1.673941999
+ ,1.907948522
+ ,1.872156273
+ ,1.985875357
+ ,1.567026366
+ ,1.980911938
+ ,1.852479994
+ ,1.985875357
+ ,1.611723308
+ ,2.053846427
+ ,1.965671971
+ ,1.985875357
+ ,1.583198774
+ ,2.02489596
+ ,1.911157609
+ ,1.985875357
+ ,1.665580991
+ ,2.036628895
+ ,1.930949031
+ ,1.985875357
+ ,1.45331834
+ ,2.009875634
+ ,1.844477176
+ ,1.985875357
+ ,1.894316063
+ ,1.995635195
+ ,1.925312091
+ ,1.986323777
+ ,1.565847819
+ ,2.003029471
+ ,1.957607287
+ ,1.98721923
+ ,1.705007959
+ ,2.062581984
+ ,2.001300933
+ ,1.98721923
+ ,1.631443769)
+ ,dim=c(4
+ ,61)
+ ,dimnames=list(c('Ind.prod'
+ ,'Kleding'
+ ,'Kled.bin.'
+ ,'Invest.')
+ ,1:61))
>  y <- array(NA,dim=c(4,61),dimnames=list(c('Ind.prod','Kleding','Kled.bin.','Invest.'),1:61))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par1 = 'red'
> 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/1wn9h1225803921.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]
[1,] 1.934498 1.822822 1.983626 1.453318
[2,] 1.983175 1.906335 1.985875 1.631444
[3,] 2.007321 1.941014 1.988113 1.736397
[4,] 2.025306 1.973590 2.000000 1.857332
[5,] 2.062582 2.040207 2.002598 2.162863

$n
[1] 61 61 61 61

$conf
         [,1]     [,2]     [,3]     [,4]
[1,] 1.998798 1.927409 1.985255 1.690700
[2,] 2.015844 1.954620 1.990970 1.782093

$out
[1] 1.908485 1.907949

$group
[1] 1 1

$names
[1] "Ind.prod"  "Kleding"   "Kled.bin." "Invest."  

Warning message:
In bxp(list(stats = c(1.934498451, 1.983175072, 2.007320953, 2.025305865,  :
  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/2z77u1225803921.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/3u62p1225803921.tab") 
> 
> system("convert tmp/1wn9h1225803921.ps tmp/1wn9h1225803921.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.621   0.178   0.704