## ---- eval=FALSE---------------------------------------------------------
#  pSVD <- predict(svd)
#  pIB <- predict(ibknn)

## ---- eval=FALSE---------------------------------------------------------
#  rSVD <- recommendHPR(svd, topN = 3)
#  rIB <- recommendHPR(ibknn, topN = 3)
#  # Let’s compare results on user 3:
#  rSVD[4]
#  rIB[4]