if (FALSE) {
library(BigDataStatMeth)
# Create test matrix
A <- matrix(rnorm(100), 10, 10)
bdCreate_hdf5_matrix("test.h5", A, "data", "matrix_A", overwriteFile = TRUE)
# Add scalar to diagonal (creates new dataset)
result <- bdDiag_scalar_hdf5("test.h5", "data", "matrix_A",
scalar = 5.0, operation = "+",
target = "new", outdataset = "diag_plus_5")
# Multiply diagonal in-place
result2 <- bdDiag_scalar_hdf5("test.h5", "data", "matrix_A",
scalar = 2.0, operation = "*",
target = "input")
}
Run the code above in your browser using DataLab