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))
|
if any(any(abs(2*p-1)>1))
|
||||||
error('A probability should be 0<=p<=1, please!')
|
error('A probability should be 0<=p<=1, please!')
|
||||||
end
|
end
|
||||||
|
|
||||||
|
if exist('OCTAVE_VERSION')
|
||||||
|
x = betainv(p, a, b);
|
||||||
|
return
|
||||||
|
end
|
||||||
|
|
||||||
b = min(b,100000);
|
b = min(b,100000);
|
||||||
|
|
||||||
x = a ./ (a+b);
|
x = a ./ (a+b);
|
||||||
|
|
Loading…
Reference in New Issue