# Create reader for NIFTI file
meta <- read_header(system.file("extdata", "global_mask_v4.nii", package="neuroim2"))
reader <- data_reader(meta, offset = 0)
# Read first 100 voxels
data <- read_elements(reader, 100)
Run the code above in your browser using DataLab