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.65741,-0.23311,0.74568,0.54108,-0.83516,0.13481,-0.28442,0.46668,-1.10642,-0.10782,0.05024,0.31088,0.17889,-1.05978,-0.97363,-0.56134,-1.2829,1.98664,0.07118,-0.40209,-0.19577,-0.39322,-0.09014,-0.19331,-0.6323,-0.37168,-0.73259,-0.81329,0.58775,-0.53212,1.47014,0.12605,0.87762,-0.47746,-2.24293,0.01562,1.13217,-0.07541,-0.44371,0.26008,0.01334,-0.96388,1.65731,-0.22507,-1.51857,-1.33558,0.52953,1.39326,1.12663,-0.01136,0.94034,0.78786,0.08694,0.0328,1.55286,-2.40488,0.16733,-0.40313,-1.74584,-0.69384,-0.13967,-0.45824,0.984,0.68723,-1.1106,0.54159,0.78018,-1.19219,-0.24727,1.65407,0.50304,0.91005,1.75622,0.12704,0.26597,1.08004,0.00937,0.38422,-0.53297,-0.82255,-0.04665,-0.56281,0.78689,-0.64757,-0.78003,-0.90153,1.12854,-0.38383,-0.59328,-0.12503,-0.48269,1.67105,0.686,-0.72765,0.30209,0.25766,1.12498,-0.31011,0.82459,1.17489)
> x <- c(1.97629,-0.0361,0.07117,1.23355,0.28578,0.2158,1.37532,0.88658,0.01751,-1.63386,-0.10037,1.12964,-0.51118,-2.30805,0.27471,-0.62217,-0.11151,-0.1141,-1.18533,-0.17558,-0.52126,-0.2211,-0.55288,-0.43851,-0.56762,1.81772,0.59778,0.30372,1.71796,-0.89267,0.57353,-1.01236,-0.48203,0.51141,-0.55989,-0.48264,1.47293,1.59422,-0.73087,-0.03829,0.99176,-1.86628,-0.43733,0.93608,0.38318,-0.30173,-1.00425,0.8098,1.45966,-2.19123,-0.40534,1.94067,0.48497,-0.2021,-1.16963,-0.36985,0.75979,0.19779,-0.45474,-0.9206,-0.10771,-1.20366,2.67487,1.57247,0.67842,0.11641,-0.46631,1.84623,-1.2914,0.96074,0.23254,0.86255,1.41143,-0.01301,0.20226,-2.78601,-0.158,0.83164,2.18853,-1.14609,0.23125,0.02265,1.37913,-0.24625,-0.00513,-0.963,-0.01937,-1.15867,-0.15707,-0.60072,-0.164,-0.6838,1.66298,-0.57167,-0.03546,-0.39706,0.71473,1.26745,-0.35679,-1.02532)
> par5 = 'Male'
> par4 = 'Female'
> par3 = 'TRUE'
> par2 = 'grey'
> par1 = 'grey'
> ylab = ''
> main = 'Back to Back Histogram'
> 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/1cq2m1255980863.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/1cq2m1255980863.ps tmp/1cq2m1255980863.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.581   0.161   0.713