Classifier using R