Create an $\_\_\_$atomic vector$\_\_\_$ ca

lled $`$deck$`.$ The $\_\_\_$object$\_\_\_`$deck$`$ should store $48\_\_\_$elements$\_\_\_$ of type $\_\_\_$integer$\_\_\_.$ Each $\_\_\_$element$\_\_\_$ stored in the $\_\_\_$object$\_\_\_`$deck$`$ represents a card of the deck and is represented by its value. For example, the $\_\_\_$vector$\_\_\_`$c$(1$L$,2$L$,3$L$,4$L$)`$ represents the cards ace, two, three and four. The order of the cards are not important.

$```\{$r Question$\_1,$ echo$=$TRUE$\}$

# Complete the following code

$```$

$```\{$r Question$\_1\_$test, echo$=$TRUE, eval$=$FALSE$\}$

# TEST CODE

# DO NOT EDIT

if $($length$($deck$)!=48)$ stop$("$The object deck does not contain $48$ elements"$)$

if $($typeof$($deck$)!=$ "integer"$)$ stop$("$The object deck does not contain integer values"$)$

if $($sum$($deck$)!=300)$ stop$("$The values of the cards contained in the deck are incorrect"$)$

if $(!$all$($sapply$($deck$,$ is$.$element, set $=$ c$(1$:$10))))\{$

stop$("$The values of the cards contained in the deck are incorrect"$)\}$

all$($sapply$($deck$,$ is$.$element, set $=1$:$10))$ #are all values TRUE?; is$.$element$($x$,$ y$)$ is the same as x $\%$in$\%$ y

$```$

$***$

Given a deck of cards, we require a method to draw a card from the deck.

$\_\_\_$Question $2\_\_\_(2)$

Write a $\_\_\_$function$\_\_\_$ called $`$draw$\_$a$\_$card$`$ with one $\_\_\_$argument$\_\_\_`$deck$`.$ The $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`$ should $\_\_\_$return$\_\_\_$ the last $\_\_\_$element$\_\_\_$ of the value passed to the $`$deck$`$ argument

$```\{$r Question$\_2,$ echo$=$TRUE$\}$

# Complete the following code

$```$

$```\{$r Question$\_2\_$test, echo$=$TRUE, eval$=$FALSE$\}$

# TEST CODE

# DO NOT EDIT

if $($draw$\_$a$\_$card$($c$(1000,100,10))!=10)\{$

stop$("$The function does not return the last element"$)\}$

if $($length$($draw$\_$a$\_$card$)!=1)$ stop$("$The function returns more than one value"$)$

$```$

$***$

While the $\_\_\_$function$\_\_\_$ defined in $\_\_\_$question $2\_\_\_$ will allow you to draw or select a card from the $\_\_\_$object$\_\_\_`$deck$`,$ the $\_\_\_$function$\_\_\_$ will always $\_\_\_$return$\_\_\_$ the same card. In a normal game of blackjack, the deck will first be shuffled before a card is drawn. We will simplify the functionality of drawing a card, by simply selecting a random card from the values passed to the $`$deck$`\_\_\_$argument$\_\_\_$ of the $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`$ each time the $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`$ is $\_\_\_$called$\_\_\_.$

$\_\_\_$Question $3\_\_\_(2)$

Modify the $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`$ created in $\_\_\_$question $2\_\_\_,$ to $\_\_\_$return$\_\_\_$ one random card from the values passed to the $`$deck$`\_\_\_$argument$\_\_\_.$ Use the $\_\_\_$function$\_\_\_`$sample$()`$ inside the $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`$ to $\_\_\_$return$\_\_\_$ a random card from the deck.

$```\{$r Question$\_3,$ echo$=$TRUE$\}$

# Complete the following code

$```$

$```\{$r Question$\_3\_$test, echo$=$TRUE, eval$=$FALSE$\}$

# TEST CODE

# DO NOT EDIT

set.seed$(2)$

if $($draw$\_$a$\_$card$($c$(1,2))!=$ draw$\_$a$\_$card$($c$(1,2)))$ stop$("$Random selection is not performed"$)$ #two random draws with the same seed should result in the same draw

$```$

$***$

Blackjack is played between a player and a dealer. When the game starts both the player and dealer is dealt two cards each.

$\_\_\_$Question $4\_\_\_(2)$

Use the $\_\_\_$function$\_\_\_`$draw$\_$a$\_$card$`,$ developed in $\_\_\_$question $3\_\_\_,$ to assign two cards to the object $`$player$\_$hand$`.$ The object $`$player$\_$hand$`$ should be an atomic vector that stores values as $\_\_\_$integers$\_\_\_.$

$```\{$r Question$\_4,$ echo$=$TRUE$\}$

# Complete the following code

$```$

$```\{$r Question$\_4\_$test, echo$=$TRUE, eval$=$FALSE$\}$

# TEST CODE

# DO NOT EDIT

if $($typeof$($player$\_$hand$)!=$ "integer"$)\{$

stop$("$The object player$\_$hand does not contain integer values"$)\}$

if $($length$($player$\_$hand$)!=2)$ stop$("$The object player$\_$hand does not contain $2$ elements"$)$

$```$

The $\_\_\_$object$\_\_\_`$dealer$\_$hand$`$ can be defined in the same way as the $\_\_\_$object$\_\_\_`$player$\_$hand$`.$ For now, we will skip defining the $\_\_\_$object$\_\_\_`$dealer$\_$hand$`$ as the logic is similar to the $\_\_\_$object$\_\_\_`$player$\_$hand$`.$

$***$

# Determining the winner

In blackjack, a player wins the round if the score of the player is greater than the score of the dealer given that the score of the player does not exceed $21.$ The score of the player and the score of the dealer is computed in the exact same way. The score of a hand can be computed as follows:

$-$ If the total value $($sum of values$)$ of cards in a hand exceeds $21,$ known as a bust, assign a score of $0$ to the hand

$-$ If a hand has an ace and the total value of the cards in hand is $11$ or less $($with the ace counting $1),$ count an ace as the value $11$ and not a $1$ when computing the total value of cards

$-$ If a hand contains exactly two cards and the total value of cards in a hand is equal to $21,$ known as a "blackjack", assign a value of $21\mathrm{.}5$ to the hand

$\_\_\_$Question $5\_\_\_(4)$

Create a $\_\_\_$function$\_\_\_$ called $`$score$\_$hand$`$ with a single $\_\_\_$argument$\_\_\_`$hand$`.$ The $\_\_\_$function$\_\_\_`$score$\_$hand$`$ should compute the score of a hand based on the logic described above. The $\_\_\_$function$\_\_\_$ should $\_\_\_$return$\_\_\_$ the score as a single $\_\_\_$numeric$\_\_\_$ value

$```\{$r Question$\_5,$ echo$=$TRUE$\}$

# Complete the following code

$```$

$```\{$r Question$\_5\_$test, echo$=$TRUE, eval$=$FALSE$\}$

# TEST CODE

# DO NOT EDIT

test$\_$cards $<-$ list$($c$(10,1),$ c$(10,5,6),$ c$(10,1,1),$

c$(7,6,1,5),$ c$(3,6,1,1),$