I would like to know the code in R down below.

8.22 Use data file cps5 for this exercise. a. Estimate the following wage equation by OLS and use heteroskedasticity robust standard errors: In(WAGE) = 1 + B2EDUC + B3EXPER + BAEXPER2 + Ps(EXPER X EDUC) (XR8.22) + BoFEMALE + ,BLACK + 8, SOUTH + 8, MIDWEST + 8, WEST + e Discuss the results. b. Add MARRIED to the equation and reestimate. Holding education and experience constant, do white male married workers in the northeast get higher wages? Using a 5% significance level, test a null hypothesis that wages of married workers are less than or equal to those of unmarried workers against the alternative that wages of married workers are higher. c. Examine the residuals from part (a) for the two values of MARRIED. Is there evidence of het- eroskedasticity? d. Estimate the model in part (a) twice-once using observations on only married workers and once using observations on only unmarried workers. Use the Goldfeld-Quandt test and a 5% significance level to test whether the error variances for married and unmarried workers are different. e. Hypothesize that o. = 62 exp(2 MARRIED). Find generalized least squares of the model in part (a). Compare the estimates and standard errors with those obtained in part (a). f. Find two 95% interval estimates for the marginal effect dE (In(WAGE) ) /SEDUC for a white male worker living in the northeast with 16 years of education and 10 years of experience. Use the results from part (a) for one interval and the results from part (e) for the other interval. Comment on any differences.Table - 1 (1) (2) (3) (4) (5) ols(a) ols(b) unmarried married FGLS C 0.7545 0.7939' 0.8432 0.8917 0.7544 (0.056231) (0.056416) (0.081026) (0.089724) (0.057726) EDUC 0.1373* 0.1335" 0.1265* 0.1358 0.1372 (0.003677) (0.003713) (0.005299) (0.005304) (0.003662) EXPER 0.0528 0.0490 0.0433* 0.0491 0.0528** (0.002581) (0.002639) (0.003891) (0.003846) (0.002530) EXPER' -0.0005 -0.0005 -0.0005 -0.0005 *## -0.0005 (0.000028) (0.000029) (0.000042) (0.000040) (0.000027) EXPER XEDUC -0.0014"* -0.0013" -0.0009 -0.0014** -0.0014 (0.000140) (0.000140) (0.000220) (0.000179) (0.000132) FEMALE -0.1700* -0.1649* -0.1050 -0.2069*"* -0.1689* (0.009490) (0.009510) (0.014942) (0.012378) (0.009527) BLACK -0.0994 -0.0883 -0.0633 -0.1245 -0.0987 (0.016019) (0.016176) (0.023009) (0.024793) (0.016848) SOUTH -0.0411" -0.0418 -0.0394 -0.0460 -0.0411 (0.013907) (0.013873) (0.021255) (0.017474) (0.013545) MIDWEST -0.0678 -0.0693 -0.0523 -0.0817 -0.0674 (0.013755) (0.013723) (0.022370) (0.017992) (0.014070) WEST 0.0043 0.0038 0.0183 -0.0079 0.0045 (0.014542) (0.014508) (0.022695) (0.018460) (0.014376) MARRIED 0.0723 (0.010377) N 9799 9799 3820 5979 9799 SSE 2121.295 2110.733 785.2307 1316.19 2119.963 K-1 9 10 9 9 9 N-K 9789 9788 3810 5969 9789 .4655125 .4643759 4539794 .4695789 4653664 Standard errors in parentheses p