R version 2.6.2 (2008-02-08)
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(884.08,822.4,616.8,462.6,771,565.4,616.8,585.96,565.4,699.04,719.6,719.6,637.36,719.6,760.72,637.36,791.56,668.2,657.92,668.2,771,647.64,565.4,740.16,657.92,616.8,565.4,585.96,719.6,514,668.2,668.2,657.92,740.16,647.64,637.36,616.8,719.6,616.8,729.88,719.6,616.8,565.4,678.48,771,719.6,565.4,719.6,616.8,791.56,565.4,719.6,719.6,678.48,493.44,616.8,493.44,462.6,555.12,627.08,657.92,534.56,688.76)
> x <- c(1202.76,1192.48,863.52,585.96,904.64,719.6,863.52,822.4,668.2,997.16,1038.28,966.32,986.88,986.88,1017.72,863.52,1326.12,925.2,781.28,853.24,1202.76,853.24,760.72,966.32,914.92,791.56,729.88,771,1007.44,699.04,873.8,894.36,771,976.6,771,832.68,781.28,935.48,771,997.16,935.48,771,771,925.2,976.6,1028,678.48,945.76,832.68,1028,678.48,945.76,914.92,832.68,688.76,760.72,585.96,657.92,668.2,822.4,925.2,709.32,945.76)
> par5 = 'Prosome Length'
> par4 = 'Total Length'
> 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/freestat/rcomp/tmp/15ene1211203083.ps",horizontal=F,pagecentre=F,paper="special",width=19.444444444444,height=12.5) 
> 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/15ene1211203083.ps tmp/15ene1211203083.png")
> 
> 
> proc.time()
   user  system elapsed 
  1.573   0.584   1.636