diff scripts/statistics/distributions/beta_inv.m @ 3656:96679fb690a4

[project @ 2000-04-04 06:16:22 by jwe]
author jwe
date Tue, 04 Apr 2000 06:16:23 +0000
parents 84b2f30007d5
children 38c61cbf086c
line wrap: on
line diff
--- a/scripts/statistics/distributions/beta_inv.m
+++ b/scripts/statistics/distributions/beta_inv.m
@@ -57,7 +57,7 @@
     a = a (k);
     b = b (k);
     x = x (k);
-    y = a ./ b;
+    y = a ./ (a + b);
     l = find (y < eps);
     if (any (l))
       y(l) = sqrt (eps) * ones (length (l), 1);