从数据框创建乘法矩阵

Question

我有这个矩阵

m<- matrix(c(0:13),nrow=2,ncol=7)
colnames(m)<-c("0","1","2","3","4","5","6")
rownames(m)<-c("A","B")


  0 1 2 3 4  5  6
A 0 2 4 6 8 10 12
B 1 3 5 7 9 11 13

我希望将第一行中的每个观察值乘以第二行中的每个观察值。所以我会有一些看起来像这样的东西

   0  1  2  3  4  5  6
0 NA NA NA NA NA NA NA
1 NA NA NA NA NA NA NA
2 NA NA NA NA NA NA NA
3 NA NA NA NA NA NA NA
4 NA NA NA NA NA NA NA
5 NA NA NA NA NA NA NA
6 NA NA NA NA NA NA NA

Answer 1

尝试

outer(m[1,], m[2,], FUN='*')

或

as.matrix(m[1,])%*% m[2,]