if (FALSE) {
model <- load_example_model("pheno")
model <- fix_parameters(model, c('PTVCL', 'PTVV', 'THETA_3'))
model$parameters$fix
model <- unfix_parameters_to(model, {'PTVCL': 0.5})
model$parameters$fix
model$parameters['PTVCL']
}
Run the code above in your browser using DataLab