.
r programming blackjack iifs