André,
Acho que isso resolve seu problema (nao testei):

a=which(vetor==5)
indices=sapply(a, function(x){ (x+6):(x+6+3) }) #cada coluna contém os índices de cada intervalo
apply(indices, 2, function(indic){ vetor[indic] })

Att.,
Lucas

Em 18 de junho de 2012 19:36, andrebvs <andrebvs@bol.com.br> escreveu:
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:

[,1]
[1,]    5 <------ primeiro número 5
[2,]    1
[3,]    3
[4,]    2
[5,]    4
[6,]    1
[7,]    0
[8,]  [ 2 ]
[9,]  [ 5 ] <------ intervalo 1 em função do primeiro número 5
[10,]  [ 2 ]
[11,]    1
[12,]    0
[13,]    0
[14,]    2
[15,]    4
[16,]  [ 5 ]
[17,]  [ 4 ] <------ intervalo 2 em função do segundo número 5
[18,]  [ 4 ]
[19,]    3
[20,]    5
[21,]    6
[22,]    2 
[23,]  [ 0 ]
[24,]  [ 4 ] <------ intervalo 3 em função do terc eiro número 5

[25,]  [ 6 ]
[26,]    2 
[27,]  [ 1 ]
[28,]  [ 6 ] <------ intervalo 4 em função do quarto número 5
[29,]  [ 0 ]
[30,]    2
[31,]    1
.      .
.      .
.      .
[1000,]  2

desde já agradeço!

Att.
André


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.