file = system.file("extdata", "example.nii.gz", package = "RNifti")
img = RNifti::readNifti(file)
quatern_b(img)
quatern_b(img) = 3
stopifnot(quatern_b(img) == 3)
quatern_c(img)
quatern_c(img) = 3
stopifnot(quatern_c(img) == 3)
quatern_d(img)
quatern_d(img) = 3
stopifnot(quatern_d(img) == 3)
Run the code above in your browser using DataLab