Write Draft Train and Predict R Scripts

Write drate train and predict R scripts. Cosine distance method needs work.