Nothing
#' 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"
##########################################################################################################
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.