Repar function

[cispy]

anyone remember what this function do...I remember using it for something on another function, but I can't seem to find that function anymore.

repar = function(param)
{
p = exp(param[1])/(1+exp(param[1]))
q = (1-p) * exp(param[2])/(1+exp(param[2]))
r = 1 - p - q
c(p,q,r)
}