Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
109 NA 111 NA 143 NA 89 NA 128 NA 125 NA 121 NA 106 NA 109 NA 127 NA 99 NA 116 NA 125 NA 121 NA 127 NA 129 NA 155 NA 113 NA 125 NA 127 NA 110 NA 108 NA 97 NA 130 NA 97 NA 120 NA 125 NA 131 NA 129 NA 125 NA 108 NA 142 NA 117 NA 130 NA 93 NA 97 NA 110 NA 111 NA 130 NA 113 NA 114 NA 112 NA 86 NA 122 NA 118 NA 124 NA 120 NA 133 NA 97 NA 115 NA 116 NA 142 NA 110 NA 133 NA 147 NA 129 NA 134 NA 134 NA 121 NA 105 NA 106 NA 135 NA 117 NA 82 NA 125 NA 130 NA 125 NA 97 NA 101 NA 128 NA 97 NA 126 NA 118 NA 107 NA 87 NA 156 NA 133 NA 132 NA 133 NA 122 NA 125 NA 127 NA 125 NA 128 NA 110 NA NA 103 NA 72 NA 113 NA 125 NA 105 NA 122 NA 127 NA 117 NA 91 NA 143 NA 116 NA 123 NA 101 NA 119 NA 114 NA 108 NA 128 NA 122 NA 133 NA 94 NA 128 NA 108 NA 125 NA 130 NA 112 NA 117 NA 142 NA 128 NA 114 NA 123 NA 89 NA 125 NA 110 NA 112 NA 109 NA 108 NA 139 NA 116 NA 116 NA 88 NA 134 NA 126 NA 101 NA 120 NA 114 NA 116 NA 102 NA 87 NA 115 NA 119 NA 120 NA 66 NA 126 NA 130 NA 126 NA 128 NA 134 NA 131 NA 102 NA 93 NA 129 NA 136 NA 112 NA 120 NA 121 NA 122 NA 136 NA 118 NA 130 NA 114 NA 123 NA 121 NA 119 NA 137 NA 63 NA 140 NA 114 NA 100 NA 101 NA 131 NA 131 NA 129 NA 120 NA 106 NA 147 NA 99
Names of X columns:
TB TS
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
grey
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
z <- as.data.frame(t(y)) bitmap(file='test1.png') (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,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,r$stats[j,i]) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.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='mytable1.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