rosario_sample function

ROSARIO randomization of an assemblage matrix