tensor <- system.file(file.path("nifti", sub("perfusion", "axtensor", perf)),
                       package="dcemriS4")
tensor
perf
file.path("nifti", sub("perfusion", "axtensor", perf))
list.files(system.file("nifti", package="dcemriS4"))
q()
n
help.start()
q()
n
help.start()
q()
n
help.start()
q()
n
