# 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.Pearson <- Similarity_Pearson (ratings, active_user=6,
near_user=c(1:dim(ratings)[2]))
# }
Run the code above in your browser using DataLab