Re: Cubic Smoothing Splines

[impromptu@nifty.com]

Hi! Mike and S-Plus users


>I'm fitting cubic smoothing splines with smooth.spline().  Does anybody know 
>how
>to get the cubic polynomial coefficients for each of the knots?  I've used
>looked at the $fit$coef component for the output of predict() but can't make
>sense of it.

   I hope that the object below will help:

function()
{
        x1 <- seq(from = 1, to = 20, length = 20)
        y1 <- sin(x1 * 0.1)
        fit.sp <- smooth.spline(x1, y1, spar = 1e-010,
                all.knot = T)
        print(names(fit.sp$fit))
        print(fit.sp$fit$knot)
        print(fit.sp$fit$coef)
}

   *****    Kunio Takezawa, Ph.D. (takezawa@affrc.go.jp)    *****
*****     <http://cse.naro.affrc.go.jp/takezawa/patent-c.html>    *****