forgot to return result in selectVariableS.R

diff --git a/R/selectVariables.R b/R/selectVariables.R
index 92baec8..03578c9 100644 (file)
--- a/R/selectVariables.R
+++ b/R/selectVariables.R
@@ -42,4 +42,5 @@ selectVariables = function(phiInit,rhoInit,piInit,gamInit,mini,maxi,gamma,glambd
                list("selected"=selectedVariables,"Rho"=params$Rho,"Pi"=params$Pi)
        })
        parallel::stopCluster(cl)
+       out
 }