# 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)
NewKNN.out <- NewKNN (ratings, active_user=6, Threshold_KNN=4,
max_scour=5, min_scour=1)
# }
Run the code above in your browser using DataLab