ループはタイムスタンプ間の時間を計算する

Question

だから、私は絶対にループで吸う（あなたがそれをもっと練習するための推奨文書があれば教えてください）。しかし、現時点では、各インスタンスとインスタンスのタイムスタンプの時間差（数十万インスタンス）を計算したいと考えています。説明するには（データセット 'テスト'）：

car name  timestamp 
1   2015-05-03 21:15:00 
1   2015-05-03 21:45:00 
1   2015-05-03 22:30:00 
2   2015-05-04 05:45:00 
2   2015-05-04 16:45:00 

タイムスタンプはPOSIXct形式です。私が達成したいのは、同じ車である限り、前のインスタンスとの時間差をすべての車に分単位で計算することです。だから、私は次のような結果を取得したいのです：私は2つのインスタンス間の時間を計算するために管理

[1] N/A 
[2] 30 
[3] 45 
[4] N/A 
[5] 660 

：

difftime(test$timestamp[3],test$timestamp[(3-1)],units="mins") 

私は次のようにループに置く開始しました：

しかし、これは私にエラーを与えてくれるだけでなく、新しい車の最初の行（例：行[1]と[4]）の時間差を計算しないように伝えなければなりません。

私を助けてくれてありがとうございました！

Answer 1

おそらくdouble forループが問題ありません。

output <- c() 
for(car in unique(test$carName)){ 
    tmp <- test[test$carName==car,] 
    out <- c(NA) 
    for(j in 2:nrow(tmp)){ 
    out[j] <- difftime(tmp$timestamp[j],tmp$timestamp[j-1],units="mins") 
    } 
    output <- c(output, out) 
}