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:
parent
341e752c6c
commit
70f492a6e8
|
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue