points <- seq(-4,4,.05)
par(mai=c(.6,.2,,2,.2))
postscript("psfragdemo.eps", width=5, height=3, pointsize=9,
           horizontal=FALSE, onefile=FALSE, paper="special")
plot(points, pnorm(points), type="l")
lines(points, dnorm(points), type="l", col="blue")
text(x=2, y=0.2, "dnorm")
text(x=2, y=0.9, "pnorm")
grid()