Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58 62 64 63 60 58 62 64 63 60 58 62 64 63 60 58 62 64 63 60 58 68 66 64 63 59 70 68 67 63 62 71 69 68 66 63 71 70 69 67 68 72 70 69 67 68 72 71 69 69 70 72 72 70 70 70 72 72 70 70 71 72 73 72 71 71 72 74 72 71 73 72 74 73 73 73 72 75 73 73 74 72 77 75 74 75 72 77 77 75 75 73 77 77 75 75 74 78 77 75 75 74 78 78 77 77 75 78 79 78 77 75 78 79 78 77 75 78 80 79 77 75 78 80 79 78 75 78 81 79 78 75 79 81 79 78 75 79 81 79 80 77 79 82 80 80 77 79 82 81 80 78 80 82 81 80 78 81 82 81 80 78 81 82 82 80 78 81 83 82 80 79 82 83 82 80 79 82 83 82 80 79 82 83 82 81 80 82 83 82 81 80 83 83 82 81 81 83 83 82 82 81 83 83 82 82 81 83 84 83 82 82 84 84 83 82 82 84 84 83 82 82 84 84 84 82 82 84 85 84 83 82 84 86 84 83 82 84 86 84 84 82 84 86 85 84 82 85 86 85 84 82 86 87 85 84 82 86 87 85 84 84 86 87 85 84 85 86 88 85 84 85 86 88 85 84 85 86 88 85 85 86 87 88 85 85 87 87 88 85 86 87 87 88 85 86 87 87 88 86 86 87 87 88 86 86 88 87 88 86 86 88 87 89 86 86 88 88 89 87 86 88 88 89 87 86 88 88 89 87 86 88 88 89 87 86 89 88 89 87 86 89 89 89 87 86 89 89 89 87 86 90 89 90 88 87 90 90 90 88 87 90 90 90 88 87 90 90 91 88 87 90 90 91 88 87 91 90 91 89 87 91 90 91 89 88 91 91 91 89 88 91 91 91 89 88 91 92 92 90 88 91 92 92 90 89 91 92 92 90 89 91 92 92 91 89 91 93 92 91 89 92 94 92 92 89 92 95 93 92 89 92 95 93 92 89 92 95 93 92 89 92 95 93 92 90 92 95 94 92 90 92 95 94 92 90 93 95 94 92 90 93 96 94 93 90 93 96 94 93 90 93 96 95 93 90 93 96 95 93 90 93 96 95 93 90 95 97 95 94 91 95 97 96 94 91 95 97 96 94 91 95 98 96 95 91 95 98 96 95 91 95 98 96 95 92 95 98 97 95 92 95 99 97 95 92 95 99 97 95 92 95 99 97 95 92 95 99 97 95 92 95 100 97 97 92 96 100 97 97 94 97 100 98 97 94 97 101 98 97 94 97 102 98 97 95 97 102 98 97 95 97 102 98 97 95 97 102 98 97 96 97 103 98 97 96 97 103 98 98 97 97 103 99 99 97 97 104 99 99 97 98 104 99 99 98 98 105 99 99 98 99 105 100 100 98 100 105 100 100 98 100 106 100 100 98 100 106 100 100 98 102 106 100 101 98 102 106 101 102 98 102 108 101 103 98 102 108 101 104 98 102 108 101 104 98 102 108 102 104 98 102 109 102 104 99 102 109 102 105 99 102 109 102 105 99 104 109 102 105 99 104 109 102 106 102 104 109 102 107 102 104 109 103 108 102 105 109 103 109 102 105 110 103 109 102 105 110 103 109 102 105 111 104 109 104 105 111 104 109 104 105 112 105 110 104 106 112 106 111 105 106 112 108 112 105 108 114 108 112 106 109 114 108 113 107 109 114 108 114 110 110 116 108 114 112 110 116 108 114 112 110 117 109 114 112 110 118 110 117 113 111 120 110 118 113 113 121 113 118 113 113 121 113 118 114 113 122 114 118 117 114 123 119 121 117 114 123 119 121 117 114 123 119 121 117 114 123 119 121
Names of X columns:
WJ7ARD WJ7AMA WJ7AWL WJ7AKN WJ7ASK
box colour
Notched Boxes
FALSE
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