Extract Log-Likelihood

# S3 method for slouch
logLik(object, ...)

Arguments

object

An object of class 'slouch'

...

Additional arguments.

Value

An object of class 'logLik'

Examples

data(artiodactyla) data(neocortex) neocortex <- neocortex[match(artiodactyla$tip.label, neocortex$species), ] m0 <- slouch.fit(phy = artiodactyla, species = neocortex$species, response = neocortex$body_mass_g_log_mean, mv.response = neocortex$body_mass_g_log_varmean, fixed.fact = neocortex$diet, hillclimb = TRUE) logLik(m0)
#> 'log Lik.' -59.63841 (df=5)