# NOT RUN {
# }
# NOT RUN {
mcmc.df <- SSgetMCMC(dir="mcmcRun", writecsv=T,
keystrings = c("NatM", "R0", "steep", "Q_extraSD"),
nuisancestrings = c("Objective_function", "SSB_", "InitAge", "RecrDev"))
mcmc.out("mcmcRun",run="",numparams=4,closeall=F)
#Or for more control
par(mar=c(5,3.5,0,0.5),oma=c(0,2.5,0.2,0))
mcmc.out("mcmcRun",run="",numparams=1,closeall=F,new=F,colNames=c("NatM_p_1_Fem_GP_1"))
mtext("M (natural mortality)",side=2,outer=T,line=1.5,cex=1.1)
# }
Run the code above in your browser using DataLab