Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
29 53 101 183 36 65 126 227 25 44 86 155 33 60 115 208 31 57 109 197 39 71 136 246 31 56 107 194 21 38 73 132 34 62 119 215 30 54 104 188 30 55 105 190 32 58 112 202 22 40 77 139 30 55 105 190 33 60 115 208 42 77 147 266 37 68 130 235 39 72 137 248 25 46 88 159 35 64 122 221 20 35 68 123 36 66 126 228 21 39 74 134 33 60 115 208 35 64 122 221 33 61 116 210 36 66 126 228 31 56 108 195 34 62 119 215 33 60 115 208 31 57 109 197 39 71 136 246 23 41 79 143 38 69 132 239 26 47 90 163 37 68 130 235 40 74 141 255 38 69 132 239 28 51 98 177 39 72 137 248 30 55 105 190 30 55 105 190 27 50 95 172 28 51 97 176 27 49 95 171 35 64 122 221 26 47 90 163 34 63 120 217 36 66 125 227 16 30 57 103 27 49 94 170 37 67 128 232 25 45 86 156 36 66 126 228 37 67 128 232 32 58 111 201 36 67 128 231 33 60 115 208 32 59 112 203 35 64 123 222 36 66 126 228 32 58 111 201 27 49 94 170
Names of X columns:
I1M I1V E1M E1V
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
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