Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
70.80 70.77 69.60 70.43 69.87 68.43 67.47 68.10 67.60 67.43 67.13 65.43 66.27 68.77 66.73 67.10 68.07 64.77 67.80 67.77 64.80 64.77 64.60 65.77 64.20 66.43 64.20 64.43 63.67 63.77 61.00 64.43 59.67 63.43 59.67 62.77 59.80 62.77 60.73 63.43 59.40 61.43 58.07 63.43 57.47 60.10 70.73 57.77 72.87 62.77 66.00 53.43 66.07 75.43 66.00 74.43 66.27 73.10 64.00 70.10 63.67 70.10 63.73 67.43 63.33 69.43 63.53 68.43 63.53 68.10 62.87 65.77 59.53 67.77 62.80 68.77 60.80 65.77 59.80 66.10 56.67 65.43 57.67 67.77 58.40 65.43 55.47 66.43 56.20 63.77 71.53 63.43 68.67 65.77 65.67 62.77 66.73 62.10 67.33 60.77 66.73 63.77 66.87 62.10 65.80 61.10 64.73 61.77 65.47 62.77 63.60 59.43 64.07 60.10 64.67 59.77 63.73 57.43 62.53 57.77 61.93 55.10 62.67 51.10 62.80 8.43 61.33 74.10 62.60 72.77 59.13 71.77 61.27 70.10 59.47 69.77 57.87 69.77 59.73 67.77 61.40 67.77 58.80 68.10 58.33 66.10 57.47 66.10 57.13 65.77 55.00 65.77 51.53 67.43 72.73 65.10 73.00 66.43 70.80 64.43 70.07 64.43 71.67 64.77 71.07 61.77 70.67 62.43 70.73 62.10 70.73 61.43 68.60 60.77 69.60 62.10 66.47 59.43 67.07 59.77 68.67 58.77 66.93 60.43 65.93 59.10 68.87 59.10 66.53 58.77 65.80 58.43 66.60 53.10 66.00 52.43 65.00 53.77 66.80 47.77 65.60 10.43 66.00 7.10 65.67 70.77 64.67 71.43 65.07 69.43 64.67 70.10 65.07 69.77 65.20 70.77 64.87 69.77 63.47 69.10 62.60 68.77 64.07 70.77 63.73 67.77 64.67 67.43 61.60 67.77 61.60 67.43 60.47 67.77 61.27 67.10 63.00 65.77 61.47 65.43 60.87 64.77 61.67 64.10 62.87 65.77 62.40 65.43 59.73 62.77 60.13 64.43 58.80 63.77 59.60 63.43 58.93 63.77 60.13 65.10 58.20 65.10 58.27 64.10 58.27 64.10 55.07 62.77 53.87 62.43 52.33 62.10 47.20 60.43 37.93 58.77 72.73 59.43 70.07 58.10 70.67 56.77 72.07 48.10 68.80 69.77 68.80 69.10 67.47 70.43 66.73 68.10 66.53 66.43 66.00 65.43 67.60 67.10 66.00 67.77 66.00 66.10 66.53 65.43 65.80 68.77 64.27 66.77 64.67 68.10 64.60 65.10 64.13 64.77 65.47 63.77 62.93 64.43 63.53 60.77 62.13 60.77 63.87 58.43 64.67 55.10 63.33 55.10 63.13 51.10 62.80 72.10 62.40 69.10 62.40 68.10 62.60 68.10 61.47 68.10 62.20 66.10 63.00 65.10 61.80 64.10 59.73 64.10 60.33 66.10 60.13 64.10 59.53 63.10 59.00 65.10 55.93 64.10 41.87 64.10 36.33 62.10 71.67 62.10 71.47 64.10 70.47 62.10 69.53 63.10 70.73 60.10 69.93 58.10 68.73 55.10 67.53 51.10
Names of X columns:
pment nopment
box colour
Notched Boxes
TRUE
TRUE
FALSE
% to trim
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par1 <- as.numeric(par1) #colour par2<- as.logical(par2) # Notches ? par3<-as.numeric(par3) # % 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.')} lotrm<-as.integer(length(y[1,])*par3/100)+1 hitrm<-as.integer(length(y[1,])*(100-par3)/100) y1<-array(dim=c(dim(y)[1], hitrm-lotrm+1), dimnames=list(dimnames(y)[[1]], 1:(hitrm-lotrm+1) )) for(i in 1:dim(y)[1]){ tmp<-order(y[i,]) y1[i,]<- y[i, tmp[lotrm:hitrm] ] } bitmap(file='test2.png') pairs(t(y)) dev.off() y<-y1 z <- as.data.frame(t(y)) bitmap(file='test1.png') (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=par2,col=par1)) dev.off() load(file='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,round(r$stats[j,i], digits=2)) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') if (par2){ 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,round(r$conf[1,i], digits=2)) a<-table.element(a, round(r$stats[3,i], digits=2)) a<-table.element(a,round(r$conf[2,i], digits=2)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab') } a<-table.start() a<-table.row.start(a) a<-table.element(a,'Boxplot Means',4,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/trimmed_mean.htm','trimmed mean','definition of trimmed mean'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/unbiased1.htm','unbiased SD','definition of unbiased SD'),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,round(mean(unlist(z[i]), trim=par3/100, na.rm=TRUE), digits=2)) a<-table.element(a,round(sd(unlist(z[i]), na.rm=TRUE), digits=2)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable2.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation