Assignment 4

K-means in R, with tests