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