if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
N <- 1500
M <- 1500
set.seed(555)
a <- matrix(rnorm(N*M), N, M)
b <- matrix(rnorm(N*M), N, M)
# Save to HDF5
bdCreate_hdf5_matrix("test.hdf5", a, "data", "A",
overwriteFile = TRUE)
bdCreate_hdf5_matrix("test.hdf5", b, "data", "B",
overwriteFile = FALSE)
# Perform subtraction
bdblockSubstract_hdf5("test.hdf5", "data", "A", "B",
outgroup = "results",
outdataset = "diff",
block_size = 1024,
paral = TRUE)
}
Run the code above in your browser using DataLab