Nothing
emma.delta.ML.LL.w.Z <- function (logdelta, lambda, etas.1, xi.1, n, etas.2.sq)
{
t <- length(xi.1)
delta <- exp(logdelta)
return(0.5 * (n * (log(n/(2 * pi)) - 1 - log(sum(etas.1 *
etas.1/(lambda + delta)) + etas.2.sq/delta)) - (sum(log(xi.1 +
delta)) + (n - t) * logdelta)))
}
emma.delta.ML.dLL.wo.Z <- function (logdelta, lambda, etas, xi)
{
n <- length(xi)
delta <- exp(logdelta)
etasq <- etas * etas
ldelta <- lambda + delta
return(0.5 * (n * sum(etasq/(ldelta * ldelta))/sum(etasq/ldelta) -
sum(1/(xi + delta))))
}
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.