Class 11

library(tidyverse)

Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
── Attaching packages ─────────────────────────────────────────────── tidyverse 1.3.2 ──✔ ggplot2 3.4.0      ✔ purrr   1.0.0 
✔ tibble  3.1.8      ✔ dplyr   1.0.10
✔ tidyr   1.2.1      ✔ stringr 1.5.0 
✔ readr   2.1.3      ✔ forcats 0.5.2 ── Conflicts ────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()

sim <- function(i){
x <- rnorm(250, 3, 1)
#hist(x)
y <- 3*x +20 + rnorm(250, sd = sqrt(2))
#plot(x,y)
 res <- lm(y~x) %>% summary
return(res$coefficients[,1])
}
#sim(2)
result <- sapply(1:1000, sim)
rowMeans(result)

(Intercept)           x 
  19.996917    3.001502