# 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)
Pearson.out <- Pearson (ratings, active_user=6, Threshold_KNN=4)
predict <- Prediction (ratings, active_user=6,
near_user=Pearson.out$near_user_Pearson,
sim_x=Pearson.out$sim_Pearson,
KNN=length(Pearson.out$sim_Pearson))
# }
Run the code above in your browser using DataLab