# NOT RUN {
data("mlLatest100k")
smallMl <- mlLatest100k[1:50, 1:100]
exExpl <- defineData(smallMl)
model1exp <- rrecsys(exExpl, alg = "funk", k = 10, gamma = 0.1, lambda = 0.001)
pre1 <- predict(model1exp, Round = TRUE)
# }
Run the code above in your browser using DataLab