Separated R scripts, added one to create formula for classification