objectCF_r <- CFbuilder(Data = movies[1:500,], Datatype = "ratings",
similarity = "pearson")
u1 = rownames(objectCF_r$MU)[1]
topkitems(CF=objectCF_r,Id_u = u1)
u2 = rownames(objectCF_r$MU)[2]
topkitems(CF=objectCF_r,Id_u = u2)
Run the code above in your browser using DataLab