R/logLik.modTempEff.R

In modTempEff: Modelling temperature effects using time series data

logLik.modTempEff<-function (object, ...){
    if (length(list(...))) warning("extra arguments discarded")
    p <- sum(object$edf)
    val <- p - object$aic/2
    attr(val, "df") <- p
    class(val) <- "logLik"
    val
}