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(100
+ ,100
+ ,89.49361346
+ ,91.48509543
+ ,83.10125404
+ ,86.12816202
+ ,101.9438822
+ ,99.81344847
+ ,84.32214234
+ ,88.87895933
+ ,83.74805146
+ ,77.44960595
+ ,96.72646053
+ ,99.54926022
+ ,96.96551965
+ ,99.82182653
+ ,96.64037598
+ ,97.30840767
+ ,98.12009958
+ ,93.30090092
+ ,91.10944371
+ ,89.31685275
+ ,95.15774412
+ ,92.62562905
+ ,107.3014821
+ ,106.8119237
+ ,98.23526675
+ ,99.63583353
+ ,96.00172169
+ ,96.12095689
+ ,106.5639469
+ ,103.8125771
+ ,87.55089458
+ ,90.80758941
+ ,91.3182569
+ ,84.57151794
+ ,105.4844001
+ ,107.2509342
+ ,97.53553896
+ ,99.12086194
+ ,109.8334148
+ ,106.6253721
+ ,110.636095
+ ,100.7618452
+ ,105.2901282
+ ,97.83064025
+ ,103.3951048
+ ,99.15046442
+ ,124.9965101
+ ,117.6972615
+ ,99.26071985
+ ,95.9008931
+ ,108.7108257
+ ,108.5769022
+ ,110.2411531
+ ,110.5647373
+ ,95.38458854
+ ,98.16241154
+ ,98.2736558
+ ,90.28982512
+ ,107.913962
+ ,108.7170952
+ ,112.0844094
+ ,111.3282581
+ ,112.9691026
+ ,111.4907925
+ ,102.2509946
+ ,96.86939717
+ ,108.4042949
+ ,105.6987584
+ ,105.1435518
+ ,103.7433185
+ ,118.8815988
+ ,119.2511129
+ ,105.134827
+ ,103.8578187
+ ,113.7886508
+ ,110.7194522
+ ,115.744166
+ ,116.4237959
+ ,111.8372071
+ ,109.6978871
+ ,103.4736279
+ ,99.05886427
+ ,111.7982364
+ ,110.6663911
+ ,127.7826249
+ ,123.7719156
+ ,122.911868
+ ,115.4178698
+ ,113.3326354
+ ,99.85198756
+ ,128.9447663
+ ,116.7706477
+ ,121.3722342
+ ,118.2094404
+ ,128.9883902
+ ,119.3840448
+ ,136.8849026
+ ,128.1972084
+ ,124.9365999
+ ,119.2114567
+ ,141.6189712
+ ,133.4865588
+ ,132.3352179
+ ,125.0727495
+ ,118.2400363
+ ,102.0677059
+ ,137.5631093
+ ,127.2722703
+ ,135.7326493
+ ,124.6739537
+ ,114.0905284
+ ,99.65538235
+ ,104.9434634
+ ,91.45214171
+ ,100.5240688
+ ,89.33137473
+ ,97.99213606
+ ,91.85763996
+ ,105.62516
+ ,99.02311787)
+ ,dim=c(2
+ ,61)
+ ,dimnames=list(c('Invoer'
+ ,'Uitvoer')
+ ,1:61))
>  y <- array(NA,dim=c(2,61),dimnames=list(c('Invoer','Uitvoer'),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 = '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/19p8j1260525901.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]
[1,]  83.10125  77.4496
[2,]  98.12010  96.8694
[3,] 105.62516 100.7618
[4,] 114.09053 111.3283
[5,] 137.56311 128.1972

$n
[1] 61 61

$conf
         [,1]      [,2]
[1,] 102.3944  97.83684
[2,] 108.8560 103.68685

$out
[1] 141.6190 133.4866

$group
[1] 1 2

$names
[1] "Invoer"  "Uitvoer"

> 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/2x0u61260525901.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/3d00c1260525901.tab") 
> 
> system("convert tmp/19p8j1260525901.ps tmp/19p8j1260525901.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.399   0.150   0.513