summary(l1 <- linmod(Hwt ~ Bwt * Sex, data = cats))
summary(l2 <- lm(Hwt ~ Bwt * Sex, data = cats))
all.equal(l1$coefficients, l2$coefficients)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.