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