R version 2.7.2 (2008-08-25)
Copyright (C) 2008 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(12.196,16.781,18.646,20.533,21.683,25.945,27.829,31.290,34.675,34.223,29.522,12.952,13.850,19.093,21.588,22.948,24.024,25.200,27.542,30.858,34.977,35.019,30.420,13.635,13.855,17.409,21.417,24.042,24.906,25.330,26.298,29.376,33.648,33.401,29.330,12.104,12.383,16.128,19.670,21.475,23.217,24.615,26.197,29.192,32.995,32.720,27.735,11.282,12.251,15.632,18.593,19.894,20.854,21.904,23.379,27.197,30.284,29.864,22.622,10.454,11.891)
> x <- c(14.403,18.543,19.900,21.532,22.465,28.479,30.568,33.574,35.964,32.419,28.272,14.908,17.210,22.210,24.256,25.666,26.859,28.311,30.536,33.638,36.683,34.428,29.770,15.258,16.889,20.408,23.926,27.133,28.007,28.748,29.270,32.389,35.505,32.682,28.702,13.950,15.260,19.115,22.433,24.395,25.875,27.199,28.674,31.577,34.202,31.300,26.465,12.497,14.234,17.722,20.479,21.772,22.797,23.808,25.206,28.613,30.982,28.600,21.902,11.458,13.308)
> par5 = 'Werkz,n-werkend,wachtt -vrouw'
> par4 = 'Werkz,n-werkend,wachtt -man'
> 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: Wessa P., (2007), Back to Back Histogram (v1.0.2) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_backtobackhist.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description
> if (par3 == 'TRUE') par3 <- TRUE
> if (par3 == 'FALSE') par3 <- FALSE
> library(Hmisc)

Attaching package: 'Hmisc'


	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/14a521224536148.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/14a521224536148.ps tmp/14a521224536148.png")
> 
> 
> proc.time()
   user  system elapsed 
  1.003   0.171   1.069