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

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)