R version 2.8.0 (2008-10-20)
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(1190.8,728.8,995.6,1260.3,994,957.3,975.6,884.9,908.4,1022.8,958.6,825.1,1116.6,724.2,1004.5,1058.9,854.7,943.4,792.4,873.2,1101.4,987.1,1038.8,1060.7,1047.7,840,1044,1097.4,987.5,934,977,881.1,1083.3,1074.7,1182.2,1117.5,1117.4,936.2,1246.3,1175.1,1177.7,1035.8,1091.6,998.7,1247.9,1034.7,1287.7,994.0,1122.8,1017.3,1106.0,1191.8,1030.1,989.4,979.6,1088.0,1389.2,1043.9,1182.1,1109.6,1463.3,1276.2,1082.4,1360.4,1130.2,1019.6,1077.0,958.8,959.6,907.2,880.8,759.6,1137.2)
> x <- c(11178.4,9516.4,12102.8,12989.0,11610.2,10205.5,11356.2,11307.1,12648.6,11947.2,11714.1,12192.5,11268.8,9097.4,12639.8,13040.1,11687.3,11191.7,11391.9,11793.1,13933.2,12778.1,11810.3,13698.4,11956.6,10723.8,13938.9,13979.8,13807.4,12973.9,12509.8,12934.1,14908.3,13772.1,13012.6,14049.9,11816.5,11593.2,14466.2,13615.9,14733.9,13880.7,13527.5,13584.0,16170.2,13260.6,14741.9,15486.5,13154.5,12621.2,15031.6,15452.4,15428,13105.9,14716.8,14180.0,16202.2,14392.4,15140.6,15960.1,14351.3,13230.2,15202.1,17157.3,16159.1,13405.7,17224.7,17338.4,17370.6,18817.8,16593.2,17979.5,17015.2)
> par20 = ''
> par19 = ''
> par18 = ''
> par17 = ''
> par16 = ''
> par15 = ''
> par14 = ''
> par13 = ''
> par12 = ''
> par11 = ''
> par10 = ''
> par9 = ''
> par8 = ''
> par7 = ''
> par6 = ''
> par5 = 'Uitvoer Amerika'
> par4 = 'Uitvoer EU'
> par3 = 'TRUE'
> par2 = 'grey'
> par1 = 'grey'
> ylab = ''
> xlab = ''
> main = ''
> #'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/1ng0q1229983878.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/1ng0q1229983878.ps tmp/1ng0q1229983878.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.797   0.162   0.844