R/ModelBolus.R

In PFIM: Population Fisher Information Matrix

#' Class "ModelBolus"
#' @description ...
#' @name ModelBolus-class
#' @aliases ModelBolus
#' @docType class
#' @include Model.R
#' @export

ModelBolus = setClass("ModelBolus",
                      contains = "Model")
setMethod( f="initialize",
           signature="ModelBolus",
           definition= function (.Object, name, description, equations, outcomes, parameters,
                                 modelError, initialConditions, odeSolverParameters )
           {
             if(!missing(name))
             {
               .Object@name = name
             }
             if(!missing( description ) )
             {
               .Object@description = description
             }
             if(!missing( equations ) )
             {
               .Object@equations = equations
             }
             if(!missing( outcomes ) )
             {
               .Object@outcomes = outcomes
             }
             if(!missing( parameters ) )
             {
               .Object@parameters = parameters
             }
             if(!missing( initialConditions ) )
             {
               .Object@initialConditions = initialConditions
             }
             if(!missing( modelError ) )
             {
               .Object@modelError = modelError
             }
             if(!missing( odeSolverParameters ) )
             {
               .Object@odeSolverParameters = odeSolverParameters
             }
             validObject(.Object)
             return (.Object )
           }
)

##########################################################################################################
# END Class "ModelBolus"
##########################################################################################################