# NOT RUN {
d <- system.file("extdata", "setas-model-new-trunk", package = "atlantistools")
prm_biol <- file.path(d, "VMPA_setas_biol_fishing_Trunk.prm")
fgs <- file.path(d, "SETasGroupsDem_NoCep.csv")
group <- c("FPS", "FVS")
parameter <- c("mum", "C")
prm_to_df_ages(prm_biol, fgs, group, parameter)
prm_to_df(prm_biol, fgs, group, parameter)
# }
Run the code above in your browser using DataLab