Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2.155 22.782 17 12.7 2.172 19.169 14 12.3 2.15 13.807 15 11.9 2.533 29.743 16 12 2.058 25.591 16 12.3 2.16 29.096 15 12.8 2.26 26.482 13 12.4 2.498 22.405 12 12.3 2.695 27.044 13 12.7 2.799 17.97 13 12.7 2.947 18.73 12 12.9 2.93 19.684 10 13 2.318 19.785 14 12.2 2.54 18.479 14 12.3 2.57 10.698 15 12.8 2.669 31.956 16 12.8 2.45 29.506 16 12.8 2.842 34.506 15 12.2 3.44 27.165 15 12.6 2.678 26.736 13 12.8 2.981 23.691 15 12.5 2.26 18.157 15 12.4 2.844 17.328 15 12.3 2.546 18.205 13 11.9 2.456 20.995 16 11.7 2.295 17.382 16 12 2.379 9.367 14 12.1 2.479 31.124 16 11.7 2.057 26.551 15 11.8 2.28 30.651 14 11.8 2.351 25.859 15 11.8 2.276 25.1 15 11.3 2.548 25.778 14 11.3 2.311 20.418 13 11.3 2.201 18.688 12 11.2 2.725 20.424 13 11.4 2.408 24.776 12 12.2 2.139 19.814 9 12.9 1.898 12.738 10 13.1 2.537 31.566 8 13.5 2.069 30.111 11 13.6 2.063 30.019 8 14.4 2.524 31.934 8 14.1 2.437 25.826 8 15.1 2.189 26.835 4 15.8 2.793 20.205 6 15.9 2.074 17.789 8 15.4 2.622 20.52 10 15.5 2.278 22.518 5 14.8 2.144 15.572 6 13.2 2.427 11.509 5 12.7 2.139 25.447 9 12.1 1.828 24.09 8 11.9 2.072 27.786 6 10.6 1.8 26.195 9 10.7 1.758 20.516 11 0.8 2.246 22.759 11 0.9 1.987 19.028 8 8.3 1.868 16.971 11 9.3 2.514 20.036 11 9 2.121 22.485 13 9.1
Names of X columns:
gebouwen auto prijsindex financielesituatie
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