objectCF_r <- CFbuilder(Data = movies[1:500,], Datatype = "ratings",
similarity = "cosine")
estimaterating(CF=objectCF_r,Id_u="35",Id_i="Despicable Me 2")
estimaterating(CF=objectCF_r,Id_u="35",Id_i="Her")
Run the code above in your browser using DataLab