Began working on class R script