From 32faf8a9efff71929a8681e81eefbf9c34b9ce0f Mon Sep 17 00:00:00 2001
From: Mauricio Caceres <mauricio.caceres.bravo@gmail.com>
Date: Sat, 11 May 2024 12:25:01 -0400
Subject: [PATCH] Debugging OSX v2

---
 R/arp-nuisance.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/arp-nuisance.R b/R/arp-nuisance.R
index 7c96e65..89de32b 100644
--- a/R/arp-nuisance.R
+++ b/R/arp-nuisance.R
@@ -536,7 +536,7 @@
 
     sigma_B_dual = base::sqrt( base::t(lpDualSoln$gamma_tilde) %*% sigma_ARP %*% lpDualSoln$gamma_tilde)
 
-    if is.na(sigma_B_dual) {
+    if ( is.na(sigma_B_dual) ) {
       print( base::t(lpDualSoln$gamma_tilde) %*% sigma_ARP %*% lpDualSoln$gamma_tilde)
       print(sigma_ARP)
       print(lpDualSoln$gamma_tilde)