Please answer the following question in RStudio.

Calculate the least squares regression equation that predicts prestige score from education, income, and percentage of women.Formally test (using the 5-step procedure) whether the set of these predictors are associated with prestige score at the = 0.05 level (Hint: You should be performing the global test).

Occupational TitleEducation Level (years)Income ($)Percent of Workforce that are WomenPrestige Score

GOV_ADMINISTRATORS13.111235111.1668.8

GENERAL_MANAGERS12.26258794.0269.1

ACCOUNTANTS12.77927115.763.4

PURCHASING_OFFICERS11.4288659.1156.8

CHEMISTS14.62840311.6873.5

PHYSICISTS15.64110305.1377.6

BIOLOGISTS15.09825825.6572.6

ARCHITECTS15.44141632.6978.1

CIVIL_ENGINEERS14.52113771.0373.1

MINING_ENGINEERS14.64110230.9468.8

SURVEYORS12.3959021.9162

DRAUGHTSMEN12.370597.8360

COMPUTER_PROGRAMERS13.83842515.3353.8

ECONOMISTS14.44804957.3162.2

PSYCHOLOGISTS14.36740548.2874.9

SOCIAL_WORKERS14.21633654.7755.1

LAWYERS15.77192635.1382.3

LIBRARIANS14.15611277.158.1

VOCATIONAL_COUNSELLORS15.22959334.8958.3

MINISTERS14.546864.1472.8

UNIVERSITY_TEACHERS15.971248019.5984.6

PRIMARY_SCHOOL_TEACHERS13.62564883.7859.6

SECONDARY_SCHOOL_TEACHERS15.08803446.866.1

PHYSICIANS15.962530810.5687.2

VETERINARIANS15.94145584.3266.7

OSTEOPATHS_CHIROPRACTORS14.71174986.9168.4

NURSES12.46461496.1264.7

NURSING_AIDES9.45348576.1434.9

PHYSIO_THERAPSTS13.62509282.6672.1

PHARMACISTS15.211043224.7169.3

MEDICAL_TECHNICIANS12.79518076.0467.5

COMMERCIAL_ARTISTS11.09619721.0357.2

RADIO_TV_ANNOUNCERS12.71756211.1557.6

ATHLETES11.4482068.1354.1

SECRETARIES11.59403697.5146

TYPISTS11.49314895.9741.9

BOOKKEEPERS11.32434868.2449.4

TELLERS_CASHIERS10.64244891.7642.3

COMPUTER_OPERATORS11.36433075.9247.7

SHIPPING_CLERKS9.17476111.3730.9

FILE_CLERKS12.09301683.1932.7

RECEPTIONSTS11.04290192.8638.7

MAIL_CARRIERS9.2255117.6236.1

POSTAL_CLERKS10.07373952.2737.2

TELEPHONE_OPERATORS10.51316196.1438.1

COLLECTORS11.2474147.0629.4

CLAIM_ADJUSTORS11.13505256.151.1

TRAVEL_CLERKS11.43625939.1735.7

OFFICE_CLERKS11407563.2335.6

SALES_SUPERVISORS9.84748217.0441.5

COMMERCIAL_TRAVELLERS11.1387803.1640.2

SALES_CLERKS10.05259467.8226.5

NEWSBOYS9.62918714.8

SERVICE_STATION_ATTENDANT9.9323703.6923.3

INSURANCE__AGENTS11.6813113.0947.3

REAL_ESTATE_SALESMEN11.09699224.4447.1

BUYERS11.03795623.8851.1

FIREFIGHTERS9.478895043.5

POLICEMEN10.9388911.6551.6

COOKS7.7431165229.7

BARTENDERS8.5393015.5120.2

FUNERAL_DIRECTORS10.5778696.0154.9

BABYSITTERS9.4661196.5325.9

LAUNDERERS7.33300069.3120.8

JANITORS7.11347233.5717.3

ELEVATOR_OPERATORS7.58358230.0820.1

FARMERS6.8436433.644.1

FARM_WORKERS8.6165627.7521.5

ROTARY_WELL_DRILLERS8.886860035.3

BAKERS7.54419933.338.9

SLAUGHTERERS_17.64513417.2625.2

SLAUGHTERERS_27.64513417.2634.8

CANNERS7.42189072.2423.2

TEXTILE_WEAVERS6.69444331.3633.3

TEXTILE_LABOURERS6.74348539.4828.8

TOOL_DIE_MAKERS10.0980431.542.5

MACHINISTS8.8166864.2844.2

SHEET_METAL_WORKERS8.465652.335.9

WELDERS7.9264775.1741.8

AUTO_WORKERS8.43581113.6235.9

AIRCRAFT_WORKERS8.7865735.7843.7

ELECTRONIC_WORKERS8.76394274.5450.8

RADIO_TV_REPAIRMEN10.2954492.9237.2

SEWING_MACH_OPERATORS6.38284790.6728.2

AUTO_REPAIRMEN8.157950.8138.1

AIRCRAFT_REPAIRMEN10.177160.7850.3

RAILWAY_SECTIONMEN6.674696027.3

ELECTRICAL_LINEMEN9.0583161.3440.9

ELECTRICIANS9.9371470.9950.2

CONSTRUCTION_FOREMEN8.2488800.6551.1

CARPENTERS6.9252990.5638.9

MASONS6.659590.5236.2

HOUSE_PAINTERS7.8145492.4629.9

PLUMBERS8.3369280.6142.9

CONSTRUCTION_LABOURERS7.5239101.0926.5

PILOTS12.27140320.5866.1

TRAIN_ENGINEERS8.498845048.9

BUS_DRIVERS7.5855629.4735.9

TAXI_DRIVERS7.9342243.5925.1

LONGSHOREMEN8.374753026.1

TYPESETTERS10646213.5842.2

BOOKBINDERS8.55361770.8735.2