gspf.1: Marked for deletion

Usage Arguments Examples

View source: R/gsp.R

Usage

1
gspf.1(x, knots, degree = 3, smooth = pmax(pmin(degree[-1], degree[-length(degree)]) - 1, 0), intercept = 0, signif = 3)

Arguments

x
knots
degree
smooth
intercept
signif

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
##---- 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 (x, knots, degree = 3, smooth = pmax(pmin(degree[-1], 
    degree[-length(degree)]) - 1, 0), intercept = 0, signif = 3) 
{
    tmat = spline.T(knots, degree, smooth, intercept = intercept, 
        signif = signif)
    nC = attr(tmat, "nC")
    nE = ncol(tmat) - nC
    tmat = tmat[, c(seq(nC + 1, ncol(tmat)), 2:nC, 1)]
    X = Xf(x, knots, max(degree), signif = signif) %*% tmat
    qqr = qr(X)
    Q = qr.Q(qqr)
    R = qr.R(qqr)
    gsp(seq(-2, 10), 0, c(2, 2), 0)
    ret
  }

gmonette/spida documentation built on May 17, 2019, 7:25 a.m.