if (FALSE) {
library(BigDataStatMeth)
library(rhdf5)
# Create test matrix
N = 1000
M = 1000
set.seed(555)
a <- matrix(rnorm(N*M), N, M)
# Save to HDF5
bdCreate_hdf5_matrix("test.hdf5", a, "INPUT", "A", overwriteFile = TRUE)
# Compute cross product
bdCrossprod_hdf5("test.hdf5", "INPUT", "A",
outgroup = "OUTPUT",
outdataset = "result",
block_size = 1024,
paral = TRUE,
threads = 4)
}
Run the code above in your browser using DataLab