R/panel.smooth.r.R

Defines functions panel.smooth.r

Documented in panel.smooth.r

panel.smooth.r <-
function (x, y, col = par("col"), bg = NA, pch = par("pch"),
    cex = par("cex"), col.smooth = "red", span = 2/3, iter = 3, ...)
{
    points(x, y, pch = pch, col = col, bg = bg, cex = cex)
    ok <- is.finite(x) & is.finite(y)
    if (any(ok))
        lines(stats::lowess(x[ok], y[ok], f = span, iter = iter),
            col = col.smooth, ...)
}

Try the GCAI.bias package in your browser

Any scripts or data that you put into this service are public.

GCAI.bias documentation built on May 29, 2017, 11:02 a.m.