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)_______________________________________________
R-br mailing list
[email protected]
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.
