R/apply_ideq.R

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

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