Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
29054.5 28543.5 28032 27009.5 37356 36844.5 29054.5 23881.5 24392.5 24392.5 24904 25982 22859 19731 17169.5 17169.5 27009.5 28032 20242 11429.5 16091.5 16091.5 19731 21831.5 21320 16091.5 18708.5 17681 26493.5 24392.5 16091.5 9891 15580 17169.5 18708.5 20753.5 16602.5 13019 14558 15069 28543.5 28543.5 20753.5 19731 22859 21320 25471 30644 31671.5 24392.5 22342.5 20242 34283.5 35311 32694 35311 34794.5 30644 35311 40484 42584.5 36333.5 32182.5 35311 48785 52936 51913.5 53958 53447 48274 57086.5 59187 62259.5 52936 49296.5 53447 63337.5 72150 70049.5 70049.5 71077 67488 76817 76817 75227.5 66410 67999.5 69027 75789.5 84602 78350.5 81479 78862 77328 89269 86652 83012.5 77839.5 83012.5 85629.5 88752.5 92903 88752.5 91314 88190.5 87679.5 100642.5 101720.5 97570 90291.5 96492 99104 102232 106894 102232 105871.5 104282 98592.5 110533 110533
Names of X columns:
A
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
no
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par2 <- 'no' par1 <- 'grey' if(par2=='yes') { z <- na.omit(as.data.frame(t(y))) } else { 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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation