y <- c(112.9,130.5,137.9,115,116.8,140.9,120.7,134.2,147.3,112.4,107.1,128.4,137.7,135,151,137.4,132.4,161.3,139.8,146,166.5,143.3,121,152.6,154.4,154.6,158,142.6,153.4,163.4,167.3,154.8,165.7,144.7,120.9,152.8,160.2,128.3,150.5,117,116,133.3,116.4,104,126.6,92.9,83.6,112.8,113.2,118.5,125.5,91.3,105.4,121.3,106.9,109.4,132.6,96.8,100.3,119.2)
x <- c(112.3,117.3,111.1,102.2,104.3,122.9,107.6,121.3,131.5,89,104.4,128.9,135.9,133.3,121.3,120.5,120.4,137.9,126.1,133.2,151.1,105,119,140.4,156.6,137.1,122.7,125.8,139.3,134.9,149.2,132.3,149,117.2,119.6,152,149.4,127.3,114.1,102.1,107.7,104.4,102.1,96,109.3,90,83.9,112,114.3,103.6,91.7,80.8,87.2,109.2,102.7,95.1,117.5,85.1,92.1,113.5)
par5 = 'MaApWe '
par4 = 'ProMet'
par3 = 'TRUE'
par2 = 'grey'
par1 = 'grey'
ylab = ''
main = 'Back to Back Histogram'
#'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
#Author: Prof. Dr. P. Wessa
#To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
#Source of accompanying publication: Office for Research, Development, and Education
#Technical description: Write here your technical program description (don't use hard returns!)
if (par3 == 'TRUE') par3 <- TRUE
if (par3 == 'FALSE') par3 <- FALSE
library(Hmisc)
z <- data.frame(cbind(x,y))
names(z) <- list(par4,par5)
postscript(file="/var/www/html/rcomp/tmp/1s3jc1292965403.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
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()

try(system("convert tmp/1s3jc1292965403.ps tmp/1s3jc1292965403.png",intern=TRUE))