<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; ">Tales,</div><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; ">De forma geral, quando você quer executar uma tarefa que deve ser repetida sob uma certa estrutura, isso pode ser feito via o comando 'for'. Por exemplo:</div><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; "># "Imprimir" números de 1 a 5:</div><div><div><font size="2">for(indice in 1:5){</font></div><div><font size="2"> print(indice)</font></div><div><font size="2">}</font></div></div><div style="font-family: arial, helvetica, sans-serif; "><div style="font-size: 12pt; font-family:
'times new roman', 'new york', times, serif; "><br> </div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px; ">No seu caso, se vc tem uma matriz da qual deve ser extraído, p. ex., o valor mínimo de cada coluna:</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px; "><br></span></div><div class="yui_3_2_0_17_134020262084661"><span><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"># Semente para gerar o mesmo conjunto de valores aleatórios</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">set.seed(646332)</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div
class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"># Gerando uma matriz 10x5 para exemplo</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">a<-matrix(rnorm(5*10),10,5)</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">a</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"># Extraíndo o mínimo de cada coluna via 'for'</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">nc<-ncol(a)
# Número de colunas da matriz 'a'</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">teste<-vector('numeric',nc) # Criando um vetor numérico de comprimento 'nc'</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">for(i in 1:nc){</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"> teste[i]<-min(a[,i])</span></div><div class="yui_3_2_0_17_134020262084661"><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">}</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; "><br></div><div style="font-family: arial,
helvetica, sans-serif; font-size: 13px; ">E para gerar a matriz Mmin do seu código:</div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; "><br></div><div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">nr<-nrow(a) # número de linhas de 'a'</span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">matrix(teste,nrow=nr,ncol=nc,byrow=T) # matriz Mmin de dimemsão 'nr' por 'nc'</span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">No R, uma alternativa nesse caso é a função apply(), que aplica uma determinada função especificada às linhas ou
colunas:</span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div><span><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"># Aplicando uma função a todas as colunas com a função apply()</span><br></span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><div>teste.1<-apply(a,MARGIN=2,FUN=min) # Função 'min' aplicada às colunas (MARGIN=2) de 'a'</div><div>teste.1<br></div><div>matrix(teste.1,10,5,byrow=T)</div><div><br></div><div><br></div></span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">Com isso, acho que já dá para facilitar a sua vida. Entretanto, reforço o que já foi dito: Sempre que for postar solicitando ajuda, se coloque no lugar de quem vai ler sobre a sua dúvida pela primeira vez e dê uma descrição breve do problema, acompanhado de um código
(minimamente legível e </span><span style="font-family: arial, helvetica, sans-serif; font-size: 13px; ">sucinto</span><span style="font-family: arial, helvetica, sans-serif; font-size: 13px; ">) que o reproduza.</span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;"><br></span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">Att.,</span></div><div><span style="font-family: arial, helvetica, sans-serif; font-size: 13px;">Rubem</span></div></div></span></div> </div> </div></body></html>