Nothing
logproby <-
function(y,XX,ZZ,aa,bb,s2,nu){
df=nu
n=length(y)
U=aa*ZZ+bb*XX+diag(n)
S=s2*U
log.prob=dmt(y,mean=rep(0,n),df=df,S=S,log=TRUE)
log.prob
}
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.