info <- stockInfo(StockCode = "cod.27.347d",
AssessmentYear = 2017,
StockCategory = 1,
ModelType = "A",
ModelName = "SCA",
ContactPerson = "itsme@fisheries.com")
fishdata <- stockFishdata(Year = 1990:2017, Catches = 100)
xmlfile <- createSAGxml(info, fishdata)
out <- readSAGxml(xmlfile)
Run the code above in your browser using DataLab