powered by
isSymmetric.spam(object, tol = 100 * .Machine$double.eps, ...)
spam
all.equal.spam
object
t(object)
obj <- diag.spam(2) isSymmetric(obj) obj[1,2] <- .Machine$double.eps isSymmetric(obj)
Run the code above in your browser using DataLab