Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
5560 433 34.97 36.68 3922 344 34.97 36.7 3759 357 34.93 36.71 4138 385 34.92 36.72 4634 392 34.97 36.73 3996 308 34.97 36.73 4308 294 34.97 36.87 4143 300 35.26 37.08 4429 302 35.38 37.31 5219 400 35.64 37.39 4929 392 35.9 37.42 5755 373 36.01 37.51 5592 379 36.03 37.67 4163 303 36.04 37.67 4962 324 36.06 37.71 5208 353 36.09 37.78 4755 392 36.15 37.79 4491 327 36.15 37.84 5732 376 36.15 37.88 5731 329 36.1 38.34 5040 359 36.38 38.58 6102 413 36.89 38.72 4904 338 37 38.83 5369 422 37.09 38.9 5578 390 37.13 38.92 4619 370 37.24 38.94 4731 367 37.29 39.1 5011 406 37.34 39.14 5299 418 37.49 39.16 4146 346 37.49 39.32 4625 350 37.54 39.34 4736 329 37.67 39.44 4219 318 38.13 39.92 5116 381 38.68 40.19 4205 337 38.77 40.2 4121 372 39 40.27 5103 422 39.03 40.28 4300 427 39.03 40.3 4578 426 39.04 40.34 3809 396 39.16 40.4 5526 458 39.23 40.43 4247 314 39.26 40.48 3830 336 39.25 40.48 4394 385 39.41 40.63 4826 351 39.56 40.74 4409 381 39.69 40.77 4569 438 39.87 40.91 4106 397 39.83 40.92 4794 451 39.84 41.03 3914 362 39.85 41 3793 363 39.91 41.04 4405 468 40.62 41.33 4022 371 40.73 41.44 4100 407 40.86 41.46 4788 391 40.89 41.55 3163 364 40.9 41.55 3585 366 41.15 41.81 3903 424 41.24 41.78 4178 364 41.24 41.84 3863 366 41.33 41.84 4187 423 41.36 41.86
Names of X columns:
Bouwv_woningen Bouwv_gebouwen Uurtarief_Elek Uurtarief_Loodg
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