r语言matrix计算inverse

在R语言中，可以使用`solve()`函数来计算矩阵的逆。如果矩阵不可逆，则会返回一个错误。

例如，如果有一个2x2的矩阵A，可以通过以下方式计算其逆矩阵：

A <- matrix(c(1, 2, 3, 4), nrow=2, ncol=2)
A_inverse <- solve(A)

# 输出逆矩阵
A_inverse

输出结果为：

           [,1]       [,2]
[1,] -2.0000000  1.0000000
[2,]  1.5000000 -0.5000000

如果矩阵不可逆，例如一个奇异矩阵，那么会返回一个错误：

B <- matrix(c(1, 2, 2, 4), nrow=2, ncol=2)
B_inverse <- solve(B)

# 输出错误信息
Error in solve.default(B) : 
  system is computationally singular: reciprocal condition number = 6.66134e-17