Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
15859.4 15258.9 15498.6 15106.5 15023.6 12083.0 15761.3 16942.6 15070.3 13659.6 14768.9 14725.1 15998.1 15370.6 14956.9 15469.7 15101.8 11703.7 16283.6 16726.5 14968.9 14861.0 14583.3 15305.8 17903.9 16379.4 15420.3 17870.5 15912.8 13866.5 17823.2 17872.0 17422.0 16704.5 15991.2 16583.6 19123.5 17838.7 17209.4 18586.5 16258.1 15141.6 19202.1 17746.5 19090.1 18040.3 17515.5 17751.8 21072.4 17170.0 19439.5 19795.4 17574.9 16165.4 19464.6 19932.1 19961.2 17343.4 18924.2 18574.1 21350.6
Data Y:
12710.3 12120.8 12469.5 12054.6 12112.9 9617.2 12645.8 13581.3 12162.3 10969.7 11880.0 11887.6 12926.9 12300.0 12092.8 12380.8 12196.9 9455.0 13168.0 13427.9 11980.5 11884.8 11691.7 12233.8 14341.4 13130.7 12421.1 14285.8 12864.6 11160.2 14316.2 14388.7 14013.9 13419.0 12769.6 13315.5 15332.9 14243.0 13824.4 14962.9 13202.9 12199.0 15508.9 14199.8 15169.6 14058.0 13786.2 14147.9 16541.7 13587.5 15582.4 15802.8 14130.5 12923.2 15612.2 16033.7 16036.6 14037.8 15330.6 15038.3 17401.8
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
(?)
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