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.7461 + ,0.5857 + ,1.2413 + ,0.7775 + ,0.5858 + ,1.2758 + ,0.7790 + ,0.5717 + ,1.2729 + ,0.7744 + ,0.5945 + ,1.2695 + ,0.7905 + ,0.5961 + ,1.2858 + ,0.7719 + ,0.5973 + ,1.2741 + ,0.7811 + ,0.6036 + ,1.2823 + ,0.7557 + ,0.6096 + ,1.2588 + ,0.7637 + ,0.6315 + ,1.2856 + ,0.7595 + ,0.6262 + ,1.2619 + ,0.7471 + ,0.6121 + ,1.2590 + ,0.7615 + ,0.6326 + ,1.2865 + ,0.7487 + ,0.6214 + ,1.2667 + ,0.7389 + ,0.6274 + ,1.2505 + ,0.7337 + ,0.6175 + ,1.2205 + ,0.7510 + ,0.6208 + ,1.2220 + ,0.7382 + ,0.6225 + ,1.1990 + ,0.7159 + ,0.5889 + ,1.1583 + ,0.7542 + ,0.6020 + ,1.1931 + ,0.7636 + ,0.5932 + ,1.2028 + ,0.7433 + ,0.5841 + ,1.1802 + ,0.7658 + ,0.6000 + ,1.2084 + ,0.7627 + ,0.5947 + ,1.1996 + ,0.7480 + ,0.5891 + ,1.1870 + ,0.7692 + ,0.6051 + ,1.2013 + ,0.7850 + ,0.5960 + ,1.2120 + ,0.7913 + ,0.6012 + ,1.2133 + ,0.7720 + ,0.5957 + ,1.1866 + ,0.7880 + ,0.5959 + ,1.2067 + ,0.8070 + ,0.6049 + ,1.2240 + ,0.8268 + ,0.6064 + ,1.2566 + ,0.8244 + ,0.6137 + ,1.2608 + ,0.8487 + ,0.6311 + ,1.3005 + ,0.8572 + ,0.6258 + ,1.2955 + ,0.8214 + ,0.6010 + ,1.2500 + ,0.8827 + ,0.6232 + ,1.3158 + ,0.9216 + ,0.6384 + ,1.3358 + ,0.8865 + ,0.6014 + ,1.2817 + ,0.8816 + ,0.5980 + ,1.2707 + ,0.8884 + ,0.5987 + ,1.2595 + ,0.9466 + ,0.6237 + ,1.3182 + ,0.9180 + ,0.5813 + ,1.2665 + ,0.9337 + ,0.5991 + ,1.2715 + ,0.9559 + ,0.6160 + ,1.3041 + ,0.9626 + ,0.6096 + ,1.3106 + ,0.9434 + ,0.6051 + ,1.2911 + ,0.8639 + ,0.5857 + ,1.2233 + ,0.7996 + ,0.5565 + ,1.1438 + ,0.6680 + ,0.5223 + ,0.9895 + ,0.6572 + ,0.5091 + ,1.9903 + ,0.6928 + ,0.4919 + ,0.9967 + ,0.6438 + ,0.4995 + ,0.9708 + ,0.6454 + ,0.5069 + ,0.9946 + ,0.6873 + ,0.5190 + ,1.0441 + ,0.7265 + ,0.5460 + ,1.0757 + ,0.7912 + ,0.5648 + ,1.1461 + ,0.8114 + ,0.5751 + ,1.1749 + ,0.8281 + ,0.5862 + ,1.1926 + ,0.8393 + ,0.5877 + ,1.2109) + ,dim=c(3 + ,59) + ,dimnames=list(c('US_DOLLAR' + ,'EURO' + ,'SINGAPORE_DOLLAR') + ,1:59)) > y <- array(NA,dim=c(3,59),dimnames=list(c('US_DOLLAR','EURO','SINGAPORE_DOLLAR'),1:59)) > 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/1skmd1257493569.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] [1,] 0.64380 0.54600 1.14380 [2,] 0.74835 0.58575 1.19605 [3,] 0.77750 0.59870 1.25000 [4,] 0.83370 0.61290 1.27495 [5,] 0.95590 0.63840 1.33580 $n [1] 59 59 59 $conf [,1] [,2] [,3] [1,] 0.7599436 0.5931153 1.233770 [2,] 0.7950564 0.6042847 1.266230 $out [1] 0.9626 0.5223 0.5091 0.4919 0.4995 0.5069 0.5190 0.9895 1.9903 0.9967 [11] 0.9708 0.9946 1.0441 1.0757 $group [1] 1 2 2 2 2 2 2 3 3 3 3 3 3 3 $names [1] "US_DOLLAR" "EURO" "SINGAPORE_DOLLAR" > 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/29xz41257493569.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/3d13y1257493569.tab") > > system("convert tmp/1skmd1257493569.ps tmp/1skmd1257493569.png") > > > proc.time() user system elapsed 0.379 0.161 0.499