RVD中的SVD降维

Question

我试图在R中使用SVD进行矩阵的降维。我能找到“MovMat”矩阵的D，U，V矩阵。我想减少它们在D矩阵中的值小于“阈值”的一些维度。 我写下面的代码。但我不知道如何在“MovMat”矩阵中找到低于阈值的值。

library(cluster) 
library(fpc) 

# "MovMat" is a users-movies Matrix. 
# It is contain the rating score which each user gives for each movie. 
svdAllDimensions = svd(MovMat) 
d=diag(svd$d) # Finding D, U, V 
u=svd$u 
v=svd$v 

Answer 1

我分配d小于阈值和再乘以d，V，U彼此并寻找新的矩阵具有较少维的值。

for(i in rowOfD){ 
    for(j in columnOfD){ 
    if (i==j){ 
     if(d[i,j]<Threshold){ 
     d[i,j] = 0 
     } 
    } 
    } 
}