estim_PS function

Estimates in an admixture using Patra and Sen approach