## load a NIFTI file
path.Pat1 <- system.file(file.path("nifti"), package = "MRIaggr")
nifti.Pat1_TTP_t0 <- readMRI(file.path(path.Pat1, "TTP_t0"), format = "nifti")
dim(nifti.Pat1_TTP_t0)
## Not run:
# ## load an analyse file (example of oro.nifti::readANALYZE)
# path.Pat2 <- system.file("anlz", package = "oro.nifti")
# analyse.avg <- readMRI(file.path(path.Pat2, "avg152T1"), format = "analyze")
# graphics::image(analyse.avg[,,45,1])
#
# ### load a NIFTI file (example of oro.nifti::readNIfTI)
# path.Pat3 <- system.file("nifti", package = "oro.nifti")
# nifti.ffd <- readMRI(file.path(path.Pat3, "filtered_func_data"), format = "nifti")
# graphics::image(nifti.ffd[,,10,32])
#
# ## load a dicom file (examples of oro.dicom::readDICOMFile)
# path.Pat4 <- system.file("dcm", package = "oro.dicom")
# dicom.Abdo <- readMRI(file.path(path.Pat4,"Abdo.dcm"), format = "dicom")
# graphics::image(dicom.Abdo[[2]], col = grey(0:64/64), axes = FALSE, xlab = "", ylab = "",
# main = "Abdo.dcm")
# ## End(Not run)
Run the code above in your browser using DataLab