if (FALSE) {
# Create trace plots of the logitP parameters
#
# Trace plots of logitP
varnames <- names(results$sims.array[1,1,]) # extract the names of the variables
trace.plot <- plot_trace(title=title,
results=results,
parms_to_plot=varnames[grep("^logitP", varnames)])
if(save.output.to.files){
pdf(file=paste(prefix,"-trace-logitP.pdf",sep=""))
plyr::l_ply(trace.plot, function(x){plot(x)})
dev.off()
}
} # end of dontrun
Run the code above in your browser using DataLab