R

Question

我试图在多个条目之间找到5分钟的时差。我做的第一件事是我以表格形式阅读csv，然后我有一个函数

time_diff <-function(x) {
    prev<-x[1]

    j <- 0
    k <- 0
    for(i in x) {

      j <- j+1

      if(k < 1){
        k <- k+1
        next
      }

      diff <- as.numeric(difftime(strptime(paste(i),"%Y-%m-%d %H:%M:%S"),
                 strptime(paste(prev),"%Y-%m-%d %H:%M:%S")), units="mins") 

      if(diff == 5){

      } else {
        print("\n")
        cat(" diff : ",diff)
        cat(" Prev : ", prev)
        cat(" i : ", i)
        cat(" j : ", j)
    }

    prev <- i

}

但我有两个这样的条目，差异显示超过5分钟，即使它是5分钟。参赛作品看起来像这样上一页：＆＃34; 2012-03-11 01:55:00＆＃34; 和我：＆＃34; 2012-03-11 02：00：00＆ ＃34; 即可。为什么它仍然向我展示-55而不是5，任何想法。