mysummary<-function(res,rows=1:3){ print(summary(res)[1]$statistics[rows,1:2]); print(gelman.diag(res)$psrf[rows,]) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.