Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
64281 62065 64023 61943 63935 62361 64387 62919 64161 62881 64011 62892 63685 62591 63522 62417 63541 62172 65070 63113 65357 63077 64281 62438 64152 62384 64043 62506 63966 62935 65040 64433 64640 64533 64179 64184 63633 63911 63327 63673 63237 63290 64793 64652 64622 64516 63615 63995 63319 64536 63261 64776 62699 65144 61956 65238 62069 65421 62179 65821 62327 66298 62526 66523 63055 67143 65277 68835 65783 68984 65353 69170 65583 69844 65950 70528 66634 71979 67836 73608 67700 73508 67463 73973 67412 73899 67308 73566 67881 73859 69652 75287 69733 75308 68891 74871 68994 75337 69021 75449 69072 76211 70283 79371 70795 80224 71111 81014 70274 80253 69220 79169 69841 79214 71275 79783 71295 79523 69073 77265 68752 76986
Names of X columns:
WLH_50__V WLH_50__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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation