Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
153 153 153 155 160 162 162 163 164 165 165 166 167 169 169 171 172 172 173 175 175 176 179 179 183 183 184 190
Data Y:
138 141 145 146 147 149 150 150 150 151 152 152 153 155 155 155 156 156 157 157 157 157 157 158 159 160 160 161 161 162 163 163 163 163 164 164 165 165 165 165 165 166 166 167 168 168 168 169 169 170 170 171 172 172 172 172 173 175 175 175 175 177 177 177 178 180 180 180 180 180 181 181 181 181 183 184 185 186
Sample Range:
(leave blank to include all observations)
From:
To:
color left
(?)
blue
grey
white
blue
red
black
brown
yellow
color right
(?)
red
grey
white
blue
red
black
brown
yellow
print densities
(?)
FALSE
TRUE
FALSE
Name of X series
Name of Y series
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par5 <- 'Census @ School Students (%)' par4 <- 'KSHS 9A Maths Students (%)' par3 <- 'FALSE' par2 <- 'red' par1 <- 'blue' if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE library(Hmisc) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary statistics (variable X)',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Summary statistics (variable Y)',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(y)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') summary(x) summary(y) z <- data.frame(cbind(x,y)) names(z) <- list(par4,par5) bitmap(file='plot.png') out <- histbackback(z, probability=par3, main = main, ylab = ylab) barplot(-out$left, col=par1, horiz=TRUE, space=0, add=TRUE, axes=FALSE) barplot(out$right, col=par2, horiz=TRUE, space=0, add=TRUE, axes=FALSE) dev.off()
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