Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
104 330 62 119 74 66 64 102 72 60 27 128 47 69 78 94 65 91 61 65 100 78 44 85 85 67 41 152 45 62 81 67 34 74 40 86 41 51 38 57 33 97 48 64 23 90 57 59 31 61 73 61 50 36 31 82 33 79 53 109 40 27 20 76 50 41 32 66 27 78 35 136 30 39 38 94 24 39 34 61 48 53 28 65 32 34 41 64 125 47 34 46 64 75 35 53 49 128 40 65 49 47 46 54 52 107 42 48 63 55 53 32 25 52 41 39 17 25 31 51 31 38 30 59 20 41 39 39 45 64 39 57 45 43 19 27 27 72 22 57 32 103 52 62 35 59 19 39 27 56 59 49 24 39 33 57 36 37 27 185 48 27 21 86 41 60 53 56 26 62 19 46 27 61 28 47 28 26 48 67 22 103 29 62 19 38 38 66 31 41 27 69 10 38 21 44 17 31 20 94 20 16 8 22 49 73 15 27 6 50 10 59 12 61 10 72 23 109 7 31 2 66 0 56 4 37 0 35 NA 36 NA 41 NA 36 NA 45 NA 38 NA 52 NA 40 NA 50 NA 34 NA 55 NA 45 NA 46 NA 49 NA 50 NA 36 NA 22 NA 36 NA 15 NA 21 NA 47 NA 38 NA 0 NA 48 NA 30 NA 52 NA 109 NA 40 NA 63 NA 84 NA 42 NA 37 NA 11 NA 37 NA 26 NA 18 NA 51 NA 7 NA 8 NA 46 NA 31 NA 62 NA 0 NA 22 NA 29 NA 0 NA 2 NA 9 NA 0 NA 0 NA 0 NA 0 NA 0 NA 0 NA 0
Names of X columns:
kcs_UK kcs_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