diff --git a/exploration/GR3D_Rdescription/GR3D_NEA_XML_parameters.R b/exploration/GR3D_Rdescription/GR3D_NEA_XML_parameters.R index f3300a56aab4f8a75b8c123853a3ab8f3834b10c..95fcc382bb91cb08458bad0440269598deb4f65e 100644 --- a/exploration/GR3D_Rdescription/GR3D_NEA_XML_parameters.R +++ b/exploration/GR3D_Rdescription/GR3D_NEA_XML_parameters.R @@ -1,10 +1,10 @@ library(XML) #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 -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, sigmaRecruitment, maxNumberOfSuperIndividualPerReproduction, withDiagnose, displayFluxesOnConsole)) %>%