Eu tenho um objeto xts chamadoDaily_Quotes que contém cotações de ações. estou a usarendpoints para obter cotações mensais de ações que eu recuperei usandogetSymbols (do pacote quantmod). Notei que oendpoints A função cria um índice da linha que contém o último dia de negociação para o mês específico e o atribui ao novo objeto para o período especificado. Existe alguma maneira de obter o primeiro dia de negociação do mês?

# My code    
Monthly_Quotes <- Daily_Quotes[endpoints(Daily_Quotes,'months')]

O que eu tentei fazer foi:

# This gave me the next day or 1st day of the next month
# or next row for the object.
endpoints(Daily_Quotes,'months') + 1

# So I applied this and it gave me 
# Error in `[.xts`(Daily_Quotes, endpoints(Daily_Quotes, "months") + 1) :
# subscript out of bounds
Monthly_Quotes <- Daily_Quotes[endpoints(Daily_Quotes,'months') + 1]

Como tento resolver isso?