powered by
r1(X1, X2)r2(X1, X2)r3(X1, X2)r4(X1, X2)GCD(X1, X2, ncomp1 = Rank(X1) - 1, ncomp2 = Rank(X2) - 1)
r2(X1, X2)
r3(X1, X2)
r4(X1, X2)
GCD(X1, X2, ncomp1 = Rank(X1) - 1, ncomp2 = Rank(X2) - 1)
matrix
data.frames
SMI
RV
X1 <- matrix(rnorm(100*300),100,300) usv <- svd(X1) X2 <- usv$u[,-3] %*% diag(usv$d[-3]) %*% t(usv$v[,-3]) r1(X1,X2) r2(X1,X2) r3(X1,X2) r4(X1,X2) GCD(X1,X2) GCD(X1,X2, 5,5)
Run the code above in your browser using DataLab