# NOT RUN {
x <- matrix(sample(c(0:5), size = 200, replace = TRUE,
prob = c(.6,.8,.8,.8,.8,.8)), nrow = 20, byrow = TRUE)
x <- defineData(x)
e <- evalModel(x, 5)
SVDEvaluation <- evalRec(e, "FunkSVD", goodRating = 4, k = 4)
SVDEvaluation
IBEvaluation <- evalRec(e, "IBKNN", goodRating = 4, neigh = 5)
IBEvaluation
# }
Run the code above in your browser using DataLab