Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
109 NA 111 NA 143 NA 89 NA NA 128 125 NA 121 NA NA 106 109 NA NA 127 NA 99 116 NA 125 NA 121 NA 127 NA 129 NA 155 NA 113 NA 125 NA NA 127 110 NA 108 NA 97 NA 130 NA 97 NA 120 NA NA 125 131 NA 129 NA 125 NA 108 NA 142 NA NA 117 NA 130 NA 93 97 NA NA 110 NA 111 NA 130 113 NA NA 114 112 NA 86 NA NA 122 118 NA 124 NA 120 NA NA 133 NA 97 NA 115 NA 116 142 NA NA 110 133 NA NA 147 129 NA NA 134 134 NA NA 121 NA 105 106 NA NA 135 117 NA 82 NA 125 NA 130 NA 125 NA NA 97 101 NA NA 128 NA 97 NA 126 118 NA NA 107 87 NA NA 156 NA 133 NA 132 NA 133 122 NA 125 NA 127 NA 125 NA NA 128 NA 110
Names of X columns:
TM TF
Sample Range:
(leave blank to include all observations)
From:
To:
Color
1 2 3 4 5 6 7
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