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 
     } 
    } 
    } 
}