Puxar Retorno do primeiro dia útil do mês a partir do objeto XTS usando R

Eu sou muito novo em R, então peço desculpas se eu tiver alguma terminologia errada quando explicar este problema.

Eu tenho um conjunto de dados de retornos diários em um arquivo csv que consegui converter em um objeto xts. Os dados estão no formato:

           HighYield..EUR. MSCI.World..EUR.
2002-01-31          0.0144           0.0031    
2002-02-01          0.0056          -0.0132       
2002-02-02          0.0373           0.0356       
2002-02-03         -0.0167          -0.0644      
2002-02-04         -0.0062          -0.0332      
2002-02-05         -0.0874          -0.1112 
...

Eu quero criar um script que irá encontrar o primeiro dia útil do mês (a partir do intervalo de valores no índice) e, em seguida, criar um novo objeto xts com esses retornos nele.

Por exemplo, após o script ser executado, eu teria um objeto xts no formato:

           HighYield..EUR. MSCI.World..EUR.
2002-01-31          0.0144           0.0031    
2002-02-28          0.0011          -0.0112       
2002-03-31          0.0222           0.0224       
2002-04-30         -0.0333          -0.0223      
2002-05-30         -0.0011          -0.0012      
2002-06-30         -0.0888          -0.0967 
...

Alguém pode me ajudar, por favor? e, se possível, explique o que cada parte do script está fazendo.

questionAnswers(1)

yourAnswerToTheQuestion