Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1384 428 525 755 504 1162 242 708 724 88 285 1470 469 568 760 427 1253 273 743 722 142 267 1683 501 598 769 470 1211 248 714 658 91 279 1679 459 679 919 432 1248 291 740 722 108 316 1748 514 636 934 497 1291 325 794 792 128 276 1604 493 701 877 479 1388 362 732 796 138 308 1437 507 628 804 517 1501 276 717 773 136 320 1592 438 643 867 454 1485 280 796 714 111 300 1581 526 720 941 505 1813 324 887 761 115 303 1854 626 859 1042 602 1788 348 977 862 127 335 1898 543 769 1042 666 1915 346 993 886 139 373 1815 564 782 1005 742 2348 356 1102 929 159 422 1991 647 843 1148 727 2263 408 1066 967 144 383 2112 640 954 1219 817 2652 455 1160 1136 196 399 2010 602 942 991 740 2203 407 1159 1068 171 443 1442 479 618 781 623 1838 321 852 760 140 337
Names of X columns:
ANT VB WV OV LIM BHG WB HEN LUIK LUX NAMEN
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 <- na.omit(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