Implements the Simple Learner algorithm in R