library(neurobase)
set.seed(1234)
dims = c(30, 30, 10)
arr = array(rnorm(prod(dims)), dim = dims)
nim = nifti(arr)
mask = datatyper(nim > 1)
## Not run:
# cc = bwconncomp(mask)
# tab = table(c(cc))
# ## End(Not run)
Run the code above in your browser using DataLab