Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-4.9 -4 -3.1 -1.3 0 -0.4 3 0.4 1.2 0.6 -1.3 -3.2 -1.8 -3.6 -4.2 -6.9 -8 -7.5 -8.2 -7.6 -3.7 -1.7 -0.7 0.2 0.6 2.2 3.3 5.3 5.5 6.3 7.7 6.5 5.5 6.9 5.7 6.9 6.1 4.8 3.7 5.8 6.8 8.5 7.2 5 4.7 2.3 2.4 0.1 1.9 1.7 2 -1.9 0.5 -1.3 -3.3 -2.8 -8 -13.9 -21.9 -28.8
Data Y:
6802.96 7132.68 7073.29 7264.5 7105.33 7218.71 7225.72 7354.25 7745.46 8070.26 8366.33 8667.51 8854.34 9218.1 9332.9 9358.31 9248.66 9401.2 9652.04 9957.38 10110.63 10169.26 10343.78 10750.21 11337.5 11786.96 12083.04 12007.74 11745.93 11051.51 11445.9 11924.88 12247.63 12690.91 12910.7 13202.12 13654.67 13862.82 13523.93 14211.17 14510.35 14289.23 14111.82 13086.59 13351.54 13747.69 12855.61 12926.93 12121.95 11731.65 11639.51 12163.78 12029.53 11234.18 9852.13 9709.04 9332.75 7108.6 6691.49 6143.05
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation