复制Monty Hall游戏

Question

我正在尝试复制Monty hall游戏，即使我将3个值分配给结果赛车，主机和玩家，当我运行此功能时，当玩家对赛车进行采样时，我也会得到4个返回值。我不了解这种行为。

switch <- FALSE
start_game <- function(switch) {
  results <- NULL
  doors <- c(1, 2, 3)
  car <- sample(doors, size = 1, replace = TRUE)
  player <- sample(doors, size = 1, replace = FALSE)
  host <- doors[-c(player, car)]
  results <- c(car, player, host)
  results
}
start_game(switch)