Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
3353 2341 3480 2540 3098 2371 2944 2122 3389 2301 3497 2512 4404 3145 3849 2741 3734 2548 3060 1987 3507 2281 3287 2016 3215 2434 3764 2637 2734 1831 2837 1851 2766 1839 3851 2609 3289 2417 3848 2394 3348 2372 3682 2717 4058 2998 3655 2538 3811 3007 3341 2475 3032 2175 3475 2465 3353 2279 3186 2323 3902 2746 4164 2601 3499 2486 4145 2718 3796 2646 3711 2551 3949 2712 3740 2606 3243 2365 4407 3533 4814 3509 3908 2912 5250 3599 3937 2719 4004 2869 5560 4085 3922 2686 3759 2545 4138 3071 4634 3388 3996 2652 4308 3190 4142 2884 4429 3295 5219 3818 4929 3226 5754 3953 5592 3810 4163 2877 4962 3515 5208 3708 4755 3450 4491 3360 5732 4110 5730 4384 5024 3729 6056 4263 4901 3505 5353 3674 5578 3911 4618 2951 4724 3317 5011 3417 5298 3498 4143 2768 4617 2899 4727 3171 4207 3004 5112 3481 4190 3016 4098 2595 5071 3509 4177 2833 4598 3125 3757 2556 5591 3628 4218 2876 3780 2575 4336 2903 4870 3438 4422 2926 4727 3068 4459 3015
Names of X columns:
X1 X2
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation