Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
286602 326011 71660 160942 283042 328282 64496 149470 276687 317480 58078 139208 277915 317539 53511 134588 277128 313737 50883 130322 277103 312276 48614 126611 275037 309391 45844 122401 270150 302950 41303 117352 267140 300316 31060 112135 264993 304035 27860 112879 287259 333476 57794 148729 291186 337698 66642 157230 292300 335932 70639 157221 288186 323931 64864 146681 281477 313927 58397 136524 282656 314485 54424 132111 280190 313218 44148 125326 280408 309664 42065 122716 276836 302963 38546 116615 275216 298989 35324 113719 274352 298423 26599 110737 271311 301631 24935 112093 289802 329765 51349 143565 290726 335083 58672 149946 292300 327616 61271 149147 278506 309119 53145 134339 269826 295916 46211 122683 265861 291413 40744 115614 269034 291542 41248 116566 264176 284678 39032 111272 255198 276475 35907 104609 253353 272566 33335 101802 246057 264981 23988 94542 235372 263290 23099 93051 258556 296806 46390 124129 260993 303598 51588 130374 254663 286994 51579 123946 250643 276427 45390 114971 243422 266424 39215 105531 247105 267153 38433 104919 248541 268381 37676 104782 245039 262522 36055 101281 237080 255542 32986 94545 237085 253158 30953 93248 225554 243803 23558 84031 226839 250741 22487 87486 247934 280445 43528 115867 248333 285257 47913 120327 246969 270976 48621 117008 245098 261076 42169 108811 246263 255603 38444 104519 255765 260376 38692 106758 264319 263903 38124 109337 268347 264291 37886 109078 273046 263276 37310 108293 273963 262572 34689 106534 267430 256167 26450 99197 271993 264221 25565 103493 292710 293860 46562 130676 295881 300713 52653 137448 293299 287224 54807 134704
Names of X columns:
WLHmannen WLHvrouwen WLH_jongeren_wachttijd WLH_jonger25j
Sample Range:
(leave blank to include all observations)
From:
To:
Color
12
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