对于这种双重循环怎么改进提高运行速度，论坛币不多见谅

dif=function(x,m,n){
  difftime(strptime(x,"%m/%d/%Y %H:%M")[m],strptime(x, "%m/%d/%Y %H:%M")[n],units ="hours")

}
i=j=1
J=matrix(0,500,1);J
for(j in 1:500){
for(i in 1:500){
   A=dif(d,i,1)
     if(as.numeric(A)==2)
     {
       J[i,1]=i
       break}
      else i=i+1
}
j=i
}
J

R语言极其推崇向量计算，因此请尽量使用apply族函数代替for循环
一个for循环例子：

1. dif <- function(x,y){
   
2.   x^y
   
3. }
   
4. 
   
5. start <- Sys.time()
   
6. a <- c()
   
7. for(j in 1:200){
   
8.   for(i in 1:200){
   
9.     A=dif(i,j)
   
10.     a <- c(a,A)
    
11.   }
    
12. }
    
13. Sys.time()-start

复制代码

运行时间：Time difference of 10.3093 secs


改为apply方式代替循环：

1. start <- Sys.time()
   
2. grid_mat=expand.grid(1:200, 1:200)
   
3. a <- mapply(dif, grid_mat[,1], grid_mat[,2])
   
4. Sys.time()-start

复制代码

运行时间：Time difference of 0.06851101 secs


使用矩阵计算思路：

1. start <- Sys.time()
   
2. a <- outer(1:200, 1:200,dif)
   
3. Sys.time()-start

复制代码

运行时间：Time difference of 0.003201008 secs


这个例子可以直接使用向量计算：

1. start <- Sys.time()
   
2. grid_mat=expand.grid(1:200, 1:200)
   
3. b <- grid_mat[,1]^grid_mat[,2]
   
4. Sys.time()-start

复制代码

运行时间：Time difference of 0.004472971 secs

不懂。。。。。。。