This function simply calculates the product of the likelihood densities calculated using dnorm, i.e. assuming normal distribution, with of the mean predicted by the degradation model, and the standard deviation predicted by the error model.

The total number of estimated parameters returned with the value of the likelihood is calculated as the sum of fitted degradation model parameters and the fitted error model parameters.

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

Arguments

object

An object of class mkinfit.

For compatibility with the generic method

Value

An object of class logLik with the number of estimated parameters (degradation model parameters plus variance model parameters) as attribute.

See also

Compare the AIC of columns of mmkin objects using AIC.mmkin.

Examples

sfo_sfo <- mkinmod( parent = mkinsub("SFO", to = "m1"), m1 = mkinsub("SFO") )
#> Successfully compiled differential equation model from auto-generated C code.
d_t <- FOCUS_2006_D f_nw <- mkinfit(sfo_sfo, d_t, quiet = TRUE) # no weighting (weights are unity)
#> Warning: Observations with value of zero were removed from the data
f_obs <- mkinfit(sfo_sfo, d_t, error_model = "obs", quiet = TRUE)
#> Warning: Observations with value of zero were removed from the data
f_tc <- mkinfit(sfo_sfo, d_t, error_model = "tc", quiet = TRUE)
#> Warning: Observations with value of zero were removed from the data
AIC(f_nw, f_obs, f_tc)
#> df AIC #> f_nw 5 204.4486 #> f_obs 6 205.8727 #> f_tc 6 148.1802