# NOT RUN {
library(psycho)
fit <- lm(Sepal.Length ~ Sepal.Width, data = iris)
fit <- lm(Sepal.Length ~ Sepal.Width * Species, data = iris)
results <- analyze(fit)
summary(results)
print(results)
# }
Run the code above in your browser using DataLab