# NOT RUN {
ratings <- matrix(c( 2, 5, NaN, NaN, NaN, 4,
NaN, NaN, NaN, 1, NaN, 5,
NaN, 4, 5, NaN, 4, NaN,
4, NaN, NaN, 5, NaN, NaN,
5, NaN, 2, NaN, NaN, NaN,
NaN, 1, NaN, 4, 2, NaN),nrow=6,byrow=TRUE)
sim <- simple_similarity(ratings, max_score=5, min_score=1, ac=1)
ratings2 <- Score_replace(ratings, sim_index= sim$sim_index, ac=1)
predictedItems <- simple_predict(ratings, ratings2, ac=1)
# }
Run the code above in your browser using DataLab