Better null model and clean up of psych::
use while loops for PD matrix