R version 2.12.0 (2010-10-15) Copyright (C) 2010 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i486-pc-linux-gnu (32-bit) 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('no' + ,66.67 + ,'no' + ,66.33 + ,'no' + ,64.33 + ,'no' + ,64.00 + ,'no' + ,63.33 + ,'no' + ,61.33 + ,'no' + ,64.67 + ,'no' + ,63.00 + ,'no' + ,60.67 + ,'no' + ,63.67 + ,'no' + ,60.67 + ,'no' + ,61.67 + ,'no' + ,62.33 + ,'no' + ,60.33 + ,'no' + ,59.67 + ,'no' + ,60.33 + ,'no' + ,59.33 + ,'no' + ,58.67 + ,'no' + ,58.67 + ,'no' + ,59.33 + ,'no' + ,57.33 + ,'no' + ,59.33 + ,'no' + ,56.00 + ,'no' + ,53.67 + ,'no' + ,58.67 + ,'no' + ,49.33 + ,'no' + ,71.33 + ,'no' + ,70.33 + ,'no' + ,69.00 + ,'no' + ,66.00 + ,'no' + ,66.00 + ,'no' + ,63.33 + ,'no' + ,65.33 + ,'no' + ,64.33 + ,'no' + ,64.00 + ,'no' + ,61.67 + ,'no' + ,63.67 + ,'no' + ,64.67 + ,'no' + ,61.67 + ,'no' + ,62.00 + ,'no' + ,61.33 + ,'no' + ,63.67 + ,'no' + ,61.33 + ,'no' + ,62.33 + ,'no' + ,59.67 + ,'no' + ,59.33 + ,'no' + ,61.67 + ,'no' + ,58.67 + ,'no' + ,58.00 + ,'no' + ,56.67 + ,'no' + ,59.67 + ,'no' + ,58.00 + ,'no' + ,57.00 + ,'no' + ,57.67 + ,'no' + ,58.67 + ,'no' + ,55.33 + ,'no' + ,56.00 + ,'no' + ,55.67 + ,'no' + ,53.33 + ,'no' + ,53.67 + ,'no' + ,51.00 + ,'no' + ,47.00 + ,'no' + ,4.33 + ,'no' + ,70.00 + ,'no' + ,68.67 + ,'no' + ,67.67 + ,'no' + ,66.00 + ,'no' + ,65.67 + ,'no' + ,65.67 + ,'no' + ,63.67 + ,'no' + ,63.67 + ,'no' + ,64.00 + ,'no' + ,62.00 + ,'no' + ,62.00 + ,'no' + ,61.67 + ,'no' + ,61.67 + ,'no' + ,63.33 + ,'no' + ,61.00 + ,'no' + ,62.33 + ,'no' + ,60.33 + ,'no' + ,60.33 + ,'no' + ,60.67 + ,'no' + ,57.67 + ,'no' + ,58.33 + ,'no' + ,58.00 + ,'no' + ,57.33 + ,'no' + ,56.67 + ,'no' + ,58.00 + ,'no' + ,55.33 + ,'no' + ,55.67 + ,'no' + ,54.67 + ,'no' + ,56.33 + ,'no' + ,55.00 + ,'no' + ,55.00 + ,'no' + ,54.67 + ,'no' + ,54.33 + ,'no' + ,49.00 + ,'no' + ,48.33 + ,'no' + ,49.67 + ,'no' + ,43.67 + ,'no' + ,6.33 + ,'no' + ,3.00 + ,'no' + ,66.67 + ,'no' + ,67.33 + ,'no' + ,65.33 + ,'no' + ,66.00 + ,'no' + ,65.67 + ,'no' + ,66.67 + ,'no' + ,65.67 + ,'no' + ,65.00 + ,'no' + ,64.67 + ,'no' + ,66.67 + ,'no' + ,63.67 + ,'no' + ,63.33 + ,'no' + ,63.67 + ,'no' + ,63.33 + ,'no' + ,63.67 + ,'no' + ,63.00 + ,'no' + ,61.67 + ,'no' + ,61.33 + ,'no' + ,60.67 + ,'no' + ,60.00 + ,'no' + ,61.67 + ,'no' + ,61.33 + ,'no' + ,58.67 + ,'no' + ,60.33 + ,'no' + ,59.67 + ,'no' + ,59.33 + ,'no' + ,59.67 + ,'no' + ,61.00 + ,'no' + ,61.00 + ,'no' + ,60.00 + ,'no' + ,60.00 + ,'no' + ,58.67 + ,'no' + ,58.33 + ,'no' + ,58.00 + ,'no' + ,56.33 + ,'no' + ,54.67 + ,'no' + ,55.33 + ,'no' + ,54.00 + ,'no' + ,52.67 + ,'no' + ,44.00 + ,'no' + ,65.67 + ,'no' + ,65.00 + ,'no' + ,66.33 + ,'no' + ,64.00 + ,'no' + ,62.33 + ,'no' + ,61.33 + ,'no' + ,63.00 + ,'no' + ,63.67 + ,'no' + ,62.00 + ,'no' + ,61.33 + ,'no' + ,64.67 + ,'no' + ,62.67 + ,'no' + ,64.00 + ,'no' + ,61.00 + ,'no' + ,60.67 + ,'no' + ,59.67 + ,'no' + ,60.33 + ,'no' + ,56.67 + ,'no' + ,56.67 + ,'no' + ,54.33 + ,'no' + ,51.00 + ,'no' + ,51.00 + ,'no' + ,47.00 + ,'no' + ,68.00 + ,'no' + ,65.00 + ,'no' + ,64.00 + ,'no' + ,64.00 + ,'no' + ,64.00 + ,'no' + ,62.00 + ,'no' + ,61.00 + ,'no' + ,60.00 + ,'no' + ,60.00 + ,'no' + ,62.00 + ,'no' + ,60.00 + ,'no' + ,59.00 + ,'no' + ,61.00 + ,'no' + ,60.00 + ,'no' + ,60.00 + ,'no' + ,58.00 + ,'no' + ,58.00 + ,'no' + ,60.00 + ,'no' + ,58.00 + ,'no' + ,59.00 + ,'no' + ,56.00 + ,'no' + ,54.00 + ,'no' + ,51.00 + ,'no' + ,47.00) + ,dim=c(2 + ,189) + ,dimnames=list(c('PMent' + ,'Exam') + ,1:189)) > y <- array(NA,dim=c(2,189),dimnames=list(c('PMent','Exam'),1:189)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } There were 50 or more warnings (use warnings() to see the first 50) > par5 = '2' > par4 = '1' > par3 = '0' > par2 = 'FALSE' > par1 = '3' > ylab = 'Exam Score' > xlab = 'Placement' > main = 'Reddy-Moores Placement Data' > par1 <- as.numeric(par1) # colour > par2<- as.logical(par2) # notches > par3<-as.numeric(par3) # percentage trim > if(par3>45){par3<-45;warning('trim limited to 45%')} > if(par3<0){par3<-0;warning('negative trim makes no sense. Trim is zero.')} > par4 <- as.numeric(par4) #factor column > par5 <- as.numeric(par5) # response column > x <- t(x) > x1<-as.numeric(x[,par5]) # response > f1<-as.character(x[,par4]) # factor > x2<-x1[f1=='no'] > f2 <- f1[f1=='no'] > lotrm<-as.integer(length(x2)*par3/100) > hitrm<-as.integer(length(x2)*(100-par3)/100) > srt<-order(x2,f2) > trmx1<-x2[srt[lotrm:hitrm]] > trmf1<-f2[srt[lotrm:hitrm]] > x3<-x1[f1=='yes'] > f3 <- f1[f1=='yes'] > lotrm<-as.integer(length(x3)*par3/100) > hitrm<-as.integer(length(x3)*(100-par3)/100) > srt<-order(x3,f3) > trmx2<-x3[srt[lotrm:hitrm]] > trmf2<-f3[srt[lotrm:hitrm]] > xtrm<-c(trmx1,trmx2) > ftrm<-c(trmf1,trmf2) > xtrm[1:6] [1] 3.00 4.33 6.33 43.67 44.00 47.00 > ftrm[1:6] [1] "no" "no" "no" "no" "no" "no" > postscript(file="/var/www/rcomp/tmp/1qvz81318517952.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > r<-boxplot(xtrm~as.factor(ftrm), col=par1, notch=par2, main='Reddy and Moores Placements Data', xlab='Placement Student', ylab='Degree Grade') > dev.off() null device 1 > > #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/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,'Placement',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) > a<-table.row.start(a) > a<-table.element(a,'no',1,TRUE) > for (j in 1:5) + { + a<-table.element(a,r$stats[j,1]) + } > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'yes',1,TRUE) > for (j in 1:5) + { + a<-table.element(a,r$stats[j,2]) + } Error in paste(mytable, x, "", sep = "") : subscript out of bounds Calls: table.element -> paste Execution halted