Nothing
## Retunrs the log likelihood of a VLMC model
setMethod("logLik", "PSTf", function(object) {
n <- nrow(object@data)
message(" [>] model fitted to ", n, " sequence(s) - ", nobs(object), " symbols")
pstsum <- summary(object)
res <- object@logLik
class(res) <- "logLik"
attr(res, "df") <- pstsum@freepar
return(res)
}
)
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.