# \donttest{
fn <- tempfile(fileext = ".h5")
X <- hdf5_create_matrix(fn, "INPUT/X", data = matrix(rnorm(60), 6, 10))
Y <- hdf5_create_matrix(fn, "INPUT/Y", data = matrix(rnorm(60), 6, 10))
# t(X) %*% X → stored in OUTPUT/CrossProd_X
C1 <- crossprod(X)
dim(C1)
# t(X) %*% Y → stored in OUTPUT/CrossProd_X_x_Y
C2 <- crossprod(X, Y)
# Custom output location
C3 <- crossprod(X, outgroup = "RESULTS", outdataset = "my_crossprod")
hdf5_close_all()
unlink(fn)
# }
Run the code above in your browser using DataLab