powered by
USV(G)
hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, "+") } X <- hilbert(9)[,1:6] h = USV(X) print( h$U )
Run the code above in your browser using DataLab