基于概率传导和热传导的推荐算法R语言代码

本代码是论文《solving the apparent diversity-accuracy dilemma of recommender systems》的R语言模拟算法

针对论文中的图1

# user-object matrixv=c(1,0,0,1,0,    1,1,1,1,0,    1,0,1,0,0,    0,0,1,0,1)user=4ob=5am=matrix(v,nrow=4,ncol=5,byrow=T)rows=rowSums(am);cols=colSums(am);# 初始化权重矩阵W=matrix(0,nrow=5,ncol=5,byrow=T)# 计算权重矩阵for(a in 1:user)for(b in 1:ob){sum=0for(j in 1:4){sum=sum+ am[j,a]*am[j,b]/rows[j]}W[a,b]=1/cols[b]*sum}v=c(1,0,0,1,0)  #第一个用户的点击向量v0=W%*%v  #probS的结果v1=t(W)%*%v # heatS的结果