Elbow Method In R