fm1 <- lm(speed ~ dist, cars)
par(mfrow = c(2, 2))
plot(fm1)

par(mfrow = c(1, 1))