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 d78d5c720a5961f187d411c939016e551eb1cd86..c0eaa1b0b70faa4175478830b8e5d26fd4eff61c 100755 (executable)
--- a/rsem-plot-model
+++ b/rsem-plot-model
@@ -41,7 +41,9 @@ bval <- as.numeric(readLines(con, n = 1)[1])
 if (bval == 1) {
   bin_size <- as.numeric(readLines(con, n = 1)[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)