Prints out trivial debugging info

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@3957 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
depristo 2010-08-06 13:24:21 +00:00
parent 341e752c6c
commit 70f492a6e8
1 changed files with 2 additions and 0 deletions

View File

@ -224,10 +224,12 @@ if (length(l) > 0) {
}
for (ann1 in c[[1]]$anns) {
print(ann1)
plotAnn(d.known, d.novel, d.loci, ann1, paste(plotRoot, ".anndist.", ann1, ".pdf", sep=""));
for (ann2 in c[[1]]$anns) {
if (ann1 != ann2) {
print(paste("-- v ", ann2))
plotClusters(d.known, d.novel, d.loci, c, ann1, ann2, paste(plotRoot, ".cluster.", ann1, "_vs_", ann2, ".pdf", sep=""), maxVariants=maxVariants);
}
}