Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1550 1564 1812 1686 1928 1950 1876 1986 1680 1852 1604 1338 1622 1608 1816 1992 2174 2316 2320 2372 2354 2530 1938 1750 1766 1904 2198 2390 2280 2582 2392 2528 2620 2392 1886 1586 1980 1934 2362 2676 2514 2850 2556 2736 2516 2268 1974 1672 2010 2010 2406 2624 2772 2880 2766 3026 2990 2720 2572 2212 2392 2684 2766 2934 3344 3364 3198 3486 3134 3196 2722 2382 2476 2574 3126 3506 3704 3562 3752 3536 3764 3700 3040 2502 2788 2708 3036 3472 3648 3614 3612 3452 3386 3286 2602 2432 2848 3074 3460 3790 3892 3834 4102 3908 3810 3930 3178 2964 2926 3258 3786 4038 4436 4440 4128 4190 4020 3802 3488 3110 3346 3300 3936 4296 4542 4688
Names of X columns:
A
Sample Range:
(leave blank to include all observations)
From:
To:
Color
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
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,'Boxplot statistics',6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,'lower whisker',1,TRUE) a<-table.element(a,'lower hinge',1,TRUE) a<-table.element(a,'median',1,TRUE) a<-table.element(a,'upper hinge',1,TRUE) a<-table.element(a,'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