如何在时间序列中得出差距的结束时间？

Question

如果这很容易就会道歉......

我有一个不规则的动物园，其中包含15秒到5分钟之间的任何传感器读数 - 如果差距超过5分钟则出现问题。

> z[1:5,]
                    Amb HWS
2012-06-01 00:00:14 184 182
2012-06-01 00:00:29 184 182
2012-06-01 00:00:44 183 182
2012-06-01 00:00:59 183 182
2012-06-01 00:01:14 183 182

我可以通过

找到超过300秒的间隙的开始

>gap_ts=index(z[diff(index(z))>300])
> gap_ts[1:5]
[1] "2012-06-02 00:31:31 GMT" "2012-06-06 11:46:31 GMT" "2012-06-06 21:55:31 GMT"
[4] "2012-06-08 07:05:32 GMT" "2012-06-11 07:01:19 GMT"

但是我无法弄清楚如何获得每个这样的差距的相应结束时间。

我希望能够生成一个包含每个间隙的开始和结束时间的列表。

任何人都可以建议如何做到这一点？也许是另一种方法？

Answer 1

尝试：

gap_ts=index(z[ which( diff(index(z))>300 ) +1 ])