Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10144 112 285 1915 10751 304 574 1843 11752 794 865 1761 13808 901 1147 2858 16203 1232 1516 3968 17432 1240 1789 5061 18014 1032 2087 4661 16956 1145 2372 4269 17982 1588 2669 3857 19435 2264 2966 3568 19990 2209 3270 3274 20154 2917 3652 2987 10327 243 329 1683 9807 558 658 1381 10862 1238 988 1071 13743 1502 1303 2772 16458 2000 1603 4485 18466 2146 1929 6181 18810 2066 2235 5479 17361 2046 2544 4782 17411 1952 2872 4067 18517 2771 3198 3489 18525 3278 3544 2903 17859 4000 3903 2330 9499 410 332 1736 9490 1107 665 1483 9255 1622 1001 1242 10758 1986 1329 2334 12375 2036 1639 3423 14617 2400 1975 4523 15427 2736 2304 3986 14136 2901 2640 3462 14308 2883 2992 2908 15293 3747 3330 2575 15679 4075 3690 2237 16319 4996 4063 1904 11196 575 368 1610 11169 999 738 1251 12158 1411 1103 941 14251 1493 1474 2450 16237 1846 1846 3946 19706 2899 2224 5409 18960 2372 2608 4741 18537 2856 2984 4069 19103 3468 3351 3539 19691 4193 3736 3189 19464 4440 4122 2960 17264 4186 4558 2704 8957 655 378 1697 9703 1453 749 1598 9166 1989 1113 1456 9519 2209 1500 2316 10535 2667 1867 3083 11526 3005 2244 4158 9630 2195 2621 3469 7061 2236 2988 2892 6021 2489 3349 2578 4728 2651 3723 2233 2657 2636 4108 1947 1264 2819 4514 2049
Names of X columns:
lov di aink belin
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