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(21.1,21.2,21.3,21.4,21.5,21.6,21.7,21.8,21.9,21.10,21.11,21.12,21.13,21.14,21.15,21.16,21.17,21.18,21.19,21.20,21.21,21.22,21.23,21.24,21.25,21.26,21.27,21.28,21.29,21.30,21.31,21.32,21.33,21.34,21.35,21.36,21.37,21.38,21.39,21.40,21.41,21.42,21.43,21.44,21.45,21.46,21.47,21.48,21.49,21.50,21.51,21.52,21.53,21.54,21.55,21.56,21.57,21.58,21.59,21.60,21.61,21.62,21.63,21.64,21.65,21.66,21.67,21.68)
> x <- c(9.0,9.1,9.2,9.3,9.4,9.5,9.6,9.7,9.8,9.9,9.10,9.11,9.12,9.13,9.14,9.15,9.16,9.17,9.18,9.19,9.20,9.21,9.22,9.23,9.24,9.25,9.26,9.27,9.28,9.29,9.30,9.31,9.32,9.33,9.34,9.35,9.36,9.37,9.38,9.39,9.40,9.41,9.42,9.43,9.44,9.45,9.46,9.47,9.48,9.49,9.50,9.51,9.52,9.53,9.54,9.55,9.56,9.57,9.58,9.59,9.60,9.61,9.62,9.63,9.64,9.65,9.66,9.67)
> par5 = 'jonger dan 25'
> par4 = 'Female'
> 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)

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/1ktkm1225128057.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/1ktkm1225128057.ps tmp/1ktkm1225128057.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.973   0.181   1.065