Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
412 1985 10341 10341 602 1963 9690 9690 613 2017 10125 10125 482 1975 9349 9349 241 1589 9224 9224 277 1679 9224 9224 252 1392 9454 9454 383 1511 9347 9347 506 1449 9430 9430 366 1767 9933 9933 473 1899 10148 10148 581 2179 10677 10677 688 2217 10735 10735 792 2049 9760 9760 761 2343 10567 10567 592 2175 9333 9333 251 1607 9409.00 9409 162 1702 9502 9502 183 1764 9348 9348 164 1766 9319 9319 223 1615 9594 9594 237 1953 10160 10160 567 2091 10182 10182 778 2411 10810 10810 888 2550 11105 11105 1118 2351 9874 9874 1275 2786 10958 10958 419 2525 9311 9311 324 2474 9610 9610 197 2332 9398 9398 172 1978 9784 9784 220 1789 9425 9425 98 1904 9557 9557 122 1997 10166 10166 303 2207 10337 10337 750 2453 10770 10770 745 1948 11265 11265 293 1384 10183 10183 534 1989 10941 10941 318 2140 9628 9628 72 2100 9709 9709 67 2045 9637 9637 256 2083 9579 9579 82 2022 9741 9741 337 1950 9754 9754 596 1422 10508 10508 1152 1859 10749 10749 1028 2147 11079 11079 1011 2273 11608 11608 823 1881 10668 10668 1545 2454 10933 10933 1211 2081 9703 9703 593 2376 9799 9799 348 2265 9656 9656 341 2131 9648 9648 340 2333 9712 9712 589 1881 9766 9766 1095 1563 10540 10540 788 1738 10564 10564 432 1990 10911 10911
Names of X columns:
invoer uitvoer verbruik aanbod
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