smspline: Generate a smoothing spline

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

smspline(formula, data)

Arguments

formula
data

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (formula, data) 
{
    if (is.vector(formula)) {
        x <- formula
    }
    else {
        if (missing(data)) {
            mf <- model.frame(formula)
        }
        else {
            mf <- model.frame(formula, data)
        }
        if (ncol(mf) != 1) 
            stop("formula can have only one variable")
        x <- mf[, 1]
    }
    x.u <- sort(unique(x))
    Zx <- smspline.v(x.u)$Zs
    Zx[match(x, x.u), ]
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.