R/panel.smooth.r.R

In GCAI.bias: Guided Correction Approach for Inherited bias (GCAI.bias)

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, ...)
}