if (FALSE) {
#' hilbert <- function(n) { i <- 1:n; 1 / outer(i - 1, i, "+") }
h9 <- hilbert(9); h9
qr(h9)$rank #--> only 7
qrh9 <- qr(h9, tol = 1e-10)
qrh9$rank
C <- as.big.matrix(h9)
dgeqrf(A=C)
# The big.matrix file backings will be deleted when garbage collected.
rm(C)
gc()
}
Run the code above in your browser using DataLab