# setting up the objects
dsd <- DSD_GaussianStatic(k=3)
dsc <- DSC_Kmeans(k=3)
cluster(dsc, dsd, 500)
# getting the centers (these are macro-clusters since
# Kmeans is a macro-cluster)
get_centers(dsc)
Run the code above in your browser using DataLab