logLik.Tagloss {phenology}

Return Log Likelihood of a fit generated by Tagloss_fit

Description

Return Log Likelihood of a fit generated by Tagloss_fit

Usage

## S3 method for class 'Tagloss'
logLik(object, ...)

Arguments

object

A result file generated by Tagloss_fit

...

Not used

Details

logLik.Tagloss returns Log Likelihood of a fit for tag loss

Value

The Log Likelihood value for the fitted model with data

Author(s)

Marc Girondot

See Also

Other Model of Tag-loss: Tagloss_LengthObs(), Tagloss_L(), Tagloss_cumul(), Tagloss_daymax(), Tagloss_fit(), Tagloss_format(), Tagloss_mcmc_p(), Tagloss_mcmc(), Tagloss_model(), Tagloss_simulate(), o_4p_p1p2, plot.TaglossData(), plot.Tagloss()

Examples

## Not run: 
library(phenology)
# Example
data_f_21 <- Tagloss_format(outLR, model="21")
# Without the N20 the computing is much faster
data_f_21_fast <- subset(data_f_21, subset=(is.na(data_f_21$N20)))
par <- structure(c(48.8292784204825, 1039.02842229274, -89.3162940697861, 
5.21817463244988, 8.00575451188548, 8.32971268127933, 161.265553603601, 
602.935748681661, 2643.57415102633, 16.752815732218, 10.181616195839, 
7.14279063312016), .Names = c("D1_2", "D2D1_2", "D3D2_2", "A_2", 
"B_2", "C_2", "D1_1", "D2D1_1", "D3D2_1", "A_1", "B_1", "C_1"))
o <- Tagloss_fit(data=data_f_21_fast, fitted.parameters=par)
logLik(o)
AIC(o)

## End(Not run)