R/SetModelFile.R

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

#' SetModelFile generic
#'
#' @param obj Object to set
#' @param path_file Number of observation
#' @export
SetModelFile <- function(obj, path_file)
{
  UseMethod("SetModelFile",obj)
}

#' @export
SetModelFile.default <- function(obj, path_file)
{
  print("No method implemented for this class")
  return(obj)
}

#' @describeIn SetModelFile Set Path Model for an object of class \code{OdeSystem}
#' @export
SetModelFile.OdeSystem <- function(ode, path_file)
{
  if (length(path_file)==1 & is.character(path_file)){
    ode$ModelFile<-path_file
    return(ode)
  }else{
    stop("Argument should be a string")
  }

}