Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
519164 244752 274412 517009 244576 272433 509933 241572 268361 509127 240541 268586 500857 236089 264768 506971 236997 269974 569323 264579 304744 579714 270349 309365 577992 269645 308347 565464 267037 298427 547344 258113 289231 554788 262813 291975 562325 267413 294912 560854 267366 293488 555332 264777 290555 543599 258863 284736 536662 254844 281818 542722 254868 287854 593530 277267 316263 610763 285351 325412 612613 286602 326011 611324 283042 328282 594167 276687 317480 595454 277915 317539 590865 277128 313737 589379 277103 312276 584428 275037 309391 573100 270150 302950 567456 267140 300316 569028 264993 304035 620735 287259 333476 628884 291186 337698 628232 292300 335932 612117 288186 323931 595404 281477 313927 597141 282656 314485 593408 280190 313218 590072 280408 309664 579799 276836 302963 574205 275216 298989 572775 274352 298423 572942 271311 301631 619567 289802 329765 625809 290726 335083 619916 292300 327616 587625 278506 309119 565742 269826 295916 557274 265861 291413 560576 269034 291542 548854 264176 284678 531673 255198 276475 525919 253353 272566 511038 246057 264981 498662 235372 263290 555362 258556 296806 564591 260993 303598 541657 254663 286994 527070 250643 276427 509846 243422 266424 514258 247105 267153 516922 248541 268381 507561 245039 262522 492622 237080 255542 490243 237085 253158 469357 225554 243803 477580 226839 250741 528379 247934 280445 533590 248333 285257 517945 246969 270976 506174 245098 261076 501866 246263 255603 516141 255765 260376 528222 264319 263903 532638 268347 264291 536322 273046 263276 536535 273963 262572 523597 267430 256167 536214 271993 264221 586570 292710 293860
Names of X columns:
Wkltot Wklm Wklv
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