Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.76 0.77 0.76 0.77 0.78 0.79 0.78 0.76 0.78 0.76 0.74 0.73 0.72 0.71 0.73 0.75 0.75 0.72 0.72 0.72 0.74 0.78 0.74 0.74 0.75 0.78 0.81 0.75 0.7 0.71 0.71 0.73 0.74 0.74 0.75 0.74 0.74 0.73 0.76 0.8 0.83 0.81 0.83 0.88 0.89 0.93 0.91 0.9 0.86 0.88 0.93 0.98 0.97 1.03 1.06 1.06 1.08 1.09 1.04 1 1.01 1.02 1.04 1.06 1.06 1.06 1.06 1.06 1.02 0.98 0.99 0.99 0.94 0.96 0.98 1.01 1.01 1.02 1.04 1.03
Data Y:
0.4 0.37 0.36 0.36 0.36 0.36 0.32 0.31 0.32 0.33 0.33 0.29 0.33 0.32 0.31 0.33 0.32 0.32 0.3 0.3 0.33 0.35 0.35 0.37 0.38 0.39 0.4 0.32 0.29 0.29 0.3 0.3 0.32 0.32 0.34 0.34 0.34 0.33 0.33 0.33 0.34 0.35 0.34 0.36 0.39 0.43 0.42 0.39 0.37 0.36 0.39 0.39 0.37 0.36 0.38 0.38 0.44 0.49 0.47 0.48 0.51 0.5 0.47 0.47 0.44 0.43 0.45 0.46 0.46 0.45 0.45 0.45 0.44 0.43 0.45 0.45 0.44 0.47 0.46 0.48
Sample Range:
(leave blank to include all observations)
From:
To:
color left
(?)
grey
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
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