View source: R/logLik.Tagloss.R
| logLik.Tagloss | R Documentation |
Return Log Likelihood of a fit generated by Tagloss_fit
## S3 method for class 'Tagloss'
logLik(object, ...)
object |
A result file generated by Tagloss_fit |
... |
Not used |
logLik.Tagloss returns Log Likelihood of a fit for tag loss
The Log Likelihood value for the fitted model with data
Marc Girondot
Other Model of Tag-loss:
Tagloss_L(),
Tagloss_LengthObs(),
Tagloss_cumul(),
Tagloss_daymax(),
Tagloss_fit(),
Tagloss_format(),
Tagloss_mcmc(),
Tagloss_mcmc_p(),
Tagloss_model(),
Tagloss_simulate(),
o_4p_p1p2,
plot.Tagloss(),
plot.TaglossData()
## 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.