Fixed bugs in the Gibbs sampler. Fixed a bug which will set probF to 0 if the protoco...

[rsem.git] / rsem-plot-model

diff --git a/rsem-plot-model b/rsem-plot-model
index 5546ff60476914524599c1a5c79884ad8b4fdc05..c0eaa1b0b70faa4175478830b8e5d26fd4eff61c 100755 (executable)
--- a/rsem-plot-model
+++ b/rsem-plot-model
@@ -43,6 +43,7 @@ if (bval == 1) {
   y <- as.numeric(strsplit(readLines(con, n = 1), split = " ")[[1]])
   par(cex.axis = 0.7)
   barplot(y, space = 0, names.arg = 1:bin_size, main = "Read Start Position Distribution", xlab = "Bin #", ylab = "Probability")
+  par(cex.axis = 1.0)
 }
 strvec <- readLines(con, n = 1)