if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
N <- 1000
set.seed(123)
A <- matrix(rnorm(N*N), N, N)
B <- matrix(rnorm(N*N), N, N)
# Save to HDF5
bdCreate_hdf5_matrix("test.hdf5", A, "data", "matrixA",
overwriteFile = TRUE)
bdCreate_hdf5_matrix("test.hdf5", B, "data", "matrixB",
overwriteFile = FALSE)
# Multiply diagonals (element-wise)
result <- bdDiag_multiply_hdf5("test.hdf5", "data", "matrixA", "matrixB",
outgroup = "results",
outdataset = "diagonal_product",
paral = TRUE)
}
Run the code above in your browser using DataLab