#perform Wilcoxon test for EnVision/Affy corellation data
data1<-examples$jointUniquePairs$subsetData(examples$corr$getData(),
"EnVision_Q & !NetAffx_Q");
data2<-examples$jointUniquePairs$subsetData(examples$corr$getData(),
"!EnVision_Q & NetAffx_Q");
wilcox<-wilcox.test(data1,data2);
wilcox[names(wilcox)];
Run the code above in your browser using DataLab