normappll <- function(xt,km,kv,sigma2,bk,mubk){ sum(dnorm(xt,km+mubk,sqrt(kv+sigma2),log=TRUE)) + sum(dnorm(bk,mubk,sqrt(sigma2),log=TRUE)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.