如何在循环中执行循环并将其保存在R中的表中

Question

问题是：如果一位老师在他的35人班上打赌“多少人有相同的生日？”。 如果他输掉了赌注，则支付2美元；如果赢了赌注，则得到1美元。 他下注1137次。 因此，我做了一个循环来表示这一点。 现在，我想重复此测试1000次并将其保存在向量或表中，以便随后对它进行推论测试。 如何重复循环？

```{r}

exact=c(seq(1:365), seq(1:365), seq(1:365), seq(1:366))  
bucket=numeric()  
smithbucks=0  
for(i in 1:1137){  
  class=sample(exact, size = 35, replace = TRUE)  
hmmm=sum(duplicated(class))  
if (hmmm > 0) smithbucks = smithbucks +1  
else smithbucks = smithbucks -2}  

```

Answer 1

有很多方法可以做到这一点。 一种简单的方法是将其放入一个sapply循环中，如下所示：

results <- sapply(1:1000, function(i) {
    exact=c(seq(1:365), seq(1:365), seq(1:365), seq(1:366))  
    smithbucks=0  
    for(i in 1:1137){  
      class=sample(exact, size = 35, replace = TRUE)  
    hmmm=sum(duplicated(class))  
    if (hmmm > 0) smithbucks = smithbucks +1  
    else smithbucks = smithbucks -2}
    return(smithbucks)
})