if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
X1 <- matrix(1:100, 10, 10)
X2 <- matrix(101:200, 10, 10)
X3 <- matrix(201:300, 10, 10)
# Save to HDF5
fn <- "test.hdf5"
bdCreate_hdf5_matrix(fn, X1, "data", "matrix1",
overwriteFile = TRUE)
bdCreate_hdf5_matrix(fn, X2, "data", "matrix2",
overwriteFile = FALSE)
bdCreate_hdf5_matrix(fn, X3, "data", "matrix3",
overwriteFile = FALSE)
# Reduce datasets by addition
bdReduce_hdf5_dataset(
filename = fn,
group = "data",
reducefunction = "+",
outgroup = "results",
outdataset = "sum_matrix",
overwrite = TRUE
)
# Cleanup
if (file.exists(fn)) {
file.remove(fn)
}
}
Run the code above in your browser using DataLab