if (FALSE) {
ind_fit <- nlmxir2(node_model_ind,data=data,est="saem")
rhs_plot <- ind_rhs_plot_mlx(rhs="NNc + NNct",
x_var = "NNc",
group = "id",
inputs = input_data,
fit_obj = ind_fit)
}
Run the code above in your browser using DataLab