R help - Feb 2003 - plot mutiple graphs in one .eps

how can I use the following approach correctly to print all plots into
one .eps file? thanks for a hint, even a documentation describing it
easily:
> opar <- par(mfrow = c(4,4), pty= "s", oma = c(0, 0, 0, 0))
> postscript("bivreg01.eps")
> plot(CMEDV ~ CRIM, HousePrice)
> plot(CMEDV ~ ZN, HousePrice)
> plot(CMEDV ~ INDUS, HousePrice)
> plot(CMEDV ~ CHAS, HousePrice)
> plot(CMEDV ~ NOX, HousePrice)
> plot(CMEDV ~ RM, HousePrice)
> plot(CMEDV ~ AGE, HousePrice)
> plot(CMEDV ~ DIS, HousePrice)
> plot(CMEDV ~ RAD, HousePrice)
> plot(CMEDV ~ TAX, HousePrice)
> plot(CMEDV ~ PTRATIO, HousePrice)
> plot(CMEDV ~ B, HousePrice)
> plot(CMEDV ~ LSTAT, HousePrice)
> dev.off()
thanks
christoph
-- 
Christoph Lehmann                            Phone:  ++41 31 930 93 83 
Department of Psychiatric Neurophysiology    Mobile: ++41 31 570 28 00
University Hospital of Clinical Psychiatry   Fax:    ++41 31 930 99 61 
Waldau                                            lehmann at puk.unibe.ch 
CH-3000 Bern 60            http://www.puk.unibe.ch/cl/pn_ni_cv_cl.html

Christoph Lehmann wrote:
> how can I use the following approach correctly to print all plots into
> one .eps file? thanks for a hint, even a documentation describing it
> easily:
> 
> 
>>opar <- par(mfrow = c(4,4), pty= "s", oma = c(0, 0, 0, 0))
>>postscript("bivreg01.eps")
>>plot(CMEDV ~ CRIM, HousePrice)
>>plot(CMEDV ~ ZN, HousePrice)
>>plot(CMEDV ~ INDUS, HousePrice)
>>plot(CMEDV ~ CHAS, HousePrice)
>>plot(CMEDV ~ NOX, HousePrice)
>>plot(CMEDV ~ RM, HousePrice)
>>plot(CMEDV ~ AGE, HousePrice)
>>plot(CMEDV ~ DIS, HousePrice)
>>plot(CMEDV ~ RAD, HousePrice)
>>plot(CMEDV ~ TAX, HousePrice)
>>plot(CMEDV ~ PTRATIO, HousePrice)
>>plot(CMEDV ~ B, HousePrice)
>>plot(CMEDV ~ LSTAT, HousePrice)
>>dev.off()
> 
> 
> thanks
> christoph

Place the postscript() before the call to par():

postscript("bivreg01.eps")
opar <- par(mfrow = c(4,4), pty= "s", oma = c(0, 0, 0, 0))
...
par(opar)
dev.off()


Sundar