Nothing
###
### R routines for the R package dlnm (c)
#
Predict.matrix.cb.smooth <- function(object, data) {
#
################################################################################
#
# TERMS AND DIMENSIONS
term <- object$term
dim <- length(term)
#
# BUILD MARGINAL BASES
Xm <- list()
for (i in seq(dim)) {
margin <- object$margin[[i]]
if(!"onebasis"%in%class(margin)) {
Xm[[i]] <- if(object$mc[i]) PredictMat(margin,data,n=length(data[[1]])) else
Predict.matrix(margin,data)
} else {
Xm[[i]] <- do.call("onebasis",c(list(x=data[[term[i]]]),margin))
}
}
#
# NB: NO REPARAMETERIZATION THROUGH XP
# TENSOR (USING mgcv FUNCTION)
X <- tensor.prod.model.matrix(Xm)
#
return(X)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.