# \donttest{
fn <- tempfile(fileext = ".h5")
# Create two datasets in the same group
hdf5_create_matrix(fn, "data/A", data = matrix(rnorm(50), 5, 10))
hdf5_create_matrix(fn, "data/B", data = matrix(rnorm(50), 5, 10))
# Apply CrossProd to all datasets in the group
X <- hdf5_matrix(fn, "data/A")
res <- apply_function(X, func = "CrossProd", out_group = "RESULTS")
hdf5_close_all()
unlink(fn)
# }
Run the code above in your browser using DataLab