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(0.762253 + ,1.3119 + ,35.16 + ,0.768403 + ,1.3014 + ,41.54 + ,0.757518 + ,1.3201 + ,45.07 + ,0.772917 + ,1.2938 + ,46.84 + ,0.787774 + ,1.2694 + ,45.20 + ,0.82203 + ,1.2165 + ,46.65 + ,0.830772 + ,1.2037 + ,52.55 + ,0.813537 + ,1.2292 + ,55.05 + ,0.815927 + ,1.2256 + ,60.75 + ,0.832293 + ,1.2015 + ,55.99 + ,0.848464 + ,1.1786 + ,53.39 + ,0.843455 + ,1.1856 + ,49.42 + ,0.826241 + ,1.2103 + ,55.12 + ,0.837661 + ,1.1938 + ,59.84 + ,0.831947 + ,1.202 + ,55.98 + ,0.81493 + ,1.2271 + ,61.27 + ,0.783085 + ,1.277 + ,66.94 + ,0.790514 + ,1.265 + ,64.67 + ,0.788395 + ,1.2684 + ,67.74 + ,0.780579 + ,1.2811 + ,69.79 + ,0.785731 + ,1.2727 + ,64.49 + ,0.792959 + ,1.2611 + ,54.92 + ,0.776337 + ,1.2881 + ,53.32 + ,0.75683 + ,1.3213 + ,56.13 + ,0.76929 + ,1.2999 + ,54.63 + ,0.764877 + ,1.3074 + ,52.11 + ,0.755173 + ,1.3242 + ,57.83 + ,0.739864 + ,1.3516 + ,64.93 + ,0.740138 + ,1.3511 + ,63.40 + ,0.745212 + ,1.3419 + ,65.37 + ,0.729076 + ,1.3716 + ,69.91 + ,0.734107 + ,1.3622 + ,73.81 + ,0.719632 + ,1.3896 + ,71.42 + ,0.702889 + ,1.4227 + ,75.57 + ,0.681013 + ,1.4684 + ,86.02 + ,0.686342 + ,1.457 + ,85.91 + ,0.67944 + ,1.4718 + ,92.93 + ,0.678058 + ,1.4748 + ,88.71 + ,0.644039 + ,1.5527 + ,98.01 + ,0.63488 + ,1.5751 + ,98.39 + ,0.642797 + ,1.5557 + ,110.21 + ,0.642963 + ,1.5553 + ,121.36 + ,0.634115 + ,1.577 + ,137.11 + ,0.66778 + ,1.4975 + ,121.29 + ,0.695894 + ,1.437 + ,106.41 + ,0.750638 + ,1.3322 + ,93.38 + ,0.785423 + ,1.2732 + ,58.66 + ,0.74355 + ,1.3449 + ,43.12 + ,0.755344 + ,1.3239 + ,34.57 + ,0.782167 + ,1.2785 + ,41.77 + ,0.766284 + ,1.305 + ,42.85 + ,0.75815 + ,1.319 + ,48.09 + ,0.732601 + ,1.365 + ,48.91 + ,0.71347 + ,1.4016 + ,65.62 + ,0.709824 + ,1.4088 + ,68.47 + ,0.700869 + ,1.4268 + ,71.52 + ,0.686719 + ,1.4562 + ,68.07 + ,0.674946 + ,1.4816 + ,65.00 + ,0.670511 + ,1.4914 + ,76.34 + ,0.684275 + ,1.4614 + ,76.18) + ,dim=c(3 + ,60) + ,dimnames=list(c('PeriodegemiddeldeEUR' + ,'PeriodegemiddeldeUS' + ,'Olieprijzen') + ,1:60)) > y <- array(NA,dim=c(3,60),dimnames=list(c('PeriodegemiddeldeEUR','PeriodegemiddeldeUS','Olieprijzen'),1:60)) > 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/1obzh1292793947.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] [,2] [,3] [1,] 0.6341150 1.17860 34.570 [2,] 0.6983815 1.27105 52.935 [3,] 0.7560870 1.32260 63.945 [4,] 0.7867525 1.43190 74.690 [5,] 0.8484640 1.57700 106.410 $n [1] 60 60 60 $conf [,1] [,2] [,3] [1,] 0.7380613 1.289790 59.50748 [2,] 0.7741127 1.355410 68.38252 $out [1] 110.21 121.36 137.11 121.29 $group [1] 3 3 3 3 $names [1] "PeriodegemiddeldeEUR" "PeriodegemiddeldeUS" "Olieprijzen" > 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/223xq1292793947.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/3vuet1292793947.tab") > > try(system("convert tmp/1obzh1292793947.ps tmp/1obzh1292793947.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 0.385 0.177 0.792