Rプログラミング入門第6章用準備ファイル

Sec6setup.R

# read "deck" dataframe
deck <- read.csv("https://gist.githubusercontent.com/garrettgman/9629323/raw/ee5dfc039fd581cb467cc69c226ea2524913c3d8/deck.csv")
DECK <- deck
# define functions
roll <- function(){
  die <- 1:6
  dice <- sample(die, size = 2, replace = TRUE)
  sum(dice)
}

deal <- function(cards){
  cards[1, ]
}

shuffle <- function(cards){
  random <- sample(1:52, size = 52)
  cards[random, ]
}