Here is the code:
n <- length(unique(data$vehicleType)) set.seed(42) result <- kmeans(data.norm, n) result
Error message: