Here is the code:
n <- length(unique(data$vehicleType))
set.seed(42)
result <- kmeans(data.norm, n)
result
Error message:
Error: object 'result' not found
The following should do the job, based on the answers in the comments.
set.seed(42)
result <- kmeans(data.norm, 6)
result