小编Gui*_*cob的帖子

我必须在大矩阵中的列之间运行类似的代码.

set.seed(1)

my_vector <- runif( 10000 )

my_sums <- NULL

for ( l in 1:length( my_vector ) ) {

  current_result <- my_vector[ my_vector < runif( 1 ) ]

  my_sums[l] <- sum( current_result )

}

head(my_sums)
# [1]   21.45613 2248.31463 2650.46104   62.82708   11.11391   86.21950

Sys.time 结果:

   user  system elapsed 
   1.14    0.00    1.14

关于如何提高绩效的任何想法？