TABLE OF CONTENTS

CWrappers/cmakePenalty.2deriv [ Functions ]

NAME

    cmakePenalty.2deriv --- wrapper for cMakePenalty2diff

FUNCTION

see makePenalty.2deriv

SYNOPSIS

3260 cmakePenalty.2deriv <- function(ord, knots){

SOURCE

3263     K <- length(knots) - 2 * ord;
3264     P <- matrix(0, K + ord, K + ord)
3265     out <- .C("cMakePenalty2diff",
3266         P = as.double(P),
3267         knots = as.double(knots),
3268         ord = as.integer(ord),
3269         K = as.integer(K)
3270     )
3271     P <- matrix(out$P, K + ord, K + ord)
3272     return(P)
3273 }