WT from function or from parameter

wt.R

library(mrgsolve)

code <- '

$GLOBAL
double wt_fr_age(const double age) {
  return(age*2/3);
}

$PARAM WEIGHT = 5, AGE=2, WTFLAG = 0

$MAIN
double WT = WTFLAG==1 ? wt_fr_age(AGE) : WEIGHT;

$CAPTURE WT
'


mod <- mcode("wt",code,warn=FALSE)

mod %>% mrgsim
mod %>% param(WTFLAG=1) %>% mrgsim