# Create a NIFTI format descriptor
fmt <- new("NIFTIFormat",
file_format = "NIFTI",
header_encoding = "raw",
header_extension = "nii",
data_encoding = "raw",
data_extension = "nii")
# Read metadata from a NIFTI file
# \donttest{
fname <- system.file("extdata", "global_mask_v4.nii", package="neuroim2")
meta <- read_meta_info(fmt, fname)
# Access metadata properties
dim(meta) # Image dimensions
trans(meta) # Transformation matrix
# }
Run the code above in your browser using DataLab