r - R中的扑克牌模拟

Question

我正在研究扑克牌的概率模拟。我想得到玩家 1 得到一手仅由单一花色组成的手的概率。我得到了下面的代码，但是，我得到了以下错误：

> checkDeck1()
Error in unique(deck[1:4]) : argument "deck" is missing, with no default

代码：

pokerdeck <- rep(LETTERS[1:4],13) 
deck <- sample(x=pokerdeck, size=13) #Deck of player 1!

checkDeck1 <- function(deck) {
  uniquedeck <- unique(deck[1:13])
  ## if it is only a single suit
  if (length(uniquedeck)==1) {
    rv <- TRUE
  } else {
    rv <- FALSE
  }
  return (rv)
}
checkDeck1()

Answer 1

你想打电话

checkDeck1(deck)

在您的函数 checkDeck1 的代码中，变量 deck 的范围是本地的 - 您将此变量命名为本地变量的事实会覆盖它。