data(MovieLense)
MovieLense
## visualize part of the matrix
image(MovieLense[1:100,1:100])
## number of ratings per user
hist(rowCounts(MovieLense))
## number of ratings per movie
hist(colCounts(MovieLense))
## mean rating (averaged over users)
mean(rowMeans(MovieLense))
## create a recommender
rec <- Recommender(MovieLense, method="POP")
pre <- predict(rec, MovieLense[1])
LIST(pre)Run the code above in your browser using DataLab