Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
58896 57616 56232 53708 79784 78524 58896 45848 47112 47112 48372 51040 54968 53708 45848 47112 83716 91572 70664 58896 61548 62828 69404 75856 77260 64088 65476 48372 96888 111200 78524 68016 74596 82452 94220 108656 108656 99412 95484 71928 111200 129564 113848 96888 99412 108656 121704 137420 126896 120444 120444 99412 129564 149188 133492 116516 121704 142612 151856 164888 154380 137420 133492 102080 122968 145260 120444 106008 120444 134756 142612 163624 153120 126896 129564 104744 125636 144000 122968 108656 121704 137420 134756 166168 160976 140068 141332 113848 130824 157048 137420 125636 145260 157048 147928 189724 179340 155784 149188 119056 136140 151856 132212 132212 154380 166168 159696 205420 193652 171484 162240 129564 141332 162240 146524 142612 160976 176672 159696 200228
Names of X columns:
Omzet
Sample Range:
(leave blank to include all observations)
From:
To:
Color
22
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
grey
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par1 <- 'grey' 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