R/cubic.spline.penalty.R

Defines functions cubic.spline.penalty

cubic.spline.penalty <-
function(knots, interval, derivative = 2L)
{
  D <- if (derivative == 1L) {
    cubic.spline.penalty1(knots, interval)
  } else {
    cubic.spline.penalty2(knots, interval)
  }
  
  D
}

Try the lmeVarComp package in your browser

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

lmeVarComp documentation built on May 2, 2019, 8:55 a.m.