<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: times new roman,new york,times,serif; font-size: 12pt; color: #000000'><br>Muito boa tarde a todos!<br><br>Pessoal, <br><br> Consegui resolver meu problema!<br>Para que possa ajudar a outros, consegui resolver meu problema com uma sugestão anterior dada pelo prof. Éder Comunello.<br>Para o problema atual utilizei a seguinte rotina<br><br>res1m9_1$c<- sapply(seq(nrow(res1m9_1)), function(x) {<br> sel1m9_1<- seq(res1m9_1$ini[x], res1m9_1$fim[x]) <br> print(sum(DC_MHN1m9[sel1m9_1,17]), na.rm=TRUE)<br>})<br>res1m9_1$chu1<-rep(0, times=length(res1m9_1$lengths))<br>res1m9_1$chu1[res1m9_1$c>0]=1<br><br>Muitíssimo obrigado a todos.<br><br>Prof. David muito obrigada.<br><br><br>Cordialmente,<br><br>Silvia<br></div></body></html>