playing_cards <-
structure(list(number = structure(c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 
9L, 1L, 11L, 13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 
11L, 13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 11L, 
13L, 12L, 10L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 11L, 13L, 
12L, 10L), .Label = c("10", "2", "3", "4", "5", "6", "7", "8", 
"9", "A", "J", "K", "Q"), class = "factor"), suit = structure(c(4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L), .Label = c("Club", "Diamond", "Heart", "Spade"), class = "factor"), 
    face_card = c("no", "no", "no", "no", "no", "no", "no", "no", 
    "no", "yes", "yes", "yes", "yes", "no", "no", "no", "no", 
    "no", "no", "no", "no", "no", "yes", "yes", "yes", "yes", 
    "no", "no", "no", "no", "no", "no", "no", "no", "no", "yes", 
    "yes", "yes", "yes", "no", "no", "no", "no", "no", "no", 
    "no", "no", "no", "yes", "yes", "yes", "yes")), row.names = c(NA, 
-52L), class = c("tbl_df", "tbl", "data.frame"))