r - R でのデータ操作: 各期間内に個人が費やした時間は?

Question

ではR、3 つの時点があります

時間 <- c(7, 1, 4)

期間が 3 つの間隔 (0, 3]、(3, 5]、(5, 8]) に分割されているとします。

breaks <- c(3, 5, 8)

---

timeSpent観測ごとに 1 つの行と、期間ごとに 1 つの列があります。各期間の各観測に費やされた時間を示します。

 timeSpent <- outer(X=time, Y=breaks, FUN=pmin)
 timeSpent <- cbind(timeSpent[, 1], 
                    sapply(X=1:(length(breaks) - 1), FUN=function(ii)
                      timeSpent[, ii + 1] - timeSpent[, ii]))

 > timeSpent
     [,1] [,2] [,3]
[1,]    3    2    2
[2,]    1    0    0
[3,]    3    1    0

たとえば、観察 1 は間隔 1 で 3 日間、間隔 2 で 2 日間、間隔 3 でさらに 2 日間過ごしました。

---

を取得するためのよりエレガントな方法はありtimeSpentますか?