INSTRUCTIONS - Submit the R file you use to make your calculations and graphs. Use only RStudio software to obtain the answers to the questions. R Markdown files are also accepted. Interprovincial trade model Either the model of the Canadian federation represented by the following equations, where AB represents Alberta,ON represents Ontario and QC represents Quebec. In this model, in addition to purchasing goods and services in all provinces (G_AB, G_ON, G_QC), the federal government also operates a program of equalization which pays additional amounts of money uniquely to the provinces poorer than the Canadian average, ie provincial GDP is lower than the average Canadian GDP. \[ \begin{array}{l} \text { reg_eqs YD_AB+ alpha2_AB* V_AB[-1]. C_ON - alpha1_ON * YD_ON + alpha2_ON * V_ON[-1]. C_QC - alpha1_QC * YD_QC + alpha2_OC * V_OC[-1]. HhABV_ABBh_AB, Hh_ON - V_ON-Bh_ON, HhQCV-QC BhQC. Bh_ABV_AB( lambda0_AB+ lambda1_AB * r ). Bh_ON VON ( lambda0_ON + lambda1_ON * r ). Bh_QCV_QC( lambda0_QC + lambda1_QC * r ). TXTX_AB+TX_ON+TX_QC. GGAB+GON+GQC. HhHhAB+HhON+Hh2QC, BsBs[1]+(G+EQZ_CA+r[1] * Bs[1])(TX+r[1]Bcb[1]). Hs Hs[1]+ BcbBcb[1]. BcbBsBh, AVGY Y/3, \# Canadian Average zeta_AB- if (Y_AB[1]AVGY[1]