R/makepredictcall.dns.R

In JMbayes: Joint Modeling of Longitudinal and Time-to-Event Data under a Bayesian Approach

makepredictcall.dns <- function (var, call) {
    if (as.character(call)[1L] != "dns") 
        return(call)
    at <- attributes(var)[c("knots", "Boundary.knots", "intercept", "eps")]
    xxx <- call[1L:2L]
    xxx[names(at)] <- at
    xxx
}