data(Jester5k)
## create 90/10 split (known/unknown) for the first 500 users in Jester5k
e <- evaluationScheme(Jester5k[1:500], method="split", train=0.9,
k=1, given=15, goodRating=5)
e
## create a user-based CF recommender using training data
r <- Recommender(getData(e, "train"), "UBCF")
## create predictions for the test data using known ratings (see given above)
p <- predict(r, getData(e, "known"), type="ratings")
p
## compute error metrics averaged per user and then averaged over all
## recommendations
calcPredictionError(p, getData(e, "unknown"))
calcPredictionError(p, getData(e, "unknown"), byUser=TRUE)Run the code above in your browser using DataLab