Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
287224 276444 279998 268606 283495 267679 285775 269879 282329 265641 277799 262525 271980 258597 266730 253849 262433 256221 285378 286895 286692 294610 282917 280363 277686 269926 274371 264341 277466 263269 290604 271045 290770 267915 283654 262078 278601 257751 274405 253271 272817 257638 294292 287452 300562 298152 298982 284793 296917 274560 295008 268270 297295 267577 305671 271866 303853 268546 300708 264722 298194 262425 292254 258973 290646 262751 314707 296186 317009 304659 317706 295442 313312 285466 311048 279575 315917 279985 326174 286012 322116 281337 317092 276270 310468 271472 302438 265637 298493 268974 320124 299299 321873 305452 321676 295468 316696 285584 312612 278204 313307 276505 320883 279732 318749 276980 315126 271832 304600 263105 295245 256162 293619 260705 309700 285857 310597 291870 307416 280358 301126 270981
Names of X columns:
WLH_Tot_M WLH_Tot_V
Sample Range:
(leave blank to include all observations)
From:
To:
Color
1
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
80
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
z <- na.omit(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