aboutsummaryrefslogblamecommitdiff
path: root/R/parms.mkinfit.R
blob: 0628cb92ae3f05659b57efc69bc27bfe95875bb5 (plain) (tree)
1
2
3
4
5
6
7
8






                                                                             
                        















                                                           
#' Extract model parameters from mkinfit models
#'
#' This function always returns degradation model parameters as well as error
#' model parameters, in order to avoid working with a fitted model without
#' considering the error structure that was assumed for the fit.
#' 
#' @param object A fitted model object
#' @param \dots Not used
#' @return A numeric vector of fitted model parameters
#' @export
parms <- function(object, ...)
{
  UseMethod("parms", object)
}

#' @param transformed Should the parameters be returned
#'   as used internally during the optimisation?
#' @rdname parms
#' @export
parms.mkinfit <- function(object, transformed = FALSE, ...)
{
  if (transformed) object$par
  else c(object$bparms.optim, object$errparms)
}

Contact - Imprint