How do i set up the following model in R using lpSolve() library ?

The ACC Basketball Example Officials Team Raleigh A 0 B D Teams Demanded Teams Assigned Total Mileage = Officials Team A B Mileage: D 1 0 0 1 1 450 Raleigh 210 100 175 80 Game Sites Atlanta Durham 0 1 0 0 0 0 1 0 1 1 1 1 Game Sites Atlanta 90 70 105 65 Durham 180 130 140 105 Teams Clemson Available 0 1 0 0 1 1 1 Clemson 160 200 170 120 1 1 1 4 Teams Assigned 1 1 1 1 4 Problem: The ACC has four basketball games on a particular night. The conference wants to assign four teams of officials to the four games in a way that will minimize the total distance traveled by the officials. The supply is always one team of officials, and the demand is for only one team of officials at each game. The distances in miles for each team of officials to each game location are shown in the table below. Game sites Officials Atlanta Durham Clemson Raleigh 210 A 90 180 160 B 100 130 200 70 105 C 175 140 170 D 80 65 105 120 Math Model: minimize Z = 210XAR +90XAA + 180XAD+ 160XAC + 100XBR + 70XBA + 130XBD + 200XBC + 175XCR + 105XCA+ 140XCD + 170xcc + 80XDR + 65XDA+105XDD + 120XDc subject to XAR + XAA + XAD + XAC = 1 XBR + XBA + XBD + XBC = 1 XCR + XCA+ XCD + Xcc = 1 XDR + XDA + XDD + XDc = 1 XAR + XBR + XCR + XDR = 1 XAA + XBAXCA + XDA = 1 XAD + XBD + XCD + XDD = 1 XAC + XBC + Xcc + Xoc = 1 X >=0 Solver Parameters Set Objective: To: O Max By Changing Variable Cells: SCS5:SFS8 Subject to the Constraints: SC$10:SFS10 SCS9:SFS9 SHS5:SHS8 - SGS5:$GS8 Make Unconstrained Variables Non-Negative Simplex LP Select a Solving Method: Options Solving Method Select the GRG Nonlinear engine for Solver Problems that are smooth nonlinear. Select the LP Simplex engine for linear Solver Problems, and select the Evolutionary engine for Solver problems that are non-smooth. O Min SC$11 O Value Of: 0 Add Change Delete Reset All Load/Save