Commit d6fc7b15 authored by Poulet Camille's avatar Poulet Camille
Browse files

Change XMl for growth calibration

parent 10262818
library(XML) library(XML)
#read the XML file to upload the set of parameters included in GR3D-US #read the XML file to upload the set of parameters included in GR3D-US
fishXML <- xmlToList(xmlParse("../../data/input/northeastamerica/fishRIOBasin_Sapidissima.xml")) fishXML <- xmlToList(xmlParse("../../data/input/northeastamerica/fishRIOBasin_Sapidissima_Old.xml"))
#Upload parameters linked to reproduction #Upload parameters linked to reproduction
reproducePar = data.frame(t(unlist(fishXML[[1]][["processes"]][["processesEachStep"]][["species.ReproduceAndSurviveAfterReproductionWithDiagnose"]]))) %>% reproducePar = data.frame(t(unlist(fishXML[[1]][["processes"]][["processesEachStep"]][["species.ReproduceWithDiagnose"]]))) %>%
select(-c(synchronisationMode, reproductionSeason, proportionOfFemaleAtBirth, select(-c(synchronisationMode, reproductionSeason, proportionOfFemaleAtBirth,
sigmaRecruitment, maxNumberOfSuperIndividualPerReproduction, withDiagnose, sigmaRecruitment, maxNumberOfSuperIndividualPerReproduction, withDiagnose,
displayFluxesOnConsole)) %>% displayFluxesOnConsole)) %>%
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment