norm.svd.Matrix(x)
x <- Matrix( sample(-3:3, size = 9, replace = T), nrow = 3, ncol = 3) norm(svd(x))