TABLE OF CONTENTS

CWrappers/cevalCinte [ Functions ]

NAME

    cevalCinte --- wrapper for the C implementation of cevalCinte

FUNCTION

see evalCinte

SYNOPSIS

3234 cevalCinte <- function(knots, ord, obs, Binte)

SOURCE

3237 {
3238     K <- length(knots) - 2 * ord;
3239     cinte <- matrix(0, length(obs), length(Binte))
3240     out <- .C("cevalCinte",
3241             cinte = as.double(cinte),
3242             x = as.double(obs),
3243             nx = as.integer(length(obs)),
3244             knots = as.double(knots),
3245             ord = as.integer(ord),
3246             K = as.integer(K),
3247             binte = as.double(Binte)
3248         )
3249     cinte <- matrix(out$cinte, length(obs), K + ord)
3250     return(cinte)
3251 }