Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2756.76 10805 2849.27 10872 2921.44 10625 2981.85 10407 3080.58 10463 3106.22 10556 3119.31 10646 3061.26 10702 3097.31 11353 3161.69 11346 3257.16 11451 3277.01 11964 3295.32 12574 3363.99 13031 3494.17 13812 3667.03 14544 3813.06 14931 3917.96 14886 3895.51 16005 3801.06 17064 3570.12 15168 3701.61 16050 3862.27 15839 3970.1 15137 4138.52 14954 4199.75 15648 4290.89 15305 4443.91 15579 4502.64 16348 4356.98 15928 4591.27 16171 4696.96 15937 4621.4 15713 4562.84 15594 4202.52 15683 4296.49 16438 4435.23 17032 4105.18 17696 4116.68 17745 3844.49 19394 3720.98 20148 3674.4 20108 3857.62 18584 3801.06 18441 3504.37 18391 3032.6 19178 3047.03 18079 2962.34 18483 2197.82 19644 2014.45 19195 1862.83 19650 1905.41 20830 1810.99 23595 1670.07 22937 1864.44 21814 2052.02 21928 2029.6 21777 2070.83 21383 2293.41 21467 2443.27 22052
Names of X columns:
BEL20 Goud
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
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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