v4 qbeta.m: quick fix for Octave
git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1932 ac1d8469-bf42-47a9-8791-bf33cf982152time-shift
parent
4993de5e95
commit
de66e31008
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue