André,<br>Acho que isso resolve seu problema (nao testei):<br><br>a=which(vetor==5)<br>indices=sapply(a, function(x){ (x+6):(x+6+3) }) #cada coluna contém os índices de cada intervalo<br>apply(indices, 2, function(indic){ vetor[indic] })<br>
<br>Att.,<br>Lucas<br><br><div class="gmail_quote">Em 18 de junho de 2012 19:36, andrebvs <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div class="HOEnZb"><div class="h5">Boa noite pessoal, gostaria de saber como faço para extrair de uma  coluna um determinado intervalo quando um determinado número aparece  antes desse intervalo, por exemplo: Se aparece o número "5", então,  gostaria de extrair o intervalo a partir desse número contando 6 números  seguintes, veja: <br>
 <br> [,1]<br> [1,]    5 <------ primeiro número 5<br> [2,]    1 <br> [3,]    3<br> [4,]    2 <br> [5,]    4<br> [6,]    1<br> [7,]    0<br> [8,]  [ 2 ] <br> [9,]  [ 5 ] <------ intervalo 1 em função do primeiro número 5<br>
 [10,]  [ 2 ]<br> [11,]    1<br> [12,]    0<br> [13,]    0<br> [14,]    2 <br> [15,]    4 <br> [16,]  [ 5 ] <br> [17,]  [ 4 ] <------ intervalo 2 em função do segundo número 5<br> [18,]  [ 4 ]<br> [19,]    3<br> [20,]    5 <br>
 [21,]    6 <br> [22,]    2  <br> [23,]  [ 0 ]<br></div></div> [24,]  [ 4 ] <------ intervalo 3 em função do terc
 eiro número 5<div class="HOEnZb"><div class="h5"><br> [25,]  [ 6 ]<br> [26,]    2  <br> [27,]  [ 1 ] <br> [28,]  [ 6 ] <------ intervalo 4 em função do quarto número 5<br> [29,]  [ 0 ]<br> [30,]    2 <br> [31,]    1<br>
 .      .<br> .      .<br> .      .<br> [1000,]  2<br> <br> desde já agradeço!<br> <br> <i>Att.<br> André</i><br>
</div></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" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br>