poker <-
structure(list(winnings = c(-110L, -9L, -60L, 316L, -200L, -196L, 
320L, -160L, 31L, 331L, 1731L, 21L, -926L, -475L, 914L, -300L, 
-15L, 1L, -29L, 829L, 761L, 227L, -141L, -672L, 352L, 385L, 24L, 
103L, -826L, 95L, 115L, 39L, -9L, -1000L, -35L, -200L, -200L, 
235L, 70L, 307L, 135L, 60L, -100L, -295L, -1000L, 361L, -95L, 
337L, 3712L, -255L)), row.names = c(NA, -50L), class = c("tbl_df", 
"tbl", "data.frame"))