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.