2
मैं एक्सएक्सएक्स 'और एक्स'एक्स के ईजेनवल्यू अपघटन के माध्यम से एक्स का एक वैध एसवीडी क्यों नहीं प्राप्त कर सकता हूं?
मैं हाथ से SVD करने की कोशिश कर रहा हूँ: m<-matrix(c(1,0,1,2,1,1,1,0,0),byrow=TRUE,nrow=3) U=eigen(m%*%t(m))$vector V=eigen(t(m)%*%m)$vector D=sqrt(diag(eigen(m%*%t(m))$values)) U1=svd(m)$u V1=svd(m)$v D1=diag(svd(m)$d) U1%*%D1%*%t(V1) U%*%D%*%t(V) लेकिन अंतिम पंक्ति mवापस नहीं आती है। क्यों? ऐसा लगता है कि इन eigenvectors के संकेतों के साथ कुछ करना है ... या क्या मैंने इस प्रक्रिया को गलत समझा?
9
r
svd
eigenvalues