Get estimates from a model object.
This convenience function allows you to see that coefficients are properly
extracted, note how their names will be parsed, and inspect their values.
# NOT RUN {# Example 1m_tt <- t.test(iris$Sepal.Length[1:20], iris$Sepal.Length[21:40])
get_estimates(m_tt)
# Example 2m_lm <- lm(Sepal.Length ~., iris)
get_estimates(m_lm)
# }