Muito boa tarde a todos!

Pessoal,

Consegui resolver meu  problema!
Para que possa ajudar a outros, consegui resolver meu  problema com uma sugestão anterior dada pelo prof. Éder Comunello.
Para o problema atual utilizei a seguinte rotina

res1m9_1$c<- sapply(seq(nrow(res1m9_1)), function(x) {
     sel1m9_1<- seq(res1m9_1$ini[x], res1m9_1$fim[x])
     print(sum(DC_MHN1m9[sel1m9_1,17]), na.rm=TRUE)
})
res1m9_1$chu1<-rep(0, times=length(res1m9_1$lengths))
res1m9_1$chu1[res1m9_1$c>0]=1

Muitíssimo obrigado a todos.

Prof. David muito obrigada.


Cordialmente,

Silvia