Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
111078 231814 123364 40715 150739 246796 127760 44028 159129 247891 127130 45564 157928 248291 127496 44277 147768 245766 126954 44976 137507 238776 125655 45406 136919 242541 127949 47379 136151 246861 130113 49200 133001 246843 130789 50221 125554 246947 131258 51573 119647 241679 129182 53091 114158 240085 129082 53337 116193 241514 130037 54978 152803 250525 132317 57885 161761 250567 131336 67099 160942 252145 132357 67169 149470 251877 140181 69796 139208 245817 138542 70600 134588 248269 140615 71982 130322 246310 140276 73957 126611 246733 140762 75273 122401 245028 140677 76322 117352 240022 138648 77078 112135 238614 138753 77954 112879 238096 138815 79238 148729 248530 141297 82179 157230 248381 139439 83834 157221 247567 139700 83744 146681 241783 138792 84861 136524 235000 137402 86478 132111 237384 139356 88290 125326 238020 139775 90287 122716 236412 139714 91230 116615 232279 138525 92380 113719 230408 137572 92506 110737 230254 137612 94172 112093 229217 136904 94728 143565 239658 139763 96581 149946 239906 138613 97344 149147 236558 135865 98346 134339 223566 131506 98214 122683 216054 128639 98366 115614 214685 128207 98768 116566 216086 128092 99832 111272 211692 125914 99976 104609 204681 122422 99961 101802 203075 120878 100164 94542 198401 118131 99964 93051 191246 115061 99304 124129 206750 120475 104008 130374 209611 119962 104644 123946 199573 114188 103950 114971 195635 112201 104263 105531 190062 110012 104241 104919 193134 111064 105141 104782 194795 111327 106018 101281 190835 109579 105866 94545 185045 107088 105944 93248 184425 106191 106379 84031 177293 102951 105082 87486 180549 104630 104915
Names of X columns:
-25j 25-40j 40-50j +50j
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