small edit to address possible gp issue

Author: jrosen48

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)}