I need the formulation in Rstudio to obtain the optimal values of the variables and objective function.

The objective function is:

maxz$=$ Total interest $-$ Bad debt

$=\mathrm{.}026x_1+\mathrm{.}0509x_2+\mathrm{.}0864x_3+\mathrm{.}06875x_4+\mathrm{.}078x_5$

There are five constraints:

Total funds less than $$12($million$)$:

$x_1+x_2+x_3+x_4+x_{5}12.$

Farm and commercial loans equal at least $40\%$ of all loans:

$x_4+x_5\mathrm{.}4(x_1+x_2+x_3+x_4+x_5).$

Home loans equal at least $50\%$ of person, car, and home loans:

$x_3\mathrm{.}5(x_1+x_2+x_3).$

Bad debts can not exceed $4\%$ of all loans:

$\mathrm{.}1x_1+\mathrm{.}07x_2+\mathrm{.}03x_3+\mathrm{.}05x_4+\mathrm{.}02x_5\mathrm{.}04(x_1+x_2+x_3+x_4+x_5).$

Nonnegativity:

$x_1,x_2,x_3,x_4,x_{5}0.$