if (FALSE) {
model <- load_example_model("pheno")
scale <- calculate_ucp_scale(model)
values <- list('POP_CL'=0.1, 'POP_VC'=0.1, 'COVAPGR'=0.1, 'IIV_CL'=0.1, 'IIV_VC'=0.1, 'SIGMA'=0.1)
calculate_parameters_from_ucp(model, scale, values)
}
Run the code above in your browser using DataLab