# NOT RUN {
plot(log(brainweight) ~ log(bodyweight), data = Brain,
pch = 19, col = "blue", main = "Example 2.3")
mod <- lm(log(brainweight) ~ log(bodyweight), data = Brain)
abline(mod, lty = "dashed", col = "blue")
# }
Run the code above in your browser using DataLab