Преобразование индекса XTS последнего рабочего дня месяца в последний день месяца

Question

У меня есть объект XTS с ежемесячными данными.Однако дата в исходных данных в настоящее время является последним рабочим днем ​​месяца, и я бы хотел, чтобы это был последний день месяца.

Есть ли способ преобразовать объект XTS так, чтобыИндекс имеет последний день месяца?

Спасибо

Answer 1

Посмотрите на пакет bsts и функцию LastDayInMonth().

Скажите, что это ваши данные:

df <- data.frame(ID = 1:7, 
                 Date=as.Date(c("2007-01-01", "2007-01-31", "2008-02-01", "2008-02-29",
                                "2008-03-14", "2008-12-01", "2008-12-31")), 
                 stringsAsFactors = F)

Вы можете получить новые даты следующим образом:

library(bsts)
df$New_Date <- LastDayInMonth(df$Date)

Это делает то, что вы после?