计算第一列的相似度矩阵
Calculate similarity matrix for the 1st column
我已经开始从事一些 ML 项目并使用 R 作为首选语言。我正在尝试构建一个基本的推荐系统
http://www.dataperspective.info/2014/05/basic-recommendation-engine-using-r.html
我需要找到相似矩阵(根据网站)并使用余弦函数(在 'lsa' 包中)找到 user_similarity。
library(lsa)
data_rating <- read.csv("recommendation_basic1.csv", header = TRUE)
x = data_rating[,2:7]
x[is.na(x)] = 0
print(x)
similarity_users <- cosine(as.matrix(x))
similarity_users
但我需要找到用户之间的相似性矩阵,这段代码为我提供了电影之间的输出相似性矩阵。我需要修改以下行吗?
x = data_rating[,2:7]
PS。 recommendation_basic1.csv 与 link 相同。
把这个放进去,这样问题就不会没有答案了。
你可以直接使用similarity_users <- cosine(as.matrix(t(x)))
这里的t
是矩阵转置,所以只是切换了行列,相当于切换了用户和电影。
我已经开始从事一些 ML 项目并使用 R 作为首选语言。我正在尝试构建一个基本的推荐系统
http://www.dataperspective.info/2014/05/basic-recommendation-engine-using-r.html
我需要找到相似矩阵(根据网站)并使用余弦函数(在 'lsa' 包中)找到 user_similarity。
library(lsa)
data_rating <- read.csv("recommendation_basic1.csv", header = TRUE)
x = data_rating[,2:7]
x[is.na(x)] = 0
print(x)
similarity_users <- cosine(as.matrix(x))
similarity_users
但我需要找到用户之间的相似性矩阵,这段代码为我提供了电影之间的输出相似性矩阵。我需要修改以下行吗?
x = data_rating[,2:7]
PS。 recommendation_basic1.csv 与 link 相同。
把这个放进去,这样问题就不会没有答案了。
你可以直接使用similarity_users <- cosine(as.matrix(t(x)))
这里的t
是矩阵转置,所以只是切换了行列,相当于切换了用户和电影。