if (FALSE) {
library(BigDataStatMeth)
# Create a test HDF5 file
fn <- "test.hdf5"
X <- matrix(rnorm(100), 10, 10)
# Save matrix to HDF5
bdCreate_hdf5_matrix(fn, X, "data", "matrix1",
overwriteFile = TRUE)
# Get dimensions
dims <- bdgetDim_hdf5(fn, "data/matrix1")
print(paste("Rows:", dims[1]))
print(paste("Columns:", dims[2]))
# Cleanup
if (file.exists(fn)) {
file.remove(fn)
}
}
Run the code above in your browser using DataLab