Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
221102 210354 189561 220892 202205 184439 225537 220425 182985 219334 210038 183828 216126 205201 184036 224573 197441 183214 213991 200021 183464 221865 203165 173718 215382 201699 180210 213962 201003 171252 217009 232308 172705 318110 211412 174006 219662 209661 172043 212650 213587 169445 209307 193611 169449 210541 192543 177073 210609 196040 170799 208910 191407 171648 207541 189726 172220 207699 191272 165795 205005 187924 167466 205747 198213 165528 203644 199352 162851 229937 199289 165864 214446 195475 162094 210194 198045 162385 206535 197615 164293 216524 189015 165983 198243 189668 159680 208274 189120 161739 207493 194168 159302 215525 192304 167795 207562 185913 164242 213355 197599 159743 209048 186085 160887 220497 190566 163844 214563 187054 161172 211571 193222 159330 216385 189856 155570 211496 190608 156749 209683 190588 155012 206304 186773 163419 213925 183510 153630 204829 180106 154535 205729 180150 151543 200296 178412 152955 207960 182353 150166 207729 203805 151416 208327 186054 150332 207794 184290 152196 213700 187483 153422 213136 187111 147435
Names of X columns:
X1 X2 X3
Sample Range:
(leave blank to include all observations)
From:
To:
Color
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
par1 <- 'grey' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation