a <- f.read.analyze.volume(system.file("example.img", package = "AnalyzeFMRI"))
dim(a)
tmpdir <- tempdir()
b <- threeDto4D(outputfile = "fourdfile", path.in =
paste0(system.file(package = "AnalyzeFMRI"), "/"),
prefix = NULL, regexp = NULL, times = 2, list.of.in.files = rep("example.img", 2),
path.out = tmpdir, is.nii.pair = FALSE, hdr.number = 1)
dim(b)
unlink(tmpdir) # tidy up
Run the code above in your browser using DataLab