Create Recommender.R

First version: only implement the mean of numerators
There are spaces to improve by adding denominators