# NOT RUN {
data(TO1Risk)
set.seed(1000)
#pick 4 random clusters
center <- TO1Risk[runif(4,1,nrow(TO1Risk)), ]
#Assigning each individual to nearest centre
numeric_Labels <- kml::affectIndivC(TO1Risk, center)
mode(numeric_Labels)
#transform numeric cluster labels to alphabets
alphab_Labels <- alpha_label(numeric_Labels)
mode(alphab_Labels)
# }
Run the code above in your browser using DataLab