# \donttest{
fn <- tempfile(fileext = ".h5")
Y <- matrix(rnorm(100), 10, 10)
X <- matrix(rnorm(100), 10, 10)
Z <- matrix(rnorm(100), 10, 10)
hdf5_create_matrix(fn, "data/Y", data = Y)
hdf5_create_matrix(fn, "data/X", data = X)
hdf5_create_matrix(fn, "data/Z", data = Z)
dsets <- list_datasets(fn, group = "data")
bdapply_Function_hdf5(filename = fn,
group = "data", datasets = dsets,
outgroup = "QR", func = "QR",
overwrite = TRUE)
hdf5_close_all()
unlink(fn)
# }
Run the code above in your browser using DataLab