Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
93.9 89.8 93.4 101.5 110.4 105.9 108.4 113.9 86.1 69.4 101.2 100.5 98.0 106.6 90.1 96.9 125.9 112.0 100.0 123.9 79.8 83.4 113.6 112.9 104.0 109.9 99.0 106.3 128.9 111.1 102.9 130.0 87.0 87.5 117.6 103.4 110.8 112.6 102.5 112.4 135.6 105.1 127.7 137.0 91.0 90.5 122.4 123.3 124.3 120.0 118.1 119.0 142.7 123.6 129.6 151.6 110.4 99.3 129.1 134.1
Data Y:
108.1 105.4 114.6 106.9 115.9 109.8 101.8 114.2 110.8 108.4 127.5 128.6 116.6 127.4 105.0 108.3 125.0 111.6 106.5 130.3 115.0 116.1 134.0 126.5 125.8 136.4 114.9 110.9 125.5 116.8 116.8 125.5 104.2 115.1 132.8 123.3 124.8 122.0 117.4 117.9 137.4 114.6 124.7 129.6 109.4 120.9 134.9 136.3 133.2 127.2 122.7 120.5 137.8 119.1 124.3 134.4 121.1 121.0 127.0 133.4
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