R help - Jun 2003 - Change default parameters of panel.smooth

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}}

> -----Original Message-----
> From: Dowkiw, Arnaud [mailto:Arnaud.Dowkiw at dpi.qld.gov.au]
> Sent: Thursday, 26 June 2003 3:52 PM
> To: R help mailing list (E-mail)
> Subject: [R] Change default parameters of panel.smooth
> 
> 
> 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>
I think that is all you need. Colour can be changed by setting col.smooth, and
the line thickness is actually controlled by lines(), but if you pass
panel.smooth lwd=3 (say), it is passed along to lines() with the rest of the
arguments. Try:
> x <- rnorm(10)
> y <- rnorm(10)
> plot(x,y)
> panel.smooth(x,y,col.smooth="blue", lwd=3)
> 
HTH,

Simon.

Simon Blomberg, PhD
Depression & Anxiety Consumer Research Unit
Centre for Mental Health Research
Australian National University
http://www.anu.edu.au/cmhr/
Simon.Blomberg at anu.edu.au  +61 (2) 6125 3379

Thanks Simon,

in fact, problems occur when I use panel.smooth inside pairs, not when I use
panel.smooth alone :
> pairs(Fingaroy.F3.cross3.Streetonout.df[,c(5:9)],main="Kingaroy -- F3
--
Cross3",lower.panel=panel.smooth,upper.panel=panel.cor,diag.panel=panel.hist)
when I do this, I don't know how to change the parameters of panel.smooth, I
tried :
> pairs(Fingaroy.F3.cross4.Streetonout.df[,c(5:9)],main="Kingaroy -- F3
--
Cross4",lower.panel=panel.smoot(col.smooth="blue"),upper.panel=panel.cor,diag.panel=panel.hist)
and got :

Error in points(x, y, pch = pch, col = col, bg = bg, cex = cex) : 
        Argument "x" is missing, with no default
 ...

What should I do ?

Arnaud



-----Original Message-----
From: Simon Blomberg [mailto:Simon.Blomberg at anu.edu.au]
Sent: Thursday, 26 June 2003 4:26 PM
To: Dowkiw, Arnaud; R help mailing list (E-mail)
Subject: RE: [R] Change default parameters of panel.smooth



> -----Original Message-----
> From: Dowkiw, Arnaud [mailto:Arnaud.Dowkiw at dpi.qld.gov.au]
> Sent: Thursday, 26 June 2003 3:52 PM
> To: R help mailing list (E-mail)
> Subject: [R] Change default parameters of panel.smooth
> 
> 
> 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>
I think that is all you need. Colour can be changed by setting col.smooth, and
the line thickness is actually controlled by lines(), but if you pass
panel.smooth lwd=3 (say), it is passed along to lines() with the rest of the
arguments. Try:
> x <- rnorm(10)
> y <- rnorm(10)
> plot(x,y)
> panel.smooth(x,y,col.smooth="blue", lwd=3)
> 
HTH,

Simon.

Simon Blomberg, PhD
Depression & Anxiety Consumer Research Unit
Centre for Mental Health Research
Australian National University
http://www.anu.edu.au/cmhr/
Simon.Blomberg at anu.edu.au  +61 (2) 6125 3379
 

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