# \donttest{
tmp <- tempfile(fileext = ".h5")
m <- crossprod(matrix(rnorm(400), 20, 20))
X <- hdf5_create_matrix(tmp, "data/M", data = m)
ev <- eigen(X, symmetric = TRUE, k = 5L)
ev$values
close(ev$vectors)
close(X)
unlink(tmp)
# }
Run the code above in your browser using DataLab