```
# NOT RUN {
canonical <- binomial(link = talpha(1)) # logit-link
talpha_fam <- function(alpha)binomial(link = talpha(alpha)) # talpha family
## A call to glm might look like this: glm(formula, family = talpha_fam(1.5))
# }
```

Run the code above in your browser using DataLab