如何解决＆＃34;生日问题？

Question

我有一段运行“生日问题”的代码。然而，当运行该片段时，我收到错误“意外输入”（德语翻译：）

sims <- 1000

people <- 24

alldays <- seq(1, 365, 1)

sameday <- 0

错误发生在这里：

for (i in 1:sims) {
  room <- sample(alldays, people, replace = TRUE)
  if (length(unique(room)) < people) # same birthday
    sameday <- sameday+1
}

我不确定来源.... THX的任何建议

Answer 1

您是否从某处复制并粘贴了代码？它是否包含非ASCII字符？听起来你的代码中某处有一个坏人。也许是一个不间断的空间或什么的。我可能会将其复制到基本文本编辑器中，然后将其复制回R以查看是否有效。