R语言中实现矩阵乘法

 

001、矩阵乘法符号 %*%；

矩阵相乘的条件是： 左侧矩阵的列数等于右侧矩阵的行数； 相乘的结果是矩阵的行数灯油左侧矩阵的行数， 列数等于右侧矩阵的列数。

 

c1 = c(2,3)
c2 = c(1,5)
c3 = c(4,2)
dat1 <- (data.frame(c1, c2, c3))
dat1 <- as.matrix(dat1)
dat1                        ## 矩阵1

r1 <- c(1, 2, 3)
r2 <- c(2, 2, 1)
r3 <- c(3, 1, 4)
dat2 <- rbind(r1, r2, r3)
dat2 <- as.matrix(dat2)
dat2                       ## 矩阵2

dat1 %*% dat2              ## 矩阵相乘