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(1076.7,1035.9,1037,1154,1237.2,996.6,1238.2,1153.4,1268.1,1156,1144.5,1232.9,1055.2,1109.7,1079.8,1126.3,1196.8,1130.4,1183.6,1200.9,1426.6,1080.4,1325.4,1230,1125.9,1174.5,1151.9,1439.3,1344.3,1319.1,1257.6,1249.1,1397.1,1348,1548.2,1377.6,1402.9,1167.6,1392.9,1547,1420,1266.4,1280.8,1128.6,1449.5,1511.7,1548.3,1652,1650.5,1370.8,1653.3,1474.3,1418.8,1554.1,1156.6,1223.4,1337.5,1098.9,1037.6,1202.5)
> x <- c(1393.2,1108.1,1074.8,1323.5,1367,1190.7,1149.2,1281.9,1406.8,1392.4,1674.5,1529.8,1180.9,1282.8,1524.2,1524.6,1520.1,1881.9,1375.2,1336.5,1653.9,1404.3,1731.4,1330.8,1616.3,1503.7,1476.7,1565.6,1581.8,1407.7,1393.7,1662.4,1929,1352.8,1339.8,1251.2,1491.7,1540.7,1383.7,1827.5,1591.3,1289.2,1292,1368.3,1268.7,1454.4,1252.4,1305.4,1274.9,1089.8,1601.5,1418.9,1208.8,1145.7,1129.1,1073.6,1223.3,1135.5,1091.2,1116.3)
> par5 = 'Exportcijfers'
> par4 = 'Importcijfers'
> 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/1vf8l1257765953.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/1vf8l1257765953.ps tmp/1vf8l1257765953.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.601   0.176   0.668