首先，我读入一个 csv 并创建一个 xts 对象。
require(quantmod)
sugar <- as.xts(read.zoo("SUGAR.CSV", sep=",", format ="%m/%d/%Y", header=TRUE))
然后我使用 TTR 创建一系列新的 RSI 值（使用 quantmod 加载）
sugarRSI <- RSI(sugar)
现在我想获得一个只包含每个月最后一天的值的新系列。xts 中有一个 last() 函数，但不清楚如何有效地部署它。