if (FALSE) {
# Read FLIRT matrix
xfm <- io_read_flirt_transform("source_to_reference.mat")
# Full conversion to RAS coordinates
xfm_ras <- transform_flirt2ras(xfm,
source = "source.nii.gz",
reference = "reference.nii.gz")
# Partial conversion (reference side only)
xfm_partial <- transform_flirt2ras(xfm, reference = "reference.nii.gz")
# Using ieegio_volume objects
src_vol <- read_volume("source.nii.gz", header_only = TRUE)
ref_vol <- read_volume("reference.nii.gz", header_only = TRUE)
xfm_ras <- transform_flirt2ras(xfm, source = src_vol, reference = ref_vol)
}
Run the code above in your browser using DataLab