if (FALSE) {
library(BigDataStatMeth)
# Create test matrices
set.seed(123)
Y <- matrix(rnorm(100), 10, 10)
X <- matrix(rnorm(10), 10, 1)
# Save to HDF5
bdCreate_hdf5_matrix("test.hdf5", Y, "data", "matrix1",
overwriteFile = TRUE)
bdCreate_hdf5_matrix("test.hdf5", X, "data", "vector1",
overwriteFile = FALSE)
# Compute statistics
bdgetSDandMean_hdf5(
filename = "test.hdf5",
group = "data",
dataset = "matrix1",
sd = TRUE,
mean = TRUE,
byrows = TRUE,
wsize = 500
)
# Cleanup
if (file.exists("test.hdf5")) {
file.remove("test.hdf5")
}
}
Run the code above in your browser using DataLab