Economics homework help

Please do it on Rstudio