# NOT RUN {
# note: don't run this in your main directory--make a copy in case something
# goes wrong
mydir <- "C:/Simple"
## retrospective analyses
SS_doRetro(
masterdir = mydir,
oldsubdir = "",
newsubdir = "retrospectives",
years = 0:-5
)
retroModels <- SSgetoutput(
dirvec = file.path(mydir, "retrospectives", paste("retro", 0:-5, sep = ""))
)
retroSummary <- SSsummarize(retroModels)
endyrvec <- retroSummary[["endyrs"]] + 0:-5
SSplotComparisons(retroSummary,
endyrvec = endyrvec,
legendlabels = paste("Data", 0:-5, "years")
)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab