Nothing
dpostg <- function(y,x,z,betas,gammas,gpri,Gpri,model,m) {
L <- veros(y,x,z,betas,gammas,model,m)
P <- dmvnorm(t(gammas), gpri, Gpri) # priori
value <- L*P
value
}
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.