From d0e44b7a8eea7a9b53d7cb47f36c50b87c7b9f05 Mon Sep 17 00:00:00 2001
From: kiran <kiran@348d0f76-0448-11de-a6fe-93d51630548a>
Date: Sat, 2 Oct 2010 05:18:48 +0000
Subject: [PATCH] Lower precision on Ti/Tv in variant summary matrix

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4412 348d0f76-0448-11de-a6fe-93d51630548a
---
 R/gsacommons.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/gsacommons.R b/R/gsacommons.R
index 919bb20ad..f85aadde2 100644
--- a/R/gsacommons.R
+++ b/R/gsacommons.R
@@ -222,7 +222,7 @@ plot.titlePage <- function(title, author) {
     knownTiTv = eval$TiTv[which(eval$TiTv$jexl_expression == jexl_expression & eval$TiTv$filter_name == "called" & eval$TiTv$novelty_name == "known"),]$ti.tv_ratio;
     novelTiTv = eval$TiTv[which(eval$TiTv$jexl_expression == jexl_expression & eval$TiTv$filter_name == "called" & eval$TiTv$novelty_name == "novel"),]$ti.tv_ratio;
 
-    cbind(allVariants, knownVariants, knownTiTv, novelVariants, novelTiTv);
+    cbind(allVariants, knownVariants, sprintf("%0.2f", knownTiTv), novelVariants, sprintf("%0.2f", novelTiTv));
 }
 
 plot.variantTable <- function(eval, title) {