data <- matrix(c(1,2,3,4,5,6,7,8,9,10,11,12), nrow = 4, ncol = 3)
svd(data) # decomposicao de valor singular usual
GSVD(data) # GSVD com os mesmos resultados anteriores
# GSVD com pesos para linhas e colunas
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