<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:12pt"><div><div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">Olá pessoal. Envio um exemplo muito simples (abaixo). Preciso de ajuda
para criar uma função “geral” para aplicar em matrizes e obter um resultado igual
ao x abaixo (quadrado da distância euclidiana). Alguém poderia me dar algumas
dicas. Grato.</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><o:p> </o:p></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m1<-matrix(c(20,40,30,10,20,30), nc=3)</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m1</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><o:p> </o:p></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m11<-m1[1,]-m1[1,]</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m12<-m1[1,]-m1[2,]</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m21<-m1[2,]-m1[1,]</div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal">m22<-m1[2,]<span lang="EN-US">-m1[2,]<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US"><o:p> </o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US">x<-matrix(c(t(m11)%*%m11,t(m12)%*%m12,
t(m21)%*%m21, t(m22)%*%m22), nc=nrow(m1))<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US">x<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US"><o:p> </o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><b># como criar uma função para combinar
todas as linhas de m1?<o:p></o:p></b></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US">f1<-function(x) {x[row(x)==
1]-x[row(x)== 2]}<o:p></o:p></span></div>
<div class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt;line-height:
normal"><span lang="EN-US">f1(m1)<o:p></o:p></span></div></div></div></body></html>