if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
N <- 1000
set.seed(123)
A <- matrix(rnorm(N*N), N, N)
B <- matrix(rnorm(N*N, mean=1), N, N) # Avoid division by zero
# Save to HDF5
bdCreate_hdf5_matrix("test.hdf5", A, "data", "matrixA",
overwriteFile = TRUE)
bdCreate_hdf5_matrix("test.hdf5", B, "data", "matrixB",
overwriteFile = FALSE)
# Divide diagonals
result <- bdDiag_divide_hdf5("test.hdf5", "data", "matrixA", "matrixB",
outgroup = "results",
outdataset = "diagonal_ratio",
paral = TRUE)
}
Run the code above in your browser using DataLab