load.model <- function () {
    list(name="glmer.LOGLIN.E.Tf",
         glmer.formula=formula("dead~1+Tf+logD+(1+logD|species.id)+(1|plot.species.id)+sumBn+sumTnBn"))
}