Sim, sim... ato falho, vamos por partes:<div><br></div><div>Me precipitei... agora segue código testado, um pouco mais complicado, veja se compreende a lógica:</div><div><br></div><div>matriz <- matrix(c(1,2,3,4,5,6,7,0,7,4,9,8,8,1,0,8,5,6,6,4,1,3,2,4,4,<div>
                         1,1,8,5,5,9,8,7,5,2),,7,byrow=T)</div><div><br></div><div>matriz[,which(apply(matriz, 2, function(x) sum(match(x, 7), na.rm = TRUE)) == 1)]</div><div><br></div><div>att,</div><div>FH</div><br><div class="gmail_quote">
2012/9/15 andrebvs <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div>
<div>Obg Fernando, mas aparece a seguinte mensagem quando executo os comandos abaixo: <strong>Erro: tipo de subscrito inválido 'list'</strong></div>
<div> </div>
<div><strong>CMR:</strong></div>
<div><strong> </strong></div>
matriz <- matrix(c(1,2,3,4,5,6,7,0,7,4,9,8,8,1,0,8,5,6,6,4,1,3,2,4,4,<br>                          1,1,8,5,5,9,8,7,5,2),,7,byrow=T)<br> <br></div><div> selecao <- function (x) which(x == 7)<br></div> soselecionadas <- matriz[,apply(matriz,2,selecao)]<br>

 <br> <br><br></div><div>
<hr style="border-top:1px solid #ccc">
<div>Em 15/09/2012 19:14, <strong>FHRB Toledo < <a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a> ></strong> escreveu:<br>André,</div>
<div> </div>
<div>Tente:</div>
<div> </div>
</div><div>selecao
<div> </div>
<div>so.selecionadas
<div> </div><div><div>
<div>Sendo matriz a sua matriz apresentada.</div>
<div> </div>
<div>att,</div>
<div>FH<br><br>
<div class="gmail_quote">2012/9/15 andrebvs <span dir="ltr"><<a href="http://../../../undefined/compose?to=andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div>Olá colegas!</div>
<div> </div>
<div>Como selecionar apenas as colunas que contenham um determinado número de interesse? <br><br>Por exemplo:<br><br>C1   C2    C3    C4    C5    C6    C7<br>1      2      3      4      5      6      7<br>0      7      4      9      8      8      1<br>

 0      8      5      6      6      4      1<br>3      2      4      4      1      1      8<br>5      5      9      8      7      5      2<br><br>Neste exemplo, suponhamos que o valor de interesse seja 7, então, gostaria que a saída fosse as seguintes colunas:<br>

 <br>C2    C5    C7<br>2       5      7<br>7       8      1<br>8       6      1<br>2       1      8<br>5       7      2<br><br>thanks!<br><br>Att.<br>André</div>
<br>_______________________________________________<br> R-br mailing list<br> <a href="http://../../../undefined/compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">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.</blockquote>
</div>
</div>
</div></div></div>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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></div>