Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
161193 156209 157645 152539 161694 153769 163411 155094 161834 152729 159511 151606 156359 149974 154223 147955 151497 149158 160607 163391 159672 166540 155601 156816 154668 152363 153960 150083 157307 150829 165218 155755 165616 153866 162212 151148 159787 149249 157454 146921 156485 149763 165887 164849 166836 168530 163541 159513 163973 155122 164805 152847 167521 153809 174347 158166 173374 155661 172198 153965 171055 152954 168385 151608 167281 153817 177670 170179 177280 173839 174846 166808 174476 162583 174595 160290 178392 161538 185345 165579 183293 162893 181081 160799 177795 158734 173552 155668 170734 157466 179293 171491 178659 173947 175894 166698 174815 162173 173506 158608 175376 158635 179372 160630 177688 158579 175480 155376 169705 150347 164951 147207 163405 149905 169431 161333 168389 163547 164009 155522 162245 151682
Names of X columns:
WLH_2550_M WLH_2550_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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation