# NOT RUN {
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))
# }
Run the code above in your browser using DataLab