Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
110 83 39 96 81 38 86 77 34 77 73 31 77 71 28 76 71 28 70 64 27 69 60 27 68 60 25 67 59 24 67 59 23 67 57 22 64 54 22 63 52 21 62 52 21 60 50 21 60 50 21 59 50 21 58 49 21 58 49 20 58 48 20 58 47 19 57 46 19 57 46 19 55 46 18 54 45 18 54 45 18 54 43 17 54 42 16 52 42 16 52 42 15 52 42 14 52 40 14 52 40 13 51 39 13 51 39 13 50 38 13 50 38 12 50 38 12 49 37 12 49 37 12 49 37 12 48 37 12 48 37 12 47 36 12 46 36 11 46 36 11 46 34 10 46 34 10 45 34 10 45 33 9 45 33 9 45 32 9 44 32 9 44 32 9 43 30 9 43 29 9 43 28 9 43 28 8 43 28 8 42 27 8 41 26 8 41 26 8 41 26 8 41 26 7 40 25 7 40 25 7 39 25 7 39 25 7 39 25 6 39 25 6 38 25 6 38 24 6 38 23 5 38 23 5 38 23 5 38 21 5 38 21 5 37 21 5 37 20 5 37 20 5 37 19 4 37 19 4 36 19 4 36 18 4 36 18 3 36 18 3 35 18 3 35 17 3 34 16 3 34 15 3 34 14 3 33 13 3 33 13 3 33 13 2 32 12 2 32 12 2 32 12 1 32 11 1 32 10 1 32 10 1 32 9 1 32 9 1 31 8 1 31 8 1 31 7 1 31 6 1 30 6 1 29 5 1 29 5 1 29 5 0 29 4 0 28 2 0 28 2 0 27 2 0 27 1 0 27 1 0 27 1 0 27 1 0 26 0 0 26 0 0 25 0 0 25 0 NA 25 0 NA 25 0 NA 25 0 NA 25 NA NA 25 NA NA 24 NA NA 24 NA NA 24 NA NA 24 NA NA 24 NA NA 24 NA NA 23 NA NA 23 NA NA 23 NA NA 23 NA NA 23 NA NA 22 NA NA 22 NA NA 22 NA NA 20 NA NA 19 NA NA 18 NA NA 18 NA NA 18 NA NA 16 NA NA 15 NA NA 15 NA NA 13 NA NA 9 NA NA 9 NA NA 7 NA NA 3 NA NA 2 NA NA 2 NA NA 2 NA NA 1 NA NA 0 NA NA
Names of X columns:
Hours.UK Hours.BS Hours.BB
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation