Passing weights to lm and others within a function

Question

I have data as follows:

library(estimatr)
DF <- structure(list(country = c("C", "C", "C", "C", "J", "