Simple recommender system implement by R.