Density Peak cluster algorithm of in R