Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
TotalScore 23 32 68 10 16 24 19 11 15 20 8 12 13 23 19 15 21.76 43.74 24.22 22.36 17.98 24.24 37.89 35.05 23.8 18.53 16.58 34.21 41.54 21.03 26.13 22 11 20 28 21 18 15 20 39 17 16 25 15 13 57 18.7 22 20.9 13.94 23.35 23 25 15.9 19.2 21 23.5 29 32 26 13.7 17 28 18 12 12 15 15 15.25 9 10 12 9 11 10 14.4 17.5 14.7 24.9 15.7 12.8 13.2 15.6 18.3 16.5 14.2 27.6 23.5 20.1 14.7 32 16.98 30.76 15.04 19.25 17.29 29.33 40.5 18.51 16.99 23.04 15.83 20.02 19.16 32.38 16.12 27 54 40 16.7 15.7 14.6 8 34 39 17 16 12 17.3 27 16.6 19.6 60.91 64.69 17.65 12.59 14.02 20.04 12.46 15.49 8.87 18.51 15.74 21.43 16.57 30.82 21 19 30 17 25 32 26 27 19 16 22 22 19 26 17 59.86 20.14 17.53 14.54 20.46 69.04 29.43 14.36 22.32 42.97 22.92 131.54 30.05 22.19 17.76 43.7 51.4 47.5 68.1 81.4 49.3 26 61.2 82.3 76.3 42.7 27.1 32.8 87.8 17.4 22.9 25 23.3 23.6 25.6 24.6 25.1 29.8 27.7 25.86 34.5 27.4 28 25.4 28 19.32 17.39 14.7 13.69 18.01 15.22 19.4 33.76 16.18 19.76 34.1 33.21 19.6 41.37 22.42
Data Y:
41.54 23.5 14.02 18.51 30 32 20.46 29.43 42.97 61.2 25.86 33.21 19.6 41.37 22.42
Sample Range:
(leave blank to include all observations)
From:
To:
color left
(?)
blue
grey
white
blue
red
black
brown
yellow
color right
(?)
grey
grey
white
blue
red
black
brown
yellow
print densities
(?)
TRUE
TRUE
FALSE
Name of X series
Name of Y series
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par5 <- 'Male' par4 <- 'Female' par3 <- 'TRUE' par2 <- 'grey' par1 <- 'grey' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation