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)