Äußeres Produkt von der Liste der Vektoren R

Question

Ich habe eine Liste der Vektoren und ich versuche, eine Abstandsmatrix zwischen ihnen zu berechnen, die ein kundenspezifisches Abstandsmaß verwendet. Allerdings bin ich der beste Weg, sich nicht sicher darüber zu gehen:

distance.function<-function(x,y){ 
    return(x %*% y) 
} 
m<-1:4 
values<-list(m,m,m,m,m) 

Was ich will, so etwas wie zurückzukehren:

outer(values, values, FUN='distance.function') 
     [,1] [,2] [,3] [,4] 
[1,] 30 30 30 30 
[2,] 30 30 30 30 
[3,] 30 30 30 30 
[4,] 30 30 30 30 

ich versucht habe, mit outer, aber es scheint nicht zu wie die Eingänge Vektoren sind, und ich habe versucht, combn, aber nicht in der Lage sein, die Ausgabe in das gewünschte Format zu bekommen. Ich bin nur im oberen Dreieck der Matrix interessiert, im Idealfall.

Answer 1

Es scheint, dass dies eigentlich nur eine Frage Vectorize der Verwendung:

m<-1:4 
x<-list(m,m,m,m,m) 
mini.test<-function(x,y){ 
    dot.prod <- x %*% y 
    return(dot.prod) 
} 
outer(x, x, Vectorize(mini.test)) 

    [,1] [,2] [,3] [,4] [,5] 
[1,] 30 30 30 30 30 
[2,] 30 30 30 30 30 
[3,] 30 30 30 30 30 
[4,] 30 30 30 30 30 
[5,] 30 30 30 30 30 

Dank der Verbindung here für diese helfen zu lösen.