if (FALSE) {
# nim is an object of class nifti
dd = dropEmptyImageDimensions(nim, keep_ind = TRUE)
remake = replace_dropped_dimensions(img = dd$outimg,
inds = dd$inds,
orig.dim = dd$orig.dim)
all.equal(nim, remake)
}
Run the code above in your browser using DataLab