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