## This file is generated by build/refresh.R
##' @importFrom nlme augPred
##' @export
augPred.nlmixr_nlme <- function(object, ...) {
nlmixr::nlmeModList(object$env)
on.exit({
nlmixr::nlmeModList(new.env(parent = emptyenv()))
})
tmp <- object
class(tmp) <- class(tmp)[-1]
augPred(tmp, ...)
}
##' @importFrom stats predict
##' @export
predict.nlmixr_nlme <- function(object, ...) {
nlmixr::nlmeModList(object$env)
on.exit({
nlmixr::nlmeModList(new.env(parent = emptyenv()))
})
tmp <- object
class(tmp) <- class(tmp)[-1]
predict(tmp, ...)
}
##' @importFrom nlme ACF
##' @export
ACF.nlmixr_nlme <- function(object, ...) {
nlmixr::nlmeModList(object$env)
on.exit({
nlmixr::nlmeModList(new.env(parent = emptyenv()))
})
tmp <- object
class(tmp) <- class(tmp)[-1]
ACF(tmp, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.