From 40b2f62a8378a8bf8d2627b14c7efb489ea4c6f0 Mon Sep 17 00:00:00 2001 From: kiran Date: Sat, 2 Oct 2010 05:27:13 +0000 Subject: [PATCH] Changed precision on Ti/Tv in venn diagrams git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4413 348d0f76-0448-11de-a6fe-93d51630548a --- R/gsacommons.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/gsacommons.R b/R/gsacommons.R index f85aadde2..59c1861e0 100644 --- a/R/gsacommons.R +++ b/R/gsacommons.R @@ -186,14 +186,14 @@ eval.getMetrics <- function(eval, jexl_expression) { .plot.callsetConcordance.getLabelText <- function(name, othername, metrics, filtered.metrics=NA, union) { if (is.na(filtered.metrics)) { - text = sprintf("%s (%0.01f%% of union)\nCalled:\nAll: %d, Ti/Tv: %0.1f\nKnown: %d, Ti/Tv: %0.1f\nNovel: %d, Ti/Tv: %0.1f", + text = sprintf("%s (%0.01f%% of union)\nCalled:\nAll: %d, Ti/Tv: %0.2f\nKnown: %d, Ti/Tv: %0.2f\nNovel: %d, Ti/Tv: %0.2f", name, 100*metrics$all/union$all.withfiltered, metrics$all, metrics$all.titv, metrics$known, metrics$known.titv, metrics$novel, metrics$novel.titv ); } else { - text = sprintf("%s (%0.01f%% of union)\nCalled in %s, filtered in %s:\nAll: %d, Ti/Tv: %0.1f\nKnown: %d, Ti/Tv: %0.1f\nNovel: %d, Ti/Tv: %0.1f\n\nCalled in %s, absent in %s:\nAll: %d, Ti/Tv: %0.1f\nKnown: %d, Ti/Tv: %0.1f\nNovel: %d, Ti/Tv: %0.1f", + text = sprintf("%s (%0.01f%% of union)\nCalled in %s, filtered in %s:\nAll: %d, Ti/Tv: %0.2f\nKnown: %d, Ti/Tv: %0.2f\nNovel: %d, Ti/Tv: %0.2f\n\nCalled in %s, absent in %s:\nAll: %d, Ti/Tv: %0.2f\nKnown: %d, Ti/Tv: %0.2f\nNovel: %d, Ti/Tv: %0.2f", name, 100*(metrics$all + filtered.metrics$all)/union$all.withfiltered, name, othername,