Error in `La.svd(x, nu, nv)`: error code 1 from Lapack routine 'dgesdd'

test_that("tmpinv works for AP/TM on symmetric 20x20 matrix", {
# --- create symmetric positive matrix ---
X_true <- abs(matrix(rnorm(m * p), nrow = m, ncol = p))
idx <- sample.int(n_cells, size = max(1L, floor(0.1 * n_cells)),
M     <- diag(n_cells)[idx, , drop = FALSE]
b_val <- matrix(as.numeric(X_true)[idx], ncol = 1L)
M = M, b_row = b_row, b_col = b_col, b_val = b_val,
test_that("tmpinv works for reduced AP/TM with zero diagonal (40x40)", {
idx <- sample.int(n_cells, size = max(1L, floor(0.2 * n_cells)),
# reduced model returns list of submodels
ttest_res <- rclsp::ttest(CLSP, sample_size = 30L, seed = 123456789L,

"tmpinv works for AP/TM on symmetric 20x20 matrix"
"tmpinv works for reduced AP/TM with zero diagonal (40x40)"

tmpinv works for AP/TM on symmetric 20x20 matrix