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(0.99108,1.01106,1.02303,1.03884,1.04008,1.04561,1.03687,1.06073,1.10986,1.14308,1.13704,1.11881,1.10102,1.10427,1.21031,1.21034,1.18008,1.17951,1.15236,1.18474,1.24201,1.27613,1.22767,1.20806,1.19442,1.17686,1.18862,1.18155,1.18306,1.20374,1.22945,1.24972,1.29155,1.30633,1.22020,1.17153,1.17140,1.09528,1.16604,1.14549,1.18018,1.16872,1.18306,1.18789,1.24369,1.22060,1.15531,1.13510,1.15243,1.12756,1.16054,1.10329,1.18980,1.21024,1.24295,1.26390,1.35493,1.33673,1.29075,1.29929)
> x <- c(1.01135,1.01747,1.03066,1.04183,1.05315,1.06308,1.07429,1.08626,1.10025,1.12714,1.14231,1.14965,1.16536,1.18178,1.19467,1.21240,1.22326,1.23535,1.25060,1.26165,1.27666,1.29593,1.30998,1.32252,1.33510,1.34013,1.35081,1.36653,1.37428,1.38213,1.39470,1.40414,1.41745,1.43398,1.39402,1.40632,1.41982,1.43532,1.44687,1.46064,1.47084,1.48212,1.49316,1.50550,1.51772,1.31869,1.33392,1.34300,1.35538,1.21333,1.18188,1.10824,1.04660,1.05462,1.06373,0.95098,0.95915,0.97592,0.99204,1.00234)
> par5 = 'Male'
> 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)
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/10x141258109770.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/10x141258109770.ps tmp/10x141258109770.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.568   0.170   0.694