如何在动物园中稀释数据

Question

是否有一个功能可以让我将数据稀疏化（时间序列为动物园）？

示例将是

mytime<-as.POSIXct(paste("2013-07-09 12:", c(1:59), sep=""))
mydata<-EuStockMarkets[1:59]
myts<-zoo(mydata, mytime)

我搜索一个函数，它返回一个不规则的时间序列，只包含那些与前一个时间步长不同的数据，让我们说十点。

有动物园的想法吗？

谢谢

的Bastian

Answer 1

尝试subset：

> subset(myts, diff(myts) > 10)
2013-07-09 12:04:00 2013-07-09 12:07:00 2013-07-09 12:10:00 2013-07-09 12:22:00 
            1621.04             1630.75             1645.89             1616.67 
2013-07-09 12:28:00 2013-07-09 12:32:00 2013-07-09 12:37:00 2013-07-09 12:38:00 
            1631.87             1650.43             1524.28             1603.65 
2013-07-09 12:39:00 2013-07-09 12:40:00 2013-07-09 12:41:00 
            1622.49             1636.68             1652.10 

如果需要任何一个方向，请使用abs(diff(myts))。