我想知道你推荐的计算矩阵逆的方法是什么?

我发现的方法似乎并不令人满意.例如

> c=rbind(c(1, -1/4), c(-1/4, 1))  
> c  
      [,1]  [,2]  
[1,]  1.00 -0.25  
[2,] -0.25  1.00  
> inv(c)  
Error: could not find function "inv"  
> solve(c)    
          [,1]      [,2]  
[1,] 1.0666667 0.2666667  
[2,] 0.2666667 1.0666667  
> solve(c)*c  
            [,1]        [,2]  
[1,]  1.06666667 -0.06666667  
[2,] -0.06666667  1.06666667  
> qr.solve(c)*c  
            [,1]        [,2]  
[1,]  1.06666667 -0.06666667  
[2,] -0.06666667  1.06666667  

谢谢

推荐答案

solve(c)确实给出了正确的反比.代码的问题在于,矩阵乘法使用了错误的运算符.应该使用solve(c) %*% c调用R中的矩阵乘法.

当调用solve(c) * c时,R执行元素对元素的乘法.

R相关问答推荐

替换字符的所有实例,但仅限于匹配字符串中

如何使用Cicerone指南了解R Shiny中传单 map 的元素?

高质量地将R格式的图表从Word中输出

通过绘图 Select 线串几何体并为其着色

使用ggplot 2根据R中的类别排列Likert比例gplot

使用对管道内单元格的引用生成新变量

找出疾病消失的受试者

查找图下的面积

警告:lmdif:info = 0. nls. lm()函数的输入参数不正确

如何改变x轴比例的列在面

多个模拟序列间的一种预测回归关系

在嵌套列表中查找元素路径的最佳方法

如何写商,水平线,在一个单元格的表在R

仅 Select 超过9行的CSV文件

减go R中列表的所有唯一元素对

R -基线图-图形周围的阴影区域

根据r中每行中的日期序列,使用列名序列创建新列

为什么不能使用lApply在包装函数中调用子集

替换在以前工作的代码中有x行&q;错误(geom_sf/gganimate/dow_mark)

子样本间系数检验的比较