Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
147768 565464 137507 547344 136919 554788 136151 562325 133001 560854 125554 555332 119647 543599 114158 536662 116193 542722 152803 593530 161761 610763 160942 612613 149470 611324 139208 594167 134588 595454 130322 590865 126611 589379 122401 584428 117352 573100 112135 567456 112879 569028 148729 620735 157230 628884 157221 628232 146681 612117 136524 595404 132111 597141 125326 593408 122716 590072 116615 579799 113719 574205 110737 572775 112093 572942 143565 619567 149946 625809 149147 619916 134339 587625 122683 565742 115614 557274 116566 560576 111272 548854 104609 531673 101802 525919 94542 511038 93051 498662 124129 555362 130374 564591 123946 541657 114971 527070 105531 509846 104919 514258 104782 516922 101281 507561 94545 492622 93248 490243 84031 469357 87486 477580 115867 528379 120327 533590 117008 517945 108811 506174
Names of X columns:
Jonger_dan_25 totaal
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