R/knots.dierckx.R

knots.dierckx <- function(Fn, interior = TRUE, ...) {
  if(interior) {
    kn <- Fn$knots
    k <- Fn$k
    g <- Fn$g
    if(g > 0) kn[seq(g) + k + 1] else numeric(0)
  } else {
    Fn$knots[seq(Fn$n)]
  }
}

Try the DierckxSpline package in your browser

Any scripts or data that you put into this service are public.

DierckxSpline documentation built on May 2, 2019, 6:30 p.m.