Create a $\_$function called payout with three arguments$\_$: player$\_$score $,`$dealer$\_$score and bet $.$ Assign a default $\_$value $\_$ of $\text{'}1\text{'}$ to the argument $`$bet $\text{'}.$ The goal of the $\_$function$\_$ payout is to return the amount that the player should receive $($positive number $)$ or pay$-$in $($negative number $)$ based on the values passed to the player$\_$score', $`$dealer$\_$score and $*$bet$"$ arguments The final amount should be returned as a single numeric. value. For example, if the player wins without blackjack the function should return $1\backslash *$bet; implying that the player wins $1\backslash *$bet in this round. $`\{$r Question$\_6,$ echo$=$TRUE$\}$ # Complete the following code $\{$r Question$\_6\_$test, echo$=$TRUE, eval$=$FALSE$\}$ # TEST CODE # DO NOT EDIT test$\_$vals $<-$ c$(0,16,19,20,21,21\mathrm{.}5)$ test$\_$payout $<-$ matrix$($c$(-1,1,1,1,1,1\mathrm{.}5,-1,0,1,1,1,1\mathrm{.}5,-1,-1,0,1,1,1\mathrm{.}5,-1,-1,-1,0,1,1\mathrm{.}5,-1,-1,-1,-1,0,1\mathrm{.}5,-1,-1,-1,-1,-1,0),$