R/apply_ideq.glmm.R

In MXM: Feature Selection (Including Multiple Solutions) and Bayesian Networks

apply_ideq.glmm = function(i, queues, target, reps, group, dataset, cvar, z, test, wei, threshold, univariateModels, hash, stat_hash, pvalue_hash, slopes)
{
  w = z[,i];
  w = t(t(w));
  zPrime = c(setdiff(z , w) , cvar);
  cur_results = test(target , reps, group, dataset , w, zPrime , wei = wei, univariateModels, hash = hash, stat_hash, pvalue_hash, slopes = slopes);
  
  if ( cur_results$pvalue > threshold ) {
    queues[[w]] = as.matrix(c(queues[[w]] , queues[[cvar]]));
    return(queues[[w]]);
  } else  return(NA);
}