Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
153.24 184.48 191.81 168.19 163.81 190.57 163.81 129.62 173.90 198.76 135.52 179.81 137.05 142.57 187.52 220.48 208.76 210.19 232.57 173.81 218.86 226.76 196.67 237.43 173.14 207.62 234.67 204.10 230.76 210.19 194.76 172.10 221.90 225.24 228.00 198.76 199.05 235.43 270.76 234.10 237.24 239.43 239.24 197.33 217.43 242.19 207.52 232.76 222.10 202.48 228.10 319.52 236.95 252.00 262.29 172.10 243.90 235.62 216.95 236.29
Data Y:
146.54 120.13 131.67 131.97 145.92 177.02 149.56 171.58 173.95 190.39 183.46 165.44 186.32 223.29 198.99 191.05 178.42 187.85 183.51 252.94 213.51 185.53 215.48 214.39 229.21 183.55 206.71 186.23 217.46 214.69 202.06 225.57 220.70 246.32 273.51 220.66 295.88 215.35 230.83 220.00 232.06 237.68 294.39 295.35 267.68 274.12 246.84 249.34 303.25 236.14 233.38 260.96 281.18 281.54 288.95 332.68 345.96 414.96 285.35 288.03
Sample Range:
(leave blank to include all observations)
From:
To:
color left
(?)
red
grey
white
blue
red
black
brown
yellow
color right
(?)
blue
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
if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE library(Hmisc) 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