Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.00 105.26 106.58 101.32 98.68 100.00 102.63 102.63 102.63 98.68 98.68 93.42 98.68 98.68 100.00 101.32 101.32 103.95 106.58 107.89 107.89 107.89 103.95 96.05 90.79 86.84 88.16 90.79 92.11 93.42 94.74 93.42 90.79 92.11 89.47 84.21 88.16 86.84 84.21 82.89 81.58 85.53 89.47 89.47 84.21 80.26 76.32 80.26 94.74 96.05 90.79 80.26 76.32 81.58 93.42 101.32 103.95 101.32 97.37 98.68
Data Y:
100.00 106.73 104.81 96.15 88.46 88.46 91.35 92.31 91.35 87.50 85.58 86.54 97.12 99.04 98.08 92.31 88.46 89.42 90.38 90.38 88.46 86.54 86.54 86.54 94.23 96.15 94.23 89.42 86.54 86.54 87.50 87.50 87.50 88.46 84.62 79.81 80.77 77.88 74.04 75.96 75.96 76.92 75.96 73.08 68.27 65.38 62.50 66.35 78.85 83.65 79.81 75.96 72.12 75.00 79.81 80.77 78.85 74.04 69.23 70.19
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