Nothing
InferenceSd <-
function(listSd,niter,burnin){
sigmamean=rep(0,4)
for(i in burnin:niter){
temp=listSd[[i]]
sigmamean=sigmamean+temp
}
sigmamean=sigmamean/(niter-burnin)
return(sigmamean)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.