*
* %BetaParms(mean,sd)
* returns a 2-vector with the two parameters for a Beta distribution with
* the given mean and standard deviation
*
* Revision Schedule:
*  07/2009 Written by Tom Doan, Estima.
*
function %BetaParms mean sd
type vect[real] %BetaParms
type real mean
type real sd
*
local real temp
compute temp=mean*(1-mean)/sd^2-1
compute %BetaParms=||mean*temp,(1-mean)*temp||
end

