data <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12), nrow = 4, ncol = 3)
svd(data) # Usual Singular Value Decomposition
GSVD(data) # GSVD with the same previous results
# GSVD with weights for rows and columns
GSVD(data, plin = c(0.1,0.5,2,1.5), pcol = c(1.3,2,0.8))
Run the code above in your browser using DataLab