标签: singular

有许多问题解释如何回应单数或复数变量,但没有人回答我的问题,即如何设置变量以包含所述单数或复数值.

我原以为它会起作用如下:

$bottom="You have favourited <strong>$count</strong> " . $count == 1 ? 'user':'users';

然而,这不起作用.

有人可以建议我如何实现上述目标吗？

该链接具有我的矩阵的 dput 输出结构。
\n https://pastebin.com/TsUzuF4L

\n

solve() 中的错误：系统在计算上是奇异的：R 中的倒数条件数 = 4.35295e-21

\n

我想知道R中是否有任何通用方法可以确定矩阵可逆？有什么功能吗？

我添加了属性tol=FALSEor tol = 1e-22（与 error 中的数字相比），但我仍然收到相同的错误。

附：我将其放在 stackexchange 上的原因是，我的矩阵行列式不为零，但 R 给出了上面的错误，并相信我的矩阵不可逆！怎么会？！

我的矩阵是 45 \xc3\x97 45。dput()输出超出了 Stack Overflow 上 40000 个字符的限制，但为了了解其数字是什么，我在上面显示了其中的一部分。

是否有一种类似于单一化的方法来预先添加"a"或"根据这个词？

• 喜欢f(apple)#=>一个苹果
• f(carpet) 地毯

我需要以-1/2 的幂计算矩阵A，这基本上意味着初始矩阵的逆的平方根。

如果 A 是奇异的，则使用MASS 包中的ginv函数计算 Moore-Penrose 广义逆，否则使用求解函数计算正则逆。

矩阵 A 定义如下：

A <- structure(c(604135780529.807, 0, 58508487574887.2, 67671936726183.9, 
            0, 0, 0, 1, 0, 0, 0, 0, 58508487574887.2, 0, 10663900590720128, 
            10874631465443760, 0, 0, 67671936726183.9, 0, 10874631465443760, 
            11315986615387788, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1), .Dim = c(6L, 
                                                                                   6L))

我通过等级和维度的比较来检查奇异性。

rankMatrix(A) == nrow(A)

上面的代码返回 FALSE，所以我必须使用ginv来获得相反的结果。A 的倒数如下：

A_inv <- ginv(A)

使用 expm 包中的 sqrtm 函数计算逆矩阵的平方根。

library(expm)
sqrtm(A_inv)

该函数返回以下错误：

solve.default(X[ii, …