This code is for r for data mining class