fix for returnAllResults

hfgolino · Mar 26, 2024 · cc0d502 · cc0d502
1 parent 6d271ac
commit cc0d502
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/EBICglasso.qgraph.R b/R/EBICglasso.qgraph.R
@@ -145,7 +145,7 @@
 #' @export
 #'
 # Computes optimal glasso network based on EBIC ----
-# Updated 24.10.2023
+# Updated 26.03.2024
 EBICglasso.qgraph <- function(
     data, # Sample covariance matrix
     n = NULL,
@@ -365,17 +365,17 @@ EBICglasso.qgraph <- function(
     if(model.selection == "ebic"){
 
       # Add EBICs and Log-likelihoods
-      results$ebic <- EBICs; results$loglik <- lik;
+      result$ebic <- EBICs; result$loglik <- lik;
 
     }else if(model.selection == "jsd"){
 
       # Add JSDs
-      results$jsd <- JSDs
+      result$jsd <- JSDs
 
     }
 
     # Return results
-    return(results)
+    return(result)
 
   }