我有时间序列股票价格数据，我想每15分钟提取一次数据。 开始时间和结束时间（记录在时间列中）是
start_date1 <- as.POSIXct("2016-11-01 09:00:00")
end_date2 <- as.POSIXct("2016-11-01 09:15:00")
定义间隔
int <- new_interval(date1, date2)
从数据框DF_spread
中提取数据DF_spread_interval <- DF_spread[DF_spread$Time %within% int,]
现在想要每隔15分钟从系列中提取数据，每次迭代时start_date1将增加15分钟，end_date2也会增加15分钟。
当end_date2到达同一天下午3:30的终点时，增量应该停止，即
end_date2 <- as.POSIXct("2016-11-01 15:30:00")
请帮忙。