Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
55954 63966 52044 60410 49975 59440 50398 59445 48751 57614 46908 55396 44938 53030 42372 50090 43522 48764 58434 61658 62713 63943 59266 64878 53411 60634 50215 57905 48474 57224 50250 60953 49409 60621 46751 57258 44869 54903 43023 53278 44638 53042 57810 63753 65000 69210 61665 71446 56119 68408 52162 65427 51069 64630 51744 66086 50816 65058 48578 62689 47144 60841 44839 57346 45879 56222 60730 68202 65037 70745 63281 73690 57300 68992 53335 65925 51813 65546 52597 67221 50744 65315 48008 62038 45326 58774 42661 55320 43627 53900 58156 65544 61772 67906 59879 70911 54417 66544 50575 63657 48798 61720 48819 62140 47606 60837 45345 58632 42484 54642 39735 51125 40959 51000 53249 60486 57028 62685 55763 66142 50547 61895
Names of X columns:
WLH_-25_V WLH_-25_M
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