lm_fit_2 <- lm(Sepal.Length ~ Sepal.Width + Petal.Length +
Sepal.Width*Petal.Length, data = iris)
interaction_plot(lm_fit_2)
lm_fit_3 <- lm(Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width +
Sepal.Width*Petal.Length:Petal.Width, data = iris)
interaction_plot(lm_fit_3)
Run the code above in your browser using DataLab