#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)