# \donttest{
tmp <- tempfile(fileext = ".h5")
X <- hdf5_create_matrix(tmp, "data/A", data = matrix(rnorm(10000), 100, 100))
X <- hdf5_matrix(tmp, "data/A")
# Default (auto method)
res <- qr(X)
dim(res$Q) # m x m (or m x min(m,n) if thin = TRUE)
dim(res$R) # m x n (or min(m,n) x n)
# Explicit TSQR for a tall-skinny matrix (recommended: thin = TRUE)
hdf5_close_all()
unlink(tmp)
# }
Run the code above in your browser using DataLab