From de66e3100877e585c72787e276407f289b5de1d8 Mon Sep 17 00:00:00 2001
From: sebastien <sebastien@ac1d8469-bf42-47a9-8791-bf33cf982152>
Date: Fri, 4 Jul 2008 13:37:01 +0000
Subject: [PATCH] v4 qbeta.m: quick fix for Octave

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1932 ac1d8469-bf42-47a9-8791-bf33cf982152
---
 matlab/qbeta.m | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/matlab/qbeta.m b/matlab/qbeta.m
index d20ce1ad6..c8383718b 100644
--- a/matlab/qbeta.m
+++ b/matlab/qbeta.m
@@ -12,6 +12,12 @@ end
 if any(any(abs(2*p-1)>1))
    error('A probability should be 0<=p<=1, please!')
 end
+
+if exist('OCTAVE_VERSION')
+    x = betainv(p, a, b);
+    return
+end
+
 b = min(b,100000);
 
 x = a ./ (a+b);