xx <- rep(1:10,7)
yy <- rep(1:7, rep(10,7))
zz <- rnorm(70)
p.res.2x(xx,yy,zz, restr = 2, main = "i.i.d. N(0,1) random residuals")
p.res.2x(xx,yy,zz, restr = 2, main = "p.res.2x(*, xlim, ylim)",
xlim = c(2,8), ylim = c(1,4))
example(lm.influence, echo = FALSE)
mult.fig(2, marP=c(0,-1,-2,0), main="p.res.2x(*,*, residuals(lm.SR))")
with(LifeCycleSavings,
{ p.res.2x(pop15, ddpi, residuals(lm.SR), scol=c("red", "blue"))
p.res.2x(pop75, dpi, residuals(lm.SR), scol=2:1)
})
Run the code above in your browser using DataLab