Assign the model block in the rxode2 related object

Assign the model block in the rxode2 related object

Usage

model(x, envir = environment(x)) <- value

Arguments

x

rxode2 related object

envir

Environment where assignment occurs

value

Value of the object

Value

rxode2 related object

See also

Other Model UI and piping: as.ini(), as.model(), as.rxUi(), coef.rxUi(), indLin(), ini.rxUi(), ini<-(), linCmtMicro(), linToOde(), model.function(), modelExtract(), odeToLin(), rxAppendModel(), rxFixPop(), rxFixRes(), rxGetControl(), rxRemoveControl(), rxRename(), rxSetControl(), rxSetCovariateNamesForPiping(), rxSetPipingAuto(), rxUiDecompress(), rxode2<-(), update.rxUi(), zeroRe()

Author

Matthew L. Fidler

Examples

# \donttest{
mod <- function() {
  ini({
    tcl <- log(3)
    tv <- log(30)
  })
  model({
    cl <- exp(tcl)
    v <- exp(tv)
    d/dt(central) <- -cl / v * central
  })
}
ui <- rxode2(mod)
#>  
#>  
#> ℹ parameter labels from comments are typically ignored in non-interactive mode
#> ℹ Need to run with the source intact to parse comments
model(ui) <- quote(model({
  cl <- exp(tcl)
  v <- exp(tv)
  d/dt(central) <- -cl / v * central
  cp <- central / v
}))
ui
#>  ── rxode2-based free-form 1-cmt ODE model ────────────────────────────────────── 
#>  ── Initalization: ──  
#> Fixed Effects ($theta): 
#>      tcl       tv 
#> 1.098612 3.401197 
#> 
#> States ($state or $stateDf): 
#>   Compartment Number Compartment Name
#> 1                  1          central
#>  ── Model (Normalized Syntax): ── 
#> function() {
#>     ini({
#>         tcl <- 1.09861228866811
#>         tv <- 3.40119738166216
#>     })
#>     model({
#>         cl <- exp(tcl)
#>         v <- exp(tv)
#>         d/dt(central) <- -cl/v * central
#>         cp <- central/v
#>     })
#> }
# }