[R] loess.smooth dumps core

[Stuart Luppescu]

Has the loess.smooth() function changed? It used to work, but now it causes R
to abort with a segmentation fault. I stole the function points.lines() from
V&R 1st ed. pp. 67--68, but now it only works if I remove the line with
loess.smooth. Here's the function I'm using:

points.lines <- function(x, y, ...)
  {
    cor1 <-round(cor(x, y, use="pairwise"), digits=2)
    ok <- !(is.na(x) | is.na(y))
    points(x, y, ...)
    lines(loess.smooth(x=x[ok], y=y[ok]), col=3)
    abline(coef=c(0, 1))
    text(min(x, na.rm=T), max(y, na.rm=T), cor1)
  }

Is this a bug?
______________________________________________________________________
Stuart Luppescu         -=-=-  University of Chicago
$(B:MJ8$HCRF`H~$NIc(B        -=-=-  s-luppescu at uchicago.edu
http://www.consortium-chicago.org/people/sl/sl.html
ICQ #21172047  AIM: psycho7070
All of the true things I am about to tell you are shameless lies.
                -- The Book of Bokonon / Kurt Vonnegut Jr.
>> Sent on 28-Mar-00 at 14:57:50 with xfmail
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._