powered by
qr2(x, tol = 0.0000001)
x
qr
hilbert <- function(n) { i <- 1:n; 1/outer(i-1,i,"+") } h5 <- hilbert(5); qr2(h5)
Run the code above in your browser using DataLab