nlmixrCbind.R

#' nlmixrCbind
#'
#' `cbind` for `nlmixr` objects that preserve the fit information
#'
#' @param fit nlmixr fit
#' @param extra data to cbind to nlmixr fit
#' @return fit expanded with extra values, without disturbing the fit information
#' @author Matthew L. Fidler
#' @export
nlmixrCbind <- function(fit, extra) {
  if (!inherits(fit, "nlmixr2FitCore")) stop("'fit' must be a nlmixr2 fit", call.=FALSE)
  .cls <- class(fit)
  .dat <- fit
  class(.dat) <- "data.frame"
  .dat <- cbind(.dat, extra)
  class(.dat) <- .cls
  .dat
}