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