objectCF_r <- CFbuilder(Data = movies[1:500,], Datatype = "ratings",
similarity = "pearson")
kclosestitems(CF = objectCF_r, Id_i = "The Lego Movie")
kclosestitems(CF = objectCF_r, Id_i = "Lincoln", k=5)
Run the code above in your browser using DataLab