Думаю, вы ищете solve
:
set.seed(42)
m1 <- matrix(rnorm(9), 3)
m2 <- matrix(rexp(9), 3)
m3 <- m1 %*% m2
m4 <- solve(m1, m3) #m3 "divided" by m1
all.equal(m2, m4)
#[1] TRUE
m5 <- m3 %*% solve(m2) #m3 "divided" by m2
all.equal(m1, m5)
#[1] TRUE
Конечно, это не может быть решено для всех матриц m3
и m1
соответственно. m2
и лучшие алгоритмы могут существовать в зависимости от этих матриц. Изучите линейную алгебру.