A simple item-based recommendation system in R