R/plotLm.R

In tsieger/tsiMisc: Miscelaneous utility functions, mostly related to exploratory statistical analysis

plotLm<-structure(
function # Plot diagnostics of a linear model fit.
##description<<
## plotLm creates a 2x2 plot holding the 4 diagnoostic plots of a linear model.
## It is simply a shortcut for diving the current plot into 2x2 subplots and
## plotting the 4 plots.
##
(m ##<< an object of class 'lm'
) {
  opar<-par(mfrow=c(2,2))
  plot(m)
  par(opar)
},ex=function() {
  set.seed(1)
  x<-rnorm(10)
  d<-data.frame(x=x,y=2*x+rnorm(10))
  m<-lm(y~x,d)

  plotLm(m)
})