Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
207.221 247.182 210.506 251.362 216.222 257.784 224.325 264.661 214.419 258.558 189.422 235.162 188.222 235.042 191.395 238.575 195.978 242.254 201.920 249.192 203.583 250.333 191.987 242.470 186.424 244.894 191.568 248.197 200.140 254.511 211.451 261.678 211.524 253.299 182.510 231.770 182.414 233.271 187.827 237.520 192.684 242.082 198.480 243.287 203.089 246.526 199.834 245.622 195.770 247.447 203.555 252.470 211.868 262.976 229.527 267.145 229.139 260.951 198.563 239.171 195.722 238.454 202.196 245.385 205.816 252.487 212.588 257.375 214.320 261.240 220.376 252.222 204.442 250.627 206.903 255.159 214.126 263.948 226.899 268.145 223.532 263.281 195.309 242.967 186.005 241.326 188.906 248.985 191.563 247.599 189.226 247.323 186.412 246.546 178.037 243.985 166.827 241.478 169.362 242.936 174.330 251.178 187.069 254.016 186.530 249.999 158.114 229.521 151.001 228.793 159.612 239.709 161.914 239.494 164.182 251.846 169.701 253.376 171.297 248.284
Names of X columns:
Vlaanderen Wallonie
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
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