# \donttest{
require(ggplot2)
data(Orange)
fit <- lm(circumference ~ age, data = Orange)
sims <- simulate_lm(fit, nsim = 100, value = "data.frame")
ggplot(data = sims) +
geom_line(aes(x = age, y = sim.y, group = ii),
color = "gray", alpha = 0.5) +
geom_point(aes(x = age, y = circumference))
# }
Run the code above in your browser using DataLab