Update cop_pse_auxiliary.R

Author: wwang93

R/cop_pse_auxiliary.R

@@ -66,7 +66,7 @@ cal_delta_star <- function(FR2max,
                            est_uncond, 
                            rxz, 
                            n_obs) {
-    if (FR2max > .99) {FR2max =.99}
+    if (FR2max > .99) {FR2max <-.99}
     #if (FR2max < R2 + inci) {FR2max = R2 + inci} check with Ken what this means
     if (FR2max > R2) {D <- sqrt(FR2max - R2)}