# \donttest{
# Load an example 4D brain image
example_file <- system.file("extdata", "global_mask_v4.nii", package = "neuroim2")
example_4d_image <- read_vec(example_file)
# Create a mask (e.g., selecting voxels with values > 0)
mask <- array(as.vector(example_4d_image[,,,1]) > 0,
dim = dim(example_4d_image)[1:3])
if(requireNamespace("bigstatsr", quietly = TRUE)) {
# Create a BigNeuroVec with memory mapping
big_vec <- BigNeuroVec(data = example_4d_image@.Data,
space = space(example_4d_image),
mask = mask,
label = "Example BigNeuroVec")
print(big_vec)
}
# }
Run the code above in your browser using DataLab