Сначала я читаю csv и создаю объект xts.
require(quantmod)
sugar <- as.xts(read.zoo("SUGAR.CSV", sep=",", format ="%m/%d/%Y", header=TRUE))
Затем я создаю новую серию значений RSI, используя TTR (загружает с помощью Quantmod)
sugarRSI <- RSI(sugar)
Теперь я хотел бы получить новую серию, которая включает в себя только значение последнего дня каждого месяца. В xts есть функция last (), но неясно, как ее эффективно развернуть.