Nothing
Neg.LogLikelihood.VC.C1 <- function(h, eps, U, S) # f 4.2 articl
{
B <- h * (S - 1) + 1
return(sum(log(B)) + t(eps) %*% U %*% diag(1/B) %*% t(U) %*% eps)
}
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.