annotate toolboxes/FullBNT-1.0.7/KPMstats/dirichletrnd.m @ 0:cc4b1211e677 tip

initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"

function x = dirichletrnd(alpha)
%DIRICHLETRND Random vector from a dirichlet distribution.
%   x = dirichletrnd(alpha) returns a vector randomly selected
%   from the Dirichlet distribution with parameter vector alpha.
%
%   The algorithm used is the following:
%   For each alpha(i), generate a value s(i) with distribution
%   Gamma(alpha(i),1).  Now x(i) = s(i) / sum_j s(j).
%   
%   The above algorithm was recounted to me by Radford Neal, but
%   a reference would be appreciated...
%   Do the gamma parameters always have to be 1?
%
%   Author: David Ross
%   $Id: dirichletrnd.m,v 1.1.1.1 2005/05/22 23:32:12 yozhik Exp $

%-------------------------------------------------
% Check the input
%-------------------------------------------------
error(nargchk(1,1,nargin));

if min(size(alpha)) ~= 1 | length(alpha) < 2
    error('alpha must be a vector of length at least 2');
end


%-------------------------------------------------
% Main
%-------------------------------------------------
gamma_vals = gamrnd(alpha, ones(size(alpha)), size(alpha));
denom = sum(gamma_vals);
x = gamma_vals / denom;