library(statsr)
library(wooldridge)
plot_ss(x=wage1$educ,y=wage1$wage,data = wage1)

## Click two points to make a line.
                                
## Call:
## lm(formula = y ~ x, data = pts)
## 
## Coefficients:
## (Intercept)            x  
##     -0.9049       0.5414  
## 
## Sum of Squares:  5980.682

plot_ss(x=wage1$educ,y=wage1$wage,data = wage1,showSquares = TRUE)

## Click two points to make a line.
                                
## Call:
## lm(formula = y ~ x, data = pts)
## 
## Coefficients:
## (Intercept)            x  
##     -0.9049       0.5414  
## 
## Sum of Squares:  5980.682