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