if (FALSE) {
mgh_file <- system.file("extdata", "brain.mgz",
package = "freesurferformats",
mustWork = TRUE
)
fs_vol <- read.fs.volume(mgh_file, with_header = TRUE)
write.fs.volume(tempfile(fileext = ".mgz"), fs_vol)
write.fs.volume(tempfile(fileext = ".nii.gz"), fs_vol)
}
Run the code above in your browser using DataLab