Extract Log-Likelihood
# S3 method for slouch logLik(object, ...)
object | An object of class 'slouch' |
---|---|
... | Additional arguments. |
An object of class 'logLik'
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)