Change LR to LM

pachterlab · Jul 4, 2023 · 3b7224e · 3b7224e
1 parent 741f5f9
commit 3b7224e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/SFEMethod-multivariate.R b/R/SFEMethod-multivariate.R
@@ -65,9 +65,9 @@ multispati_rsp <- function(x, listw, nfposi = 30L, nfnega = 30L, scale = TRUE) {
  stop("listw must be either a listw object or an adjacency matrix.")
  covar <- t(x) %*% (W + t(W)) %*% x / (2*nrow(x))
  if (nfnega == 0L) {
- res <- eigs_sym(covar, k = nfposi, which = "LR")
+ res <- eigs_sym(covar, k = nfposi, which = "LM")
  } else if (nfposi == 0L) {
- res <- eigs_sym(covar, k = nfnega, which = "SR")
+ res <- eigs_sym(covar, k = nfnega, which = "SM")
  } else {
  nf <- max(nfposi, nfnega)
  res <- eigs_sym(covar, k = 2*nf, which = "BE")