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(1,1,0.946666667,0.933333333,0.933333333,0.826666667,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.8,0.856,0.866666667,0.866666667,0.92,0.933333333,0.933333333,0.970666667,1,1.048,1.066666667,1.112,1.133333333,1.170666667,1.2,1.2,1.24,1.266666667,1.266666667,1.306666667,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.333333333,1.381333333,1.4,1.4,1.197333333,1.045333333,0.866666667)
> x <- c(1,0.941979522,0.85665529,0.85665529,0.846416382,0.764505119,0.723549488,0.716723549,0.726962457,0.723549488,0.730375427,0.726962457,0.726962457,0.696245734,0.689419795,0.655290102,0.692832765,0.699658703,0.709897611,0.709897611,0.709897611,0.709897611,0.723549488,0.730375427,0.726962457,0.716723549,0.71331058,0.716723549,0.71331058,0.709897611,0.706484642,0.709897611,0.71331058,0.720136519,0.750853242,0.825938567,0.839590444,0.853242321,0.883959044,0.938566553,0.948805461,0.989761092,1.034129693,1.058020478,1.102389078,1.146757679,1.197952218,1.232081911,1.252559727,1.276450512,1.303754266,1.327645051,1.358361775,1.392491468,1.412969283,1.4778157,1.559726962,1.580204778,1.559726962,1.607508532,1.549488055,1.467576792,1.488054608,1.57337884,1.607508532,1.597269625,1.675767918,1.62116041,1.627986348,1.767918089,1.167235495,0.924914676)
> par5 = 'rmar'
> par4 = 'rlther'
> 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/1yzsx1258106293.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/1yzsx1258106293.ps tmp/1yzsx1258106293.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.583   0.178   0.677