if (FALSE) {
# Create a sample HDF5 file with a matrix
library(rhdf5)
A <- matrix(rnorm(1000), 100, 10)
h5createFile("example.h5")
h5write(A, "example.h5", "mygroup/mymatrix")
# Compute QR decomposition
bdQR_hdf5("example.h5", "mygroup", "mymatrix",
outgroup = "mygroup/results",
outdataset = "qr_result",
thin = TRUE)
}
Run the code above in your browser using DataLab