Nothing
## ---- eval=FALSE---------------------------------------------------------
# data("ml100k")
# d <- defineData(ml100k)
# e <- evalModel(d, folds = 2)
# evalPred(e, "ubknn", simFunct = "Pearson", neigh = 10)
## ---- eval=FALSE---------------------------------------------------------
# data("ml100k")
# d <- defineData(ml100k)
# e <- evalModel(d, folds = 2)
# evalRec(e, "ubknn", simFunct = "Pearson", neigh = 10, positiveThreshold = 3, topN = 3)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.