Nothing
identifyTheEquivalent = function(queues, target, dataset, cvar, z, test, wei, threshold, univariateModels, pvalues, hash, stat_hash, pvalue_hash)
{
z = t(z);
#if we have more than one equivalent vars in z , we select the first one
#for loop if we dont use the below lapply function
#equalsY = 0;
for ( i in 1:ncol(z) ) {
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]]) );
break;
#equalsY = equalsY+1;
}
}
#cat("\nEquals Ys in the current z subset = %d",equalsY);
return(queues);
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.