v4 qbeta.m: quick fix for Octave

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1932 ac1d8469-bf42-47a9-8791-bf33cf982152
2008-07-04 13:37:01 +00:00 · 2008-07-04 13:37:01 +00:00 · de66e31008
parent 4993de5e95
commit de66e31008
1 changed files with 6 additions and 0 deletions
--- 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);