Displaying 1 result from an estimated 1 matches for "bagwag".
2008 Nov 14
1
ellipse in pairs plot
...y<-function (x, y, col = par("col"), bg = NA, pch = par("pch"),cex = 1){
points(x, y, pch = pch, col = col, bg = bg, cex = cex)
ok <- is.finite(x) & is.finite(y)
if (any(ok))
ellipse(mu=dab$center[?],sigma=dab$cov[?,?])
}
pairs(wf[,1:5],diag.panel=bagwag,col=wc,pch=wp,cex=.5,lower.panel=melly)