arandi function

Port of the arandi function from the mcclust package which is no longer maintained.