Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
els <- function(formula, data, ...){
first_stage <- lm(formula,data=data, ...)
lm(update(formula, fitted(first_stage)~.), data, ...)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment