data("MSWeb")
MSWeb10 <-MSWeb[rowCounts(MSWeb) >10,]
rec <- Recommender(MSWeb10[1:100,], method = "POPULAR")
## create recommendations
pre <- predict(rec, MSWeb10[101:102], n = 10)
pre
LIST(pre)
LIST(pre, decode = FALSE)Run the code above in your browser using DataLab