R forceSymmetric-methods 强制矩阵为“对称矩阵”而不进行对称性检查

说明

将方阵 x 强制转换为 symmetricMatrix ，无需对称检查，因为它将应用于 as(x, "symmetricMatrix") 。

用法

forceSymmetric(x, uplo)

参数

x	任何方阵(数字)， “"traditional"” ( matrix ) 或继承自 Matrix 。
uplo	可选字符串，"U" 或 "L"，指示 x 的 “triangle” 一半应确定结果。默认值为 "U" ，除非 x 已具有 uplo 插槽(即，当它为 symmetricMatrix 或 triangularMatrix 时)，其中默认值为 x@uplo 。

值

继承自类 symmetricMatrix 的方阵。

例子

 ## Hilbert matrix
 i <- 1:6
 h6 <- 1/outer(i - 1L, i, "+")
 sd <- sqrt(diag(h6))
 hh <- t(h6/sd)/sd # theoretically symmetric
 isSymmetric(hh, tol=0) # FALSE; hence
 try( as(hh, "symmetricMatrix") ) # fails, but this works fine:
 H6 <- forceSymmetric(hh)

 ## result can be pretty surprising:
 (M <- Matrix(1:36, 6))
 forceSymmetric(M) # symmetric, hence very different in lower triangle
 (tm <- tril(M))
 forceSymmetric(tm)

也可以看看

symmpart 用于矩阵的对称部分，或强制转换 as(x, <symmetricMatrix class>) 。