Nothing
#_______________________________________________________________________________
#---- compartment_infusion_duration class ----
#_______________________________________________________________________________
#'
#' Compartment infusion rate class.
#'
#' @export
setClass(
"compartment_infusion_rate",
representation(
),
contains = "compartment_property",
validity=function(object) {
return(TRUE)
}
)
#'
#' Create an infusion rate.
#'
#' @param compartment compartment index
#' @param rhs right-hand side part of the equation
#' @return an infusion rate property
#' @export
InfusionRate <- function(compartment, rhs="") {
return(new("compartment_infusion_rate", compartment=as.integer(compartment), rhs=rhs))
}
#_______________________________________________________________________________
#---- getName ----
#_______________________________________________________________________________
#' @rdname getName
setMethod("getName", signature = c("compartment_infusion_rate"), definition = function(x) {
return(paste0("RATE (", "CMT=", x@compartment, ")"))
})
#_______________________________________________________________________________
#---- getPrefix ----
#_______________________________________________________________________________
#' @rdname getPrefix
setMethod("getPrefix", signature = c("compartment_infusion_rate"), definition = function(object, ...) {
dest <- processExtraArg(args=list(...), name="dest", default="RxODE")
if (dest=="mrgsolve") {
return("R")
} else {
return("rate")
}
})
#_______________________________________________________________________________
#---- getRecordName ----
#_______________________________________________________________________________
#' @rdname getRecordName
setMethod("getRecordName", signature = c("compartment_infusion_rate"), definition = function(object) {
return("RATE")
})
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.