Question

我有这个for循环，我需要重复（比如1000次），并计算p.value高于某个值的次数。我想我控制了计数部分，但我无法弄清楚如何重复循环以获得我可以使用的输出。

    leads <-list(lead_one, lead_two, lead_three, lead_four, lead_five, lead_six, lead_seven, lead_eight, lead_nine, lead_ten)

    for(i in 1:length(leads)){   
  (ks.test(sample(lead_en, 75), sample(leads[[i]], 75)))$p.value  
    }

帮助？

更新（更新＃2：代码现在应该可以重现）：

我很抱歉没有提供足够的信息，我是编程的新手，也是寻求编程帮助的新手。让我再尝试一次。我想在提前期（lead_en）的向量上运行ks.test，而在＃34; lead＆＃34;中使用提前期的所有向量。我可以用上面发布的for循环来做。然后我想多次运行这个循环来计算某个结果的时间。

我尝试过（没有反击）：

lead_en <- c(4, 5, 3, 4, 5, 6, 7, 3, 4, 2, 3)
lead_one <- c(3, 4, 5, 2, 2, 5, 7, 8, 3, 2, 6)
lead_two <- c(4, 2, 5, 6, 3, 1, 5, 7, 5)
lead_three <- c(4, 3, 5, 5, 6, 7, 9, 9, 3, 3, 3)
lead_four <- c(5, 3, 5, 6, 3, 4, 5, 6)
lead_five <- c(4, 5, 3, 5, 6)
lead_six <- c(2, 3, 6, 9, 9, 5, 5, 6, 7, 4, 3, 3)
lead_seven <- c(3, 4, 5, 5, 6, 3, 3)
lead_eight <- c(2, 3, 3, 3, 3, 4, 5)
lead_nine <- c(5, 6, 7, 3, 3, 4)
lead_ten <- c(5, 3, 4, 5, 6, 7, 7)
leads <-list(lead_one, lead_two, lead_three, lead_four, lead_five, lead_six, lead_seven, lead_eight, lead_nine, lead_ten)


d <- 100 # number of replications
res = matrix(rep(0, nrow=10, ncol=d))

for (k in 1:length(d)){
  for(i in 1:length(leads)){   
 res[i, k] <-   print(ks.test(sample(lead_en, 75), sample(leads[[i]], 75)))$p.value    
  }
}

哪个不起作用。我希望这能澄清我正在努力做的事情。

Answer 1

尝试：

 sapply(leads, function(x) ks.test(sample(lead_en, 75), sample(x, 75)))$p.value)

我想我无能为力，因为你没有提供足够的信息。

R：重复循环和计数结果

1 个答案: