Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
103.8 100.8 110.6 104.0 112.6 107.3 98.9 109.8 104.9 102.2 123.9 124.9 112.7 121.9 100.6 104.3 120.4 107.5 102.9 125.6 107.5 108.8 128.4 121.1 119.5 128.7 108.7 105.5 119.8 111.3 110.6 120.1 97.5 107.7 127.3 117.2 119.8 116.2 111.0 112.4 130.6 109.1 118.8 123.9 101.6 112.8 128.0 129.6 125.8 119.5 115.7 113.6 129.7 112.0 116.8 127.0 112.1 113.3 120.5 127.7
Data Y:
101.2 93.1 84.2 85.8 91.8 92.4 80.3 79.7 62.5 57.1 100.8 100.7 86.2 83.2 71.7 77.5 89.8 80.3 78.7 93.8 57.6 60.6 91.0 85.3 77.4 77.3 68.3 69.9 81.7 75.1 69.9 84.0 54.3 60.0 89.9 77.0 85.3 77.6 69.2 75.5 85.7 72.2 79.9 85.3 52.2 61.2 82.4 85.4 78.2 70.2 70.2 69.3 77.5 66.1 69.0 79.2 56.2 64.5 77.4 88.5
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