if (!exists("ps.default")) ps.default <- ps.options()
ps.options(horizontal=FALSE,onefile=FALSE);
ps.options(paper="special",pagecentre=FALSE);
ps.options(width=7.0,height=5.0);