Как использовать 'apply.monthly' в объекте зоопарка с несколькими столбцами

у меня есть объект зоопарка, названный стр с ежедневными данными и 77 столбцов, который похож на это:

            X02R X03N X04K X04N X04R X06I X06N X08J X08P X09O X11O X12L X14N X15G X16K  (...)
1961-01-01  8.3  5.2  3.2  0.0  8.7  5.2 15.0  7.2 11.5 13.0  0.0  4.9  0.0  2.9  6.0   
1961-01-02  1.1  3.2 10.0  0.0  0.0  3.5  0.0  8.7  0.4  1.2  0.0  0.4  0.0  3.2  0.2    
1961-01-03 12.0  4.2 50.5  0.0  9.0 38.5 15.0 31.7  1.7  8.7  9.0 69.2  4.2 22.2  9.2 
(...)  

я хочу использовать apply.monthly для каждого из столбцов, таким образом, в конце у меня все еще будет 77 столбцов, но с ежемесячными данными вместо ежедневных данных. Я пытался apply.monthly (стр, FUN=sum) , но результат является объектом зоопарка со всего одним столбцом (я думаю, добавляют все столбцы).

я также попробовал цикл:

для (я в 1:77) { месячный <-apply.monthly (стр [я], FUN=sum) } но это также приводит ко всего одному столбцу (77-й столбец). Я смог заставлять цикл работать с некоторым методом проб и ошибок, но он берет возрасты для вычислений (у меня есть 17 897 строк и 77 столбцов), и я предполагаю, что существует более простой способ сделать это, не используя циклы... Таким образом, если вы знаете, как, помогите. Спасибо!