Writing publication-pretty *.eps files in R

eps.R

eps <- function(file, onefile=FALSE, width=5.5, height = 5.5, 	horizontal=FALSE,paper="special", ...){
  		postscript(file=file,width=width,height=height,onefile=onefile,horizontal=horizontal,paper=paper,title=file,...)
  		par(bty='l')
		}