Para o tempo em minutos...

res$timeDiff <- with(res, difftime(dat[fim,1],dat[ini,1], units="mins"))

ou no final...

as.numeric(res$timeDiff, units="mins")

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]