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的代码中，变量组的范围是本地的 - 事实上，您将此变量命名为全局变量，在本地覆盖它。