if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
matA <- matrix(1:15, nrow = 3, byrow = TRUE)
matB <- matrix(15:1, nrow = 3, byrow = TRUE)
# Save to HDF5
fn <- "test.hdf5"
bdCreate_hdf5_matrix(fn, matA, "data", "matrix1",
overwriteFile = TRUE)
bdCreate_hdf5_matrix(fn, matB, "data", "matrix2",
overwriteFile = FALSE)
# Remove elements
bdRemove_hdf5_element(fn, c("data/matrix1", "data/matrix2"))
# Cleanup
if (file.exists(fn)) {
file.remove(fn)
}
}
Run the code above in your browser using DataLab