Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
88 111 106 137 70 112 70 73 56 99 50 115 48 95 71 60 61 94 66 70 80 87 37 102 53 69 39 111 40 55 59 118 42 90 33 81 36 88 57 63 38 84 98 87 43 78 73 93 52 69 53 67 51 61 32 123 43 91 53 98 50 38 50 72 56 59 53 78 47 58 42 97 29 69 54 50 40 66 41 70 37 65 25 69 27 49 61 72 54 74 35 82 55 61 47 72 49 77 38 64 52 23 35 39 52 87 54 46 40 66 52 57 34 48 51 75 43 35 40 53 38 60 33 20 27 66 34 34 44 80 46 63 50 46 31 20 33 73 37 57 48 65 33 70 40 53 21 60 33 34 41 18 35 49 60 27 30 45 45 9 26 23 41 61 48 67 10 72 35 58 23 55 29 33 17 40 35 57 50 61 33 87 23 65 22 85 52 85 38 54 32 24 28 31 43 64 32 70 35 2 25 27 14 29 17 68 18 42 12 78 27 13 28 52 12 25 21 38 9 40 11 42 0 40 3 74 0 73 NA 56 NA 3 NA 9 NA 68 NA 28 NA 36 NA 38 NA 55 NA 36 NA 17 NA 54 NA 57 NA 30 NA 40 NA 37 NA 46 NA 32 NA 34 NA 22 NA 59 NA 32 NA 2 NA 18 NA 28 NA 34 NA 29 NA 24 NA 24 NA 23 NA 43 NA 28 NA 19 NA 16 NA 40 NA 14 NA 19 NA 22 NA 8 NA 31 NA 9 NA 18 NA 15 NA 9 NA 5 NA 6 NA 3 NA 11 NA 0 NA 0 NA 0 NA 0 NA 0 NA 0 NA 0
Names of X columns:
blogs_UK blogs_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
par1 <- 'grey' 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