[R-br] Ajuda na construção de uma função

[Marcelo Cardoso mello]

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.
 
m1<-matrix(c(20,40,30,10,20,30), nc=3)
m1
 
m11<-m1[1,]-m1[1,]
m12<-m1[1,]-m1[2,]
m21<-m1[2,]-m1[1,]
m22<-m1[2,]-m1[2,]
 
x<-matrix(c(t(m11)%*%m11,t(m12)%*%m12,
t(m21)%*%m21, t(m22)%*%m22), nc=nrow(m1))
x
 
# como criar uma função para combinar
todas as linhas de m1?
f1<-function(x) {x[row(x)==
1]-x[row(x)== 2]}
f1(m1)
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110910/ea54214a/attachment.html>