R Assignment $(20$pts$)$

Due Sunday by $11$:$59$pm

Points $20$

Submitting a file upload

Available

until Jun $9$ at $11$:$59$pm

Please provide a word document and $R$ studio file with both $R$ code and results based on the below requirement scenario.

Scenario: You are a Data Scientist working for a consulting firm. One of your colleagues from the Auditing department has asked you to help them assess the financial statement of organization $x.$ You have been supplied with two vectors of data: monthly revenue and monthly expenses for the financial year in question.

Revenue in $12$ months $(14574\mathrm{.}49,7606\mathrm{.}46,8611\mathrm{.}41,9175\mathrm{.}41,8058\mathrm{.}65,8105\mathrm{.}44,11496\mathrm{.}28,9766\mathrm{.}09,10305\mathrm{.}32,14379\mathrm{.}96,10713\mathrm{.}97,15433\mathrm{.}50)$

Expenses in $12$ months $(12051\mathrm{.}82,5695\mathrm{.}07,12319\mathrm{.}20,12089\mathrm{.}72,8658\mathrm{.}57,840\mathrm{.}20,3285\mathrm{.}73,5821\mathrm{.}12,6976\mathrm{.}93,16618\mathrm{.}61,10054\mathrm{.}37,3803\mathrm{.}96)$

Your task is to calculate the following financial metrics:

profit for each month

profit after tax for each month $($the tax rate is $30\%)$

profit margin for each month $-$ equals to profit a after tax divided by revenue

good months $-$ where the profit after tax was greater than the mean for the year

bad months $-$ where the profit after tax was less than the mean for the year

the best month $-$ where the profit after tax was max for the year

the worst month $-$ where the profit after tax was min for the year

All results need to be presented as vectors. Results for dollar values need to be calculated with $$0\mathrm{.}01$ precision, but need to be presented in Units of $$1,000($i$.$e$.1k)$ with no decimal points. Results for the profit margin ratio need to be presented in units of $\%$ with no decimal points. Note: You colleague has warned you that it is okay for tax for any given month to be negative $($in accounting terms, negative tax translates into a deferred tax asset$).$

HINT: round$()$ mean$()$ max$()$ min$()$