Wessa.net

Send output to:


Data X:
33 39 45 46 45 45 49 50 54 59 58 56 48 50 52 53 55 43 42 38 41 41 39 34 27 15 14 31 41 43 46 42 45 45 40 35 36 38 39 32 24 21 12 29 36 31 28 30 38 27 40 40 44 47 45 42 38 46 37 41 40 33 34 36 36 38 42 35 25 24 22 27 17 30 30 34 37 36 33 33 33 37 40 35 37 43 42 33 39 40 37 44 42 43 40 30 30 31 18 24 22 26 28 23 17 12 9 19 21 18 18 15 24 18 19 30 33 35 36 47 46

Data Y:
62 64 62 64 64 69 69 65 56 58 53 62 55 60 59 58 53 57 57 53 54 53 57 57 55 49 50 49 54 58 58 52 56 52 59 53 52 53 51 50 56 52 46 48 46 48 48 49 53 48 51 48 50 55 52 53 52 55 53 53 56 54 52 55 54 59 56 56 51 53 52 51 46 49 46 55 57 53 52 53 50 54 53 50 51 52 47 51 49 53 52 45 53 51 48 48 48 48 40 43 40 39 39 36 41 39 40 39 46 40 37 37 44 41 40 36 38 43 42 45 46


Sample Range: (leave blank to include all observations)
From:
To:

color left (?)


color right (?)


print densities (?)


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()

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