lu.Hermitian(x, lower = T, norm.comp = T, tune = <see below>, workspace = <see below>)
n <- 5 x <- Matrix( rnorm(n*n), nrow = n, ncol = n) x[row(x) > col(x)] <- t(x)[row(x) > col(x)] # construct symmetric matrix class(x) <- Matrix.class(x) lu(x) # symmetric indefinite factorization of A