r - すべてのペアごとの順列をループし、R で関数を適用する

Question

私はいくつかの名前を持っています。名前のすべての順列に関数を適用して、可能なすべてのペアのすべての可能な側面の合計を見つけたいと思います。

shapes<- c("Square", "Triangle","Octagon","Hexagon")
sides<-c(4,3,8,6)

shapescount<-combn(shapes, 2)

shapescount

[,1]       [,2]      [,3]      [,4]       [,5]       [,6]     
[1,] "Square"   "Square"  "Square"  "Triangle" "Triangle" "Octagon"
[2,] "Triangle" "Octagon" "Hexagon" "Octagon"  "Hexagon"  "Hexagon"

すべての順列のすべての辺を合計するにはどうすればよいですか?