-#'
-selectVariables <- function(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma,
- glambda, X, Y, thresh = 1e-08, eps, ncores = 3, fast = TRUE)
- {
- if (ncores > 1)
- {
+selectVariables <- function(phiInit, rhoInit, piInit, gamInit, mini, maxi, gamma,
+ glambda, X, Y, thresh = 1e-08, eps, ncores = 3, fast)
+{
+ if (ncores > 1) {