Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
519 505.56 195.4 104 517 439.01 182.8 110 510 485.72 225.1 104 509 438.99 227.7 94 501 375.32 208.5 95 507 403.57 228.2 99 569 354.89 226.6 101 580 290.27 187.8 104 578 344.85 226.7 99 565 425.98 206.9 105 547 303.06 174.6 107 555 264.51 229.9 110 562 474.60 236.0 117 561 501.04 221.4 118 555 614.65 282.5 126 544 537.26 235.5 127 537 394.77 233.3 134 543 438.95 301.6 131 594 314.81 215.5 135 611 298.96 217.2 142 613 338.42 215.0 141 611 391.20 253.3 153 594 337.02 205.8 145 595 250.94 216.0 137 591 514.42 226.0 148 589 455.94 249.8 152 584 525.18 269.5 169 573 485.64 279.9 168 567 417.45 294.6 161 569 495.85 293.0 174 621 327.47 231.8 179 629 333.79 254.0 190 628 356.45 257.0 190 612 370.34 266.9 181 595 356.81 245.0 174 597 209.72 284.2 180 593 585.52 344.0 196 590 549.55 267.8 193 580 655.40 298.1 197 574 515.70 226.0 216 573 511.45 284.4 221 573 466.41 254.6 217 620 357.04 245.6 229 626 332.53 229.5 227 620 351.93 237.9 204 588 416.68 247.9 196 566 348.65 205.7 198 557 212.10 228.0 207 561 561.26 235.1 190 549 492.31 227.6 201 532 597.23 254.8 210 526 481.03 231.1 223 511 474.72 220.1 223 499 504.97 272.5 231 555 400.59 240.8 244 565 341.49 213.9 234 542 368.60 189.8 250 527 463.56 253.7 265 510 365.77 206.8 287 514 238.72 206.3 283 517 572.76 252.0 295 508 563.89 243.4 312 493 576.57 219.0 333 490 623.00 279.4 347 469 489.29 207.0 383 478 511.68 261.5 407 528 396.36 226.5 413 534 332.13 213.9 362 518 381.27 242.8 321 506 432.91 213.7 239 502 306.00 182.3 191 516 219.56 206.3 159
Names of X columns:
werkl inpw bouwv pigr
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