In R:

4. Load in the expendshares data from the wooldridge library and fit the following model: $5\hat{age} = \alpha + \beta1 sfood + \beta_2 sfuel +\beta_3 sclothes +\beta_4 salcoho1+ \beta_5 stransport +\beta_6 sothers age=a+Basfood + Bysfuel +Byscothes + Besalcohol + By stransport + As sother ***{r} library(wooldridge) data("expendshares) 1n_expendshares t) (Intercept) 37.6420 1.4632 25.725 t) (Intercept) 37.6420 1.4632 25.725