Nothing
#' logLik.NestsResult Return Log Likelihood of a fit
#' @title Return Log Likelihood of a fit generated by searchR
#' @author Marc Girondot
#' @return The Log Likelihood value of the fitted model and data
#' @param object A result file generated by searchR
#' @param ... Not used
#' @description Return Log Likelihood of a fit generated by searchR
#' @examples
#' \dontrun{
#' library(embryogrowth)
#' data(resultNest_4p_SSM)
#' logLik(resultNest_4p_SSM)
#' AIC(resultNest_4p_SSM)
#' }
#' @method logLik NestsResult
#' @export
logLik.NestsResult <- function(object, ...) {
l <- -object$value
attributes(l) <- list(nall=object$data$IndiceT["NbTS"] ,
nobs=object$data$IndiceT["NbTS"] ,
df=length(object$par) , class="logLik")
return(l)
}
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.