Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
150 NA 124 NA 92 NA 117 NA 151 NA 117 NA 146 NA 119 NA 144 NA 96 NA 117 NA 145 NA 133 NA 99 NA 139 NA 120 NA NA 135 NA 120 NA 130 NA 138 NA 77 NA 125 NA 127 NA 117 NA 167 NA 137 NA 127 NA 128 NA 129 NA 118 NA 107 NA 122 NA 113 NA 118 NA 113 NA 102 NA 128 NA 108 NA 105 NA 123 NA 111 NA 108 NA 138 NA 110 NA 122 NA 109 NA 128 NA 140 NA 122 NA 135 NA 118 NA 131 NA 113 NA 159 NA 157 NA 94 NA 131 NA 131 NA 105 NA 109 NA 134 NA 90 NA 140 NA 128 NA 134 NA 150 NA 126 NA 108 NA 138 NA 152 NA 158 NA 133 NA 124 NA 125 NA 152 NA 140 NA 115 NA 130 NA 131 NA 125 NA 115 NA 153 NA 121 NA 141 NA 123 NA 121 NA 135 NA 129 NA 105 NA 148 NA 101 NA 129 NA 118 NA 134 NA 117 NA 114 NA 144 NA 116 NA 114 NA 147 NA 102 NA 115 NA 130 NA 130 NA 126 NA 138 NA 102 NA 113 NA 116 NA 122 NA 120 NA 148 NA 131 NA 120 NA 126 NA 130 NA 122 NA 108 NA 131 NA 123 NA 129 NA 140 NA 128 NA 107 NA 131 NA 133 NA 141 NA 114 NA 96 NA 126 NA 118 NA 142 NA 117 NA 118 NA 131 NA 132 NA 127 NA 136 NA 141 NA 112 NA 109 NA 139 NA 89 NA 135 NA 127 NA 131 NA 129 NA 116 NA 133 NA 129 NA 134 NA 126 NA 112 NA 108 NA 118 NA 142 NA 133 NA 118 NA 134 NA 138 NA 126 NA 127
Names of X columns:
Mac Windows
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