<div dir="ltr"><div>Eu não entendi muito bem o problema, mas daria para definir uma função, e usar ela no lapply para toda a sua lista.<br></div>Veja se esse exemplo ajuda.<br><div><div><div><br>###Gerando dados de exemplo<br>set.seed(123)<br>lista<-list()<br>j<-1<br>for(i in sample(1:10,20,replace=T)){<br>    lista[[j]]<-sample(1:10,i,replace=T)<br>    j<-j+1<br>}<br>###O exemplo<br>lista<br><br>###Faça uma função que retorna o que você quer<br>funcao<-function(x){<br>    if(length(x)>2 && sum(x<4)>=1){<br>        return(x[x<4])<br>    }else{<br>        return(NA)<br>    }<br>}<br>    <br>###Exemplo de uso<br>funcao(lista[[1]])<br>funcao(lista[[2]])<br><br>###Para uma lista, da para usar lapply<br>lapply(lista,funcao)<br></div></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 14 de maio de 2016 14:35, Fernando Gama <span dir="ltr"><<a href="mailto:f.fabiogama88@gmail.com" target="_blank">f.fabiogama88@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Eu tenho uma lista com os seguintes numeros:</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">individuo[[1]]= [​8 9 6 0 8 7 8 0 9 2 6 6 0 7 8 2 8 1 3 6 3 2 3 2 0 6 3 3 8 7​]</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Gostaria de detectar (realizar a contagem de sequencias dada um tamanho de cadeia).</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Baseado nos seguintes filtros:</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">1) tamanho da cadeia = 2 </div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">2) pegar somente os valores iguais ou abaixo de 4</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Ai ficaria assim:   [​8 9 6<b> 0</b> 8 7 8 <b>0</b> 9 <b>2</b> 6 6 <b>0</b> 7 8 <b>2 </b>8 <b>1 3</b> 6 <b>3 2</b> <b>3</b> <b>2</b> <b>0</b> 6 <b>3 3</b> 8 7​]<br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Tentei fazer começar com o which() para pegar as posicoes em sequencia:</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">which(individuo[[1]]<=4)  e com rle(individuo[[1]]), este ultimo só funciona para sequencias de numeros iguais.</div><br></div><div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">​Porém, ainda nao encontrei uma maneira de detectar sequencias baseados no tamanho da cadeia. Como setei lá em cima(tamanho da cadeia = 2), então o output seria essas 4 sequencias: </div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">[<b style="text-decoration:underline">1  3</b>  <b>3  2 </b> <b><u>3  2</u></b>  <b>3  3</b>]. Teria portanto, 8 numeros com 4 sequencias.</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">Alguem pode ajudar? :/</div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)"><br></div><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">​</div><span class="HOEnZb"><font color="#888888"><br></font></span></div><span class="HOEnZb"><font color="#888888"><div><br></div>-- <br><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div style="text-align:center"><font face="arial narrow, sans-serif" color="#0c343d" size="2">Att,</font></div><div style="text-align:center"><div class="gmail_default" style="font-family:'arial narrow',sans-serif;color:rgb(11,83,148)">​Fernando.​</div><br></div></div></div></div></div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>