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,95.84395716,105.5073942,118.1540031,101.8612953,109.8419174,105.6348802,112.927078,133.0698623,125.6756757,146.736359,142.5803162,106.1448241,126.5170831,132.7893932,121.2391637,114.5079041,146.1499235,146.1244263,128.5058644,155.5838858,125.0382458,136.8944416,142.2233554,117.7715451,120.627231,127.7664457,135.1096379,105.7113717,117.9245283,120.754717,107.572667,130.4436512,107.2157063,105.0739419,130.1121877,109.6379398,116.7261601,97.11881693,140.8975013,108.2865885,97.65425803,112.0346762,123.0494646,112.4171341,116.4966854,104.6914839,122.2335543,99.79602244,96.71086181,112.3151453,102.5497195,104.5385008,122.0805711,80.64762876,91.40744518,99.51555329,106.527282,98.49566548,106.7567568)
> x <- c(100,97.01492537,92.53731343,92.53731343,97.01492537,101.4925373,101.4925373,97.01492537,88.05970149,82.08955224,83.58208955,89.55223881,94.02985075,92.53731343,83.58208955,80.59701493,85.07462687,88.05970149,92.53731343,94.02985075,91.04477612,88.05970149,88.05970149,85.07462687,88.05970149,91.04477612,91.04477612,97.01492537,101.4925373,101.4925373,102.9850746,102.9850746,101.4925373,98.50746269,97.01492537,97.01492537,97.01492537,100,104.4776119,108.9552239,111.9402985,111.9402985,111.9402985,108.9552239,105.9701493,102.9850746,104.4776119,105.9701493,107.4626866,105.9701493,101.4925373,102.9850746,102.9850746,108.9552239,110.4477612,107.4626866,102.9850746,101.4925373,105.9701493,110.4477612)
> par5 = 'bouwaanvragen'
> par4 = 'werkloosheid'
> par3 = 'TRUE'
> par2 = 'blue'
> par1 = 'red'
> 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/1rvp21258117375.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 
> 
> system("convert tmp/1rvp21258117375.ps tmp/1rvp21258117375.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.591   0.207   0.723