.
r programming blackjack xifs