[R] Change default parameters of panel.smooth

[Dowkiw, Arnaud]

Hello,

can anyome tell me how to access the full script of the panel.smooth function so that I can change the thickness of the smoothing line or its colour ?
All I could access is :

> panel.smooth
function (x, y, col = par("col"), bg = NA, pch = par("pch"), 
    cex = 1, 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(lowess(x[ok], y[ok], f = span, iter = iter), col = col.smooth, 
            ...)
}
<environment: namespace:base>

Thanks a lot,

Arnaud

*************************
Arnaud DOWKIW
Department of Primary Industries
J. Bjelke-Petersen Research Station
KINGAROY, QLD 4610
Australia
T : + 61 7 41 600 700
T : + 61 7 41 600 728 (direct)
F : + 61 7 41 600 760
**************************
 

********************************DISCLAIMER******************...{{dropped}}