Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
63943 80949 90662 91531 93093 94743 110968 110968 112530 115819 116611 119031 119031 119823 122243 122243 123893 128755 131967 136037 137687 140899 142549 143330 145761 146542 148973 148973 149831 153824 157124 157905 157905 157905 165979 165979 167618 167618 169268 174130 178123 178123 179762 182985 182985 184624 185405 185405 186274 191125 191125 191917 192698 193556 195129 201630 201630 202411 202411 203280 204061 204842 204842 205711 205711 206492 207273 207273 207273 208131 208131 208131 208131 208131 208923 209704 209704 209704 209704 210562 210562 211343 212135 213774 213774 213774 213774 214566 214566 216205 216986 217855 218636 218636 220286 221067 221848 222706 222706 222706 222706 222706 223498 223498 223498 224279 224279 224279 225137 225137 225918 225918 225918 226710 227568 228349 228349 235642 236423 239712
Names of X columns:
Omzet
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,'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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation