R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> y <- c(100.00,100.22,113.63,115.38,114.95,114.07,111.87,112.53,114.07,113.63,112.09,111.87,110.11,111.43,125.05,127.47,127.03,124.18,120.22,121.98,123.52,123.30,121.98,119.56,118.02,119.34,130.55,134.29,134.73,134.29,130.55,130.77,129.89,129.45,128.35,125.93,124.62,125.05,136.48,138.24,138.02,134.51,130.77,131.21,130.33,129.67,127.47,126.15,125.93,125.93,136.26,137.58,136.26,129.23,124.40,122.42,123.30,120.66,116.92,115.60,112.31,109.67,121.98,124.18,119.12,115.82,112.09,112.97,113.63,111.65,108.35,107.69,103.08,105.05,116.04,117.36,113.85,111.21,110.33,113.41,116.04,117.14,117.80,118.02,115.16,117.80,129.01,131.21,127.69,123.96)
> x <- c(100.00,99.76,98.74,99.12,100.22,99.98,100.44,100.19,101.59,102.08,101.43,100.27,101.24,100.92,103.04,102.76,102.36,101.35,101.68,100.29,102.68,102.89,103.30,101.75,103.42,102.92,103.44,103.01,103.45,101.87,100.70,101.24,102.73,102.46,103.90,102.32,102.25,103.21,104.00,103.94,103.08,103.27,103.14,102.63,104.49,104.39,105.49,104.68,103.46,103.38,103.25,104.44,104.47,103.68,104.22,103.18,104.30,105.00,107.23,105.92,106.73,107.72,106.78,107.59,110.69,108.11,109.74,108.76,109.66,110.48,110.25,109.93,110.64,110.44,109.90,110.33,112.38,116.42,117.83,118.28,122.75,124.20,122.34,123.17,121.92,122.68,122.30,123.72,123.78,123.07)
> par5 = 'werkloosheid'
> par4 = 'staatsschuld'
> 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)
Loading required package: survival
Loading required package: splines

Attaching package: 'Hmisc'


	The following object(s) are masked from package:survival :

	 untangle.specials 


	The following object(s) are masked from package:base :

	 format.pval,
	 round.POSIXt,
	 trunc.POSIXt,
	 units 

> z <- data.frame(cbind(x,y))
> names(z) <- list(par4,par5)
> postscript(file="/var/www/html/rcomp/tmp/1h2o91262204864.ps",horizontal=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()
null device 
          1 
> 
> try(system("convert tmp/1h2o91262204864.ps tmp/1h2o91262204864.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.586   0.168   0.665