## Not run:
# library(neurobase)
# x = nifti(img = array(rnorm(100^3), dim= rep(100, 3)), dim=rep(100, 3), datatype=16)
# thresh = datatyper(x > 1)
# index.file = papaya(list(x, thresh))
# ## End(Not run)
Run the code above in your browser using DataLab