An implementation of David Horn's quantum clustering algorithm in R