R/SetSpecificInit.R

In sistm/SEIRcovid19: Interface Monolix for multilevel modeling of epidemic dynamics

#' SetSomeParameter generic
#'
#' @param obj Object to set
#' @param isspecific define is the init state is specific or not
#' @export
SetSpecificInit <- function(obj, isspecific)
{
  UseMethod("SetSpecificInit",obj)
}

#' @export
SetSpecificInit.default <- function(obj, isspecific)
{
  error("No method implemented for this class")
  return(obj)
}

#' @describeIn SetSpecificInit Set \code{IsSpecificInit} attribute for an object of class \code{OdeSystem}
#' @export
SetSpecificInit.OdeSystem <- function(ode, isspecific)
{
  if (length(isspecific)==length(ode$IsSpecificInit)){
    message("Set all Specific Init info")
    ode$IsSpecificInit<-isspecific
  }else{
    message("Set some Specific Init info")
    for (p in 1:length(isspecific)){
      ode$IsSpecificInit[names(ode$InitState)==names(isspecific[p])]<-isspecific[[p]]
    }
  }
  return(ode)
}