Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
102 156 99 109 97 104 82 98 77 78 65 77 64 73 62 71 62 67 62 64 61 62 59 61 57 58 56 58 54 56 54 56 53 52 52 51 51 51 51 50 51 49 50 49 50 48 50 47 49 47 49 46 49 45 48 45 48 45 47 45 47 44 46 44 46 44 45 43 45 43 45 42 44 41 43 41 42 40 42 39 42 39 42 39 42 39 42 39 41 39 41 39 41 38 41 38 41 38 41 38 41 37 40 37 40 37 40 36 40 36 40 36 39 36 39 36 38 36 38 35 36 35 36 34 35 34 35 34 35 34 35 34 34 33 34 33 34 33 33 33 33 33 33 33 32 32 32 32 32 32 31 32 31 32 30 31 30 31 30 31 30 30 29 30 28 29 28 29 27 29 27 28 27 28 26 28 25 28 25 28 25 28 24 27 24 27 23 27 23 26 23 26 23 26 23 26 22 25 22 25 22 24 22 24 20 24 19 24 19 24 17 24 17 24 16 23 16 23 5 23 4 23 3 23 3 23 1 23 NA 22 NA 22 NA 21 NA 21 NA 21 NA 21 NA 20 NA 20 NA 20 NA 20 NA 20 NA 19 NA 19 NA 19 NA 18 NA 18 NA 18 NA 18 NA 18 NA 17 NA 17 NA 17 NA 16 NA 16 NA 15 NA 15 NA 15 NA 15 NA 14 NA 13 NA 13 NA 12 NA 11 NA 11 NA 10 NA 10 NA 10 NA 10 NA 9 NA 8 NA 8 NA 8 NA 7 NA 7 NA 6 NA 4 NA 4 NA 2 NA 1 NA 1 NA 1 NA 0 NA 0 NA 0
Names of X columns:
hours_UK hours_B
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