[R] Bug in lowess

[Frank E Harrell Jr]

x <- c(0,7,8,14,15,120,242)
y <- c(122,128,130,158,110,110,92)

lowess(x,y)

$x
[1]   0   7   8  14  15 120 242

$y
[1]   122.0000   128.0000   132.2857   158.0000   110.0000 -4930.0000 
110.0000




R version 2.2.1, 2005-12-20, i486-pc-linux-gnu

attached base packages:
[1] "methods"   "stats"     "graphics"  "grDevices" "utils"     "datasets"
[7] "base"

other attached packages:
   lattice     Hmisc     chron
"0.12-11"   "3.1-1"   "2.3-8"

-- 
Frank E Harrell Jr   Professor and Chair           School of Medicine
                      Department of Biostatistics   Vanderbilt University