R/panel.points.R

In helophilus/ColsTools: A variety of convenience tools and short-cuts

#' Modification of pairs plots to show histograms and correlation coefficients
#' This is not my code, but I can't find it in a package
#'
#' \code{pairs(DF, upper.panel = panel.points,
#'             lower.panel = panel.cor, diag.panel = panel.hist)}
#'

panel.points<-function(x,y)
{
  points(x,y,cex=0.25,pch=19)
  tmp<-lm(y~x,na.action=na.omit)
  abline(tmp,col='red')
}