# NOT RUN {
info <- stockInfo(StockCode = "cod.27.347d",
AssessmentYear = 2017,
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