https://aiappworld.com/tutorial/applied-unsupervised-learning-with-r/