Update interact.R

A (hopefully better) re-write and support for binomial family added.