Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
115.47 103.34 102.6 100.69 105.67 123.61 113.08 106.46 123.38 109.87 95.74 123.06 123.39 120.28 115.33 110.4 114.49 132.03 123.16 118.82 128.32 112.24 104.53 132.57 122.52 131.8 124.55 120.96 122.6 145.52 118.57 134.25 136.7 121.37 111.63 134.42 137.65 137.86 119.77 130.69 128.28 147.45 128.42 136.9 143.95 135.64 122.48 136.83 153.04 142.71 123.46 144.37 146.15 147.61 158.51 147.4 165.05 154.64 126.2 157.36 154.15 123.21 113.07 110.45 113.57 122.44 114.93 111.85 126.04 121.34
Data Y:
111.69 100.5 106.29 101.09 104.53 122.74 109.84 101.99 125.12 103.5 102.8 118.72 119.01 118.61 120.43 111.83 116.79 131.71 120.57 117.83 130.8 107.46 112.09 129.47 119.72 134.81 135.8 129.27 126.94 153.45 121.86 133.47 135.34 117.1 120.65 132.49 137.6 138.69 125.53 133.09 129.08 145.94 129.07 139.69 142.09 137.29 127.03 137.25 156.87 150.89 139.14 158.3 149 158.36 168.06 153.38 173.86 162.47 145.17 168.89 166.64 140.07 128.84 123.41 120.3 129.67 118.1 113.91 131.09 119.15
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