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(100.00,106.54,127.63,141.72,147.95,142.16,147.95,155.82,164.13,159.16,147.14,159.16,178.85,200.44,189.43,160.16,157.02,168.91,173.19,175.83,158.78,166.96,171.24,179.55,191.00,196.41,206.80,208.94,224.86,217.31,229.96,252.36,255.25,290.37,269.67,240.53,252.86,265.51,299.31,297.42,277.09,313.59,335.75,370.67,375.33,358.65,334.80,335.05,364.07,350.47,350.16,393.46,405.29,406.86,426.12,422.97,373.63,335.18,329.89,346.32,100.00,106.54,127.63,141.72,147.95,142.16,147.95,155.82,164.13,159.16,147.14,159.16,178.85,200.44,189.43,160.16,157.02,168.91,173.19,175.83,158.78,166.96,171.24,179.55,191.00,196.41,206.80,208.94,224.86,217.31,229.96,252.36,255.25,290.37,269.67,240.53,252.86,265.51,299.31,297.42,277.09,313.59,335.75,370.67,375.33,358.65,334.80,335.05,364.07,350.47,350.16,393.46,405.29,406.86,426.12,422.97,373.63,335.18,329.89,346.32)
> x <- c(100.00,98.49,99.15,100.28,103.82,108.16,112.33,110.70,111.04,111.07,113.37,115.28,120.25,121.96,122.35,122.81,131.12,132.04,128.74,126.11,127.05,132.37,132.48,139.09,142.79,143.17,138.82,135.68,135.93,137.42,138.87,137.85,138.32,141.40,147.07,151.79,148.52,147.33,149.45,146.47,143.71,137.72,136.27,139.16,138.75,136.02,133.43,134.22,137.02,135.15,136.08,138.92,144.57,143.21,143.60,145.04,144.08,142.77,145.83,149.59,100.00,98.49,99.15,100.28,103.82,108.16,112.33,110.70,111.04,111.07,113.37,115.28,120.25,121.96,122.35,122.81,131.12,132.04,128.74,126.11,127.05,132.37,132.48,139.09,142.79,143.17,138.82,135.68,135.93,137.42,138.87,137.85,138.32,141.40,147.07,151.79,148.52,147.33,149.45,146.47,143.71,137.72,136.27,139.16,138.75,136.02,133.43,134.22,137.02,135.15,136.08,138.92,144.57,143.21,143.60,145.04,144.08,142.77,145.83,149.59)
> par5 = 'RuwOlB/dollar'
> par4 = 'Wssk euro-dollar'
> par3 = 'TRUE'
> par2 = 'blue'
> par1 = 'red'
> 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/1zj9k1257803023.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/1zj9k1257803023.ps tmp/1zj9k1257803023.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.580   0.190   0.666