Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
593530 3922 18004 707169 610763 3759 17537 703434 612613 4138 20366 701017 611324 4634 22782 696968 594167 3996 19169 688558 595454 4308 13807 679237 590865 4143 29743 677362 589379 4429 25591 676693 584428 5219 29096 670009 573100 4929 26482 667209 567456 5761 22405 662976 569028 5592 27044 660194 620735 4163 17970 652270 628884 4962 18730 648024 628232 5208 19684 629295 612117 4755 19785 624961 595404 4491 18479 617306 597141 5732 10698 607691 593408 5731 31956 596219 590072 5040 29506 591130 579799 6102 34506 584528 574205 4904 27165 576798 572775 5369 26736 575683 572942 5578 23691 574369 619567 4619 18157 566815 625809 4731 17328 573074 619916 5011 18205 567739 587625 5299 20995 571942 565742 4146 17382 570274 557274 4625 9367 568800 560576 4736 31124 558115 548854 4219 26551 550591 531673 5116 30651 548872 525919 4205 25859 547009 511038 4121 25100 545946 498662 5103 25778 539702 555362 4300 20418 542427 564591 4578 18688 542968 541657 3809 20424 536640 527070 5526 24776 533653 509846 4248 19814 540996 514258 3830 12738 538316 516922 4428 31566 532646 507561 4834 30111 533390 492622 4406 30019 528715 490243 4565 31934 530664 469357 4104 25826 528564 477580 4798 26835 519107 528379 3935 20205 518703 533590 3792 17789 519059 517945 4387 20520 518498 506174 4006 22518 524575 501866 4078 15572 536046 516141 4724 11509 552006 528222 3157 25447 560687 532638 3558 24090 578884 536322 3899 27786 591491 536535 4118 26195 599228 523597 3790 20516 633019 536214 4278 22759 649918 586570 4035 19028 655509
Names of X columns:
Werkz Bouwverg persauto hypkred
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