Potential Issue #11?

stscl · Oct 25, 2024 · b043ee6 · b043ee6
1 parent 70bcadd
commit b043ee6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/lesh.R b/R/lesh.R
@@ -41,7 +41,7 @@ lesh = \(formula,data,cores = 1,...){
                      by = c("variable1" = "variable")) %>%
     dplyr::left_join(dplyr::select(spd,variable,spd2 = spd_theta),
                      by = c("variable2" = "variable")) %>%
-    dplyr::mutate(spd = (spd1 + spd2), spd1 = spd1 / spd, spd2 = spd2 / spd,
+    dplyr::mutate(spd = (abs(spd1) + abs(spd2)), spd1 = abs(spd1) / spd, spd2 = abs(spd2) / spd,
                   `Variable1 SPD` = `Variable1 and Variable2 interact Q-statistics`*spd1,
                   `Variable2 SPD` = `Variable1 and Variable2 interact Q-statistics`*spd2) %>%
     dplyr::select(-dplyr::starts_with('spd'))