Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
3595 2564 3914 3869 4159 4145 3676 4091 3794 4117 3446 3281 3504 2186 3958 3476 3353 4009 3480 3924 3098 3101 2944 2211 3389 2497 3497 3520 4404 4191 3849 8255 3734 3000 3060 2955 3507 1986 3287 3229 3215 3448 3764 3371 2734 3160 2837 2429 2766 2574 3851 2725 3289 3451 3848 3481 3348 3592 3682 3472 4058 2312 3655 3322 3811 4348 3341 3603 3032 2700 3475 2640 3353 2916 3186 3180 3902 4151 4164 4023 3499 3431 4145 3874 3796 2617 3711 3580 3949 5267 3740 3832 3243 3441 4407 3228 4814 3397 3908 3971 5250 4625 3937 4486 4004 4132 5560 4685 3922 3172 3759 4280 4138 4207 4634 4158 3996 3933 4308 3151 4143 3616 4429 4222 5219 4436 4929 4806 5755 4849 5592 5023 4163 3521 4962 4649 5208 5388 4755 5148 4491 4847 5732 3996 5731 4483 5040 4684 6102 5454 4904 4770 5369 5309 5578 5074 4619 3505 4731 4953 5011 5155 5299 5308 4146 5171 4625 4003 4736 4379
Names of X columns:
bouwver begonnen_geb
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