# Create a simple mask
mask_data <- array(runif(64*64*32) > 0.7, dim = c(64, 64, 32))
mask <- LogicalNeuroVol(mask_data, space = NeuroSpace(dim = c(64, 64, 32)))
# Create a SparseNeuroVecSource
sparse_source <- new("SparseNeuroVecSource", mask = mask)
Run the code above in your browser using DataLab