update signITCV to cover more scenarios

konfound-project · Oct 10, 2023 · d690abb · d690abb
1 parent b07bf9b
commit d690abb
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/test_sensitivity.R b/R/test_sensitivity.R
@@ -122,10 +122,19 @@ test_sensitivity <- function(est_eff,
    }
 
   # now determine the sign of ITCV 
+  ## signITCV may not be a function of whether nu > 0
   if ((est_eff >= nu) & (nu >= 0) & (est_eff > beta_threshold)) {signITCV = 1}
+  if ((est_eff >= nu) & (nu < 0) & (est_eff > beta_threshold)) {signITCV = 1}
+
   if ((est_eff <= nu) & (nu <= 0) & (est_eff < beta_threshold)) {signITCV = -1}
+  if ((est_eff <= nu) & (nu > 0) & (est_eff < beta_threshold)) {signITCV = -1}
+
   if ((est_eff >= nu) & (nu >= 0) & (est_eff < beta_threshold)) {signITCV = -1}
+  if ((est_eff >= nu) & (nu < 0) & (est_eff < beta_threshold)) {signITCV = -1}
+
   if ((est_eff <= nu) & (nu <= 0) & (est_eff > beta_threshold)) {signITCV = 1}
+  if ((est_eff <= nu) & (nu > 0) & (est_eff > beta_threshold)) {signITCV = 1}
+
 
   if ((est_eff >= 0) & (0 > nu) & (est_eff > beta_threshold)) {signITCV = 1}
   if ((est_eff <= 0) & (0 < nu) & (est_eff < beta_threshold)) {signITCV = -1}