r - 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 分钟。条目看起来像这样prev : "2012-03-11 01:55:00"和i : "2012-03-11 02:00:00"。为什么它仍然显示-55而不是5，任何想法。