如何在R语言中使用loop函数进行矩阵运算

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我有两个矩阵，A为2*3，B为3*2，想要在R语言中通过loops函数计算A*B的结果应该如何写程序呢？希望得到各位大神的帮助

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：矩阵运算 loop R语言 Loops OPS

照着乘法的定义做就可以了。比如

1. x <- 1:6
   
2. A <- matrix(x, 2, 3)
   
3. B <- t(A)
   
4. 
   
5. m <- nrow(A)
   
6. n <- ncol(B)
   
7. 
   
8. M <- matrix(NA, m, n)
   
9. 
   
10. for(i in 1:m)
    
11.   for(j in 1:n)
    
12.     M[i,j] <- sum(A[i,] * B[,j])
    
13. 
    
14. M
    
15. A %*% B   

复制代码

owenqi 发表于 2022-2-8 12:27
照着乘法的定义做就可以了。比如

谢谢！我按照您的方法试了一下，显示Error in A[i, ] : incorrect number of dimensions，想请教一下这是哪一步出了问题呢？
A <- matrix(data=1,6,4,2,5,7, nrow = 2, ncol = 3, byrow = FALSE, dimnames = NULL)
A
B <- matrix(data=4,11,13,6,8,3, nrow = 3, ncol = 2, nrow = 3, ncol = 2, byrow = FALSE, dimnames = NULL)
B

m <- nrow(A)
n <- ncol(B)

M <- matrix(NA, nrow = m, ncol =n )

for(i in 1:m)
  for(j in 1:n)
    M[i,j] <- sum(A[i,]*B[,j])

M
A %*% B

yanglyqx 发表于 2022-2-9 23:08
谢谢！我按照您的方法试了一下，显示Error in A : incorrect number of dimensions，想请教一下这是哪一步 ...

1. A <- matrix(data=1,6,4,2,5,7, nrow = 2, ncol = 3, byrow = FALSE, dimnames = NULL)

复制代码

应该是

1. A <- matrix(data = c(1,6,4,2,5,7), nrow = 2, ncol = 3)

复制代码

owenqi 发表于 2022-2-11 07:09
应该是

解决了！非常感谢您！&#128591;

为什么会有人想到要在R这种高级语言中来用loop来求矩阵乘法

但凡任课老师有点责任心都不应布置这种作业吧

连FORTRAN这种古老的语言，也是直接函数（运算符）搞定了。