Я набрал "inv function r" в Google. Первый результат был pracma
пакет:
library('pracma')
A <- matrix( c(5, 1, 0,
3,-1, 2,
4, 0,-1), nrow=3, byrow=TRUE)
det(A)
[1] 16
(AI <- inv(A))
[,1] [,2] [,3]
[1,] 0.0625 0.0625 0.125
[2,] 0.6875 -0.3125 -0.625
[3,] 0.2500 0.2500 -0.500