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(102.304,92.21,94.286,109.345,109.86,117.246,111.809,111.632,112.409,121.071,107.623,113.404,112.668,95.427,92.277,105.719,107.744,103.928,99.202,98.849,101.745,113.954,107.602,105.701,105.36,99.026,88.89,108.373,116.241,105.09,109.849,106.491,108.557,116.774,107.602,100.462,107.728,99.877,86.387,110.637,118.557,106.845,113.374,104.78,111.239,129.093,113.399,104.622,127.335,105.192,104.149,124.768,123.846,122.667,129.199,114.973,121.42,139.194,126.568,120.341,131.997,108.813,113.012,136.439,125.17,139.811,142.757,134.35,135.657,162.163,129.7,140.799,142.35,122.134,125.81,141.304,142.108,143.785,131.428,137.147,136.219,153.798,133.063,143.912,149.099,140.254,129.512,143.443,162.133,155.445,147.506,172.927,175.685,179.308,186.447,166.948,172.428)
> x <- c(110.089,99.966,94.195,119.588,125.946,118.906,108.717,118.357,115.422,130.937,111.802,120.357,121.12,108.752,98.973,116.721,123.857,114.056,98.309,110.251,108.538,122.526,118.394,116.691,116.014,111.784,95.164,121.028,129.89,116.102,102.055,113.562,113.071,126.486,119.472,117.141,121.925,112.688,90.974,126.398,130.401,116.873,111.917,113.919,117.931,139.332,127.781,118.103,136.984,119.566,107.238,139.389,139.798,138.074,129.739,125.098,129.341,149.083,137.721,130.126,140.499,118.165,115.932,144.662,136.159,147.339,138.807,135.275,135.84,161.702,132.606,147.419,154.865,131.545,126.212,150.316,154.524,154.28,131.059,147.168,141.8,162.022,143.924,151.406,159.601,143.513,132.302,152.021,171.573,161.591,134.057,172.247,173.384,173.706,188.178,165.932,179.795)
> par5 = 'Invoer Extra EU'
> par4 = 'Uitvoer Intra EU'
> 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/1uj4s1224531056.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/1uj4s1224531056.ps tmp/1uj4s1224531056.png")
> 
> 
> proc.time()
   user  system elapsed 
  1.060   0.203   1.990