Возврат по запросу с первого рабочего дня месяца из объекта XTS с использованием R

Я очень новичок в R, поэтому приношу извинения, если я ошибаюсь в какой-либо терминологии, когда объясняю эту проблему.

У меня есть набор данных о ежедневной доходности в CSV-файле, который мне удалось преобразовать в объект xts. Данные в формате:

           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 
...

Я хочу создать скрипт, который будет находить первый рабочий день месяца (из диапазона значений в индексе), а затем создавать новый объект xts с этими доходами в нем.

Например, после запуска сценария у меня будет объект xts в формате:

           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 
...

Кто-нибудь может мне помочь? и, если возможно, объясните, что делает каждая часть сценария.