<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
FH, eu recebi a tua resposta com os caracteres alterados, não consegui entender a tua resposta e ainda não conheço esse comando. Mas o resultado do cálculo é o seguinte:<div><br></div><div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); "> [,1] [,2] [,3] [,4] [,5]</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); ">[1,] dv11 dv12 dv13 dv14 dv15</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); ">[2,] - dv22 dv23 dv24 dv25</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); ">[3,] - - dv33 dv34 dv35</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); ">[4,] - - - dv44 dv45</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); ">[5,] - - - - dv55</div><div style="line-height: 17px; color: rgb(42, 42, 42); font-family: 'Segoe UI', Tahoma, Verdana, Arial, sans-serif; background-color: rgb(255, 255, 255); "><br></div><div style="background-color: rgb(255, 255, 255); "><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;"> [,1] [,2] [,3] [,4] [,5]</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">[1,] 0.0 30.5 22.7 21.8 42.9</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">[2,] - 0.0 8.8 21.3 67.4</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">[3,] - - 0.0 12.7 59.7</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">[4,] - - - 0.0 64.5</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">[5,] - - - - 0.0</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;"><br></span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">Mas por exemplo, dv12 é: dv12=((5-20)^2+(9-18)^2+(35-11)^2+(3-10)^2)^(1/2)=30,5</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">Esse comando todo é o primeiro passo para uma matriz euclidiana, em que estou tirando os valores das distâncias das variáveis entre elas. Estou começando a programar para o método do vizinho mais próximo ou encadeamento único. </span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;"><br></span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">Desde já, muito obrigado!</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">att,</span></font></div><div><font color="#2a2a2a" face="Segoe UI, Tahoma, Verdana, Arial, sans-serif"><span style="line-height: 17px;">Guilherme </span></font></div></div><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Mon, 17 Sep 2012 10:07:26 -0300<br>From: fernandohtoledo@gmail.com<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] Comando for em cadeia<br><br>Guilherme,<div><br></div><div>Nada te impede de aninhar laþos for(). O que vocÛ chama de dvv?</div><div><br></div><div>Qual o resultado numÚrico dessa sua implementaþÒo?</div><div><br></div><div>att,</div><div>FH<br><br><div class="ecxgmail_quote">
2012/9/17 Guilherme Heiden <span dir="ltr"><<a href="mailto:guilhermeheiden@hotmail.com">guilhermeheiden@hotmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
<div><div dir="ltr">Olß, eu talvez nÒo tenha sido claro no assunto do e-mail, mas na minha concepþÒo o problema Ú este: um comando for dentro de outro.<div><br></div><div>Eu estou trabalhando com a seguinte matriz:</div>
<div><br></div><div><div>á á á[,1] [,2] [,3] [,4] [,5]</div><div>[1,] á 20 á á5 á 11 á á7 á 49</div><div>[2,] á 18 á á9 á 10 á á2 á 45</div><div>[3,] á 11 á 35 á 30 á 15 á á7</div><div>[4,] á 10 á á3 á á7 á á4 á 26</div><div>
<br></div></div><div>E a partir desta eu gostaria de gerar outra matriz com a seguinte configuraþÒo:</div><div><br></div><div><div>á á á[,1] á á á[,2] á á [,3] á á[,4] á á[,5]</div><div>[1,] dv11 á dv12 á dv13 ádv14 á ádv15</div>
<div>[2,] á - á á ádv22 á dv23 á dv24 á ádv25</div><div>[3,] á - á á á á- á á á dv33 á dv34 á dv35</div><div>[4,] á - á á á á- á á á á- á á á dv44 á ádv45</div><div>[5,] á- á á á á- á á á á - á á á á - á á á dv55</div><div>
<br></div></div><div><b style="font-size:10pt">Para achar os devidos valores, eu criei a seguinte funþÒo:</b></div><div><span style="font-size:10pt">read.csv2("C:/multivar.csv",header=T)</span></div><div>
multivar<-read.csv2("C:/multivar.csv",header=T)<BR>
áattach(multivar)<BR>
á<BR>
<b><span style="background:yellow">##Criar DV11</span>:</b><BR>
vetor1<-NULL<BR>
áfor(i in 1:4) { <BR>
ávetor1[i]<-(multivar[i,1]-multivar[i,1])^2<BR>
á}<BR>
dv11<-(sum(vetor1)^0.5)<BR>
rm(vetor1)<BR>
á<BR>
<b><span style="background:yellow">##Criar DV12:</span></b><BR>
vetor1<-NULL<BR>
for(i in 1:4) { <BR>
vetor1[i]<-(multivar[i,1]-multivar[i,2])^2<BR>
}<BR>
dv12<-(sum(vetor1)^0.5)<BR>
rm(vetor1)<BR><br><BR>E assim sucessivamente.á<BR><br><BR><b>Minha d·vida:á</b><BR><b>Hß a possibilidade de criar um comando "for" para os valores de dv serem criados automaticamente, ao invÚs de gerar um de cada vez, manualmente?</b><BR>
<b><br></b><BR><b><br></b><BR></div> </div></div> </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></div>
<br>_______________________________________________
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.</div></div> </div></body>
</html>