small edit to address possible gp issue

konfound-project · Feb 19, 2024 · 8bc79ef · 8bc79ef
1 parent e16bc75
commit 8bc79ef
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/cop_pse_auxiliary.R b/R/cop_pse_auxiliary.R
@@ -66,7 +66,9 @@ cal_delta_star <- function(FR2max,
                            est_uncond, 
                            rxz, 
                            n_obs) {
-    if (FR2max > .99) {FR2max <-.99}
+    if (FR2max > .99) else {
+        FR2max <- .99
+        }
     #if (FR2max < R2 + inci) {FR2max = R2 + inci} check with Ken what this means
     if (FR2max > R2) {D <- sqrt(FR2max - R2)}