अद्वितीय संयोजनों के साथ आर tcrossprod

Question

tcrossprod का एक संस्करण हो सकता है जो इसे प्राप्त करता है लेकिन मैं इसे खोजने में सक्षम नहीं था। नीचे दिए गए उदाहरण से, अगर संयोजन की कोई फर्क नहीं पड़ता, तो संयोजन की पहली घटना के साथ केवल पंक्तियां कैसे प्राप्त करें? अर्थात। (1,2) मेरे लिए समान है (2,1)।

a <- c(1,2,3,4) 
b <- c(10,5,4,10) 
df<- data.frame(a,b) 

melt(tcrossprod(df$b,1/df$b)) 

> melt(tcrossprod(df$b,1/df$b)) 
    Var1 Var2 value 
1  1 1 1.00 
2  2 1 0.50 
3  3 1 0.40 
4  4 1 1.00 
5  1 2 2.00 
6  2 2 1.00 
7  3 2 0.80 
8  4 2 2.00 
9  1 3 2.50 
10 2 3 1.25 
11 3 3 1.00 
12 4 3 2.50 
13 1 4 1.00 
14 2 4 0.50 
15 3 4 0.40 
16 4 4 1.00 

Answer 1

होने m <- melt(tcrossprod(df$b,1/df$b)), तो आप बस कर सकते हैं:

subset(m,X1>X2) 

# X1 X2 value 
#2 2 1 0.5 
#3 3 1 0.4 
#4 4 1 1.0 
#7 3 2 0.8 
#8 4 2 2.0 
#12 4 3 2.5