# NOT RUN {
file = system.file("extdata", "example.nii.gz", package = "RNifti")
img = RNifti::readNifti(file)
slice_end(img)
slice_end(img) = 4
stopifnot(slice_end(img) == 4)
slice.end(img)
slice.end(img) = 0
# }
Run the code above in your browser using DataLab