if (FALSE) {
pop_fit <- nlmixr2(node_model,data=data,est="bobyqa")
rhs_plot <- rhs_plot_nlmixr(rhs="NNc + WT * NNct",
x_var = "NNc",
inputs = data.frame(NNc = 1:100,
NNct = seq(0,10,length.out=100),
WT = rep(50,100)),
est_parms=pop_fit$fixef)
}
Run the code above in your browser using DataLab