# NOT RUN {
Sys.unsetenv("LARES_FONT") # Temporal
data("iris")
df <- subset(iris, select = c(-Species))
# Calculate and plot
result <- clusterVisualK(df)
# You can use the data generated as well
lapply(result$data, function(x) head(x$cluster))
# }
Run the code above in your browser using DataLab