if (FALSE) {
f_ode_pop <- function(){
ini({
lV <- 1
prop.err <- 0.1
})
model({
V <- lV
d/dt(centr) = NN(1, state=centr,min_init=0,max_init=300)
cp = centr / V
cp ~ prop(prop.err)
})
}
f_ode_pop() %>% NNbsv(.2, warn=TRUE)
}
Run the code above in your browser using DataLab