library(wooldridge) data(wage1) mean(wage1$wage)
## [1] 5.896103
lm(wage1$wage ~ wage1$educ)
## ## Call: ## lm(formula = wage1$wage ~ wage1$educ) ## ## Coefficients: ## (Intercept) wage1$educ ## -0.9049 0.5414