Nothing
InferenceMu <-
function(listMu,niter,burnin){
mumean=rep(0,4)
for(i in burnin:niter){
temp=listMu[[i]]
mumean=mumean+temp
}
mumean=mumean/(niter-burnin)
return(mumean)
}
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.