# NOT RUN {
library(dplyr)
datasaurus %>%
group_by(set) %>%
summarize(mean(x), mean(y), sd(x), sd(y), cor(x, y))
library(ggplot2)
ggplot(datasaurus, aes(x,y)) +
geom_point() +
geom_smooth(method="lm") +
facet_wrap(~set)
# }
Run the code above in your browser using DataLab