Matrix.class(x, tol = 0, symmetry = T, unit.diagonal = T, triangularity = c(T, T), orthogonality = c(T, T), normality = c(T, T))
x <- Matrix( rnorm(9), 3, 3) Matrix.class(x) v <- rnorm(3) v <- v /vecnorm(v) x <- Diagonal(3) - 2 * (v %*% t(v)) Matrix.class(x) Matrix.class(x, tol = sqrt(.Machine$double.eps))