r - R中的快速采样

Question

是否有比 base::sample 更快的随机子样本(无替换)方法？功能？

Answer 1

通过消除 base::sample 函数调用，您可以获得一点加速:

> x<- rnorm(10000)
> system.time(for(i in 1:100000) x[.Internal(sample(10000L, 10L, FALSE, NULL))])
   user  system elapsed 
  2.873   0.017   2.851 
> system.time(for(i in 1:100000) sample(x,10))
   user  system elapsed 
  3.420   0.025   3.258 

根据您的问题，可能还有其他更聪明的方法来加速您的代码。想办法用一个大的来代替许多小的样本调用。