#for picking out the first card deal <- function(cards) { cards[1, ] } #for shuffling shuffle <- function(deck) { random <- sample(1:52, size = 52) deck[random, ] } deck2 <- shuffle(deck)
#for picking out the first card deal <- function(cards) { cards[1, ] } #for shuffling shuffle <- function(deck) { random <- sample(1:52, size = 52) deck[random, ] } deck2 <- shuffle(deck)