From c0a6fe5f0d59698b7e7aeb734a6d6c96539c6a3b Mon Sep 17 00:00:00 2001
From: Matthias Vallentin <vallentin@icir.org>
Date: Fri, 5 Feb 2016 15:03:55 -0800
Subject: [PATCH] Fix plots of exponential and gamma

Reported by Farid Cheraghi.
---
 VERSION              | 2 +-
 figs/distributions.R | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/VERSION b/VERSION
index d917d3e..b1e80bb 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.1.2
+0.1.3
diff --git a/figs/distributions.R b/figs/distributions.R
index d49af65..2f85274 100644
--- a/figs/distributions.R
+++ b/figs/distributions.R
@@ -236,12 +236,12 @@ plot.f <- function(mode, xmin=0, xmax=5,
 plot.exp <- function(mode, xmin=0, xmax=5,
                      theta=data.frame(c(2,1,0.4)),
                      title="Exponential") {
-  lab.fn <- function(x) substitute(beta==i, list(i=x))
+  lab.fn <- function(x) substitute(beta==i, list(i=1/x))
   plot.continuous(xmin, xmax, theta, "exp", mode, title, lab.fn)
 }
 
 plot.gamma <- function(mode, xmin=0, xmax=20,
-                       theta=data.frame(a=c(1,2,3,5,9), b=c(2,2,2,1,0.5)),
+                       theta=data.frame(a=c(1,2,3,5,9), b=c(0.5,0.5,0.5,1,2)),
                        title="Gamma") {
   lab.fn <- function(x, y) substitute(list(alpha==i, beta==j), list(i=x, j=y))
   plot.continuous(xmin, xmax, theta, "gamma", mode, title, lab.fn)