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:
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