Nothing
logLik.varComp=function(object, ...)
{
REML=object$control$REML
if(!isTRUE(REML)) .NotYetImplemented()
val=object$PREML
vc=coef(object, "varComp")
p=sum(vc>object$control$boundary.eps)
N = attr(val, "nall") <- nobs(object)
attr(val, "nobs") <- N - REML * length(coef(object, 'fixed'))
attr(val, "df") <- p #+ length(coef(object[["modelStruct"]])) + 1
class(val) <- "logLik"
val
}
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.