#### 1- Carto3D method ####
## load NIFTI files and convert them to Carto3D
path.Pat1 <- system.file("nifti", package = "MRIaggr")
nifti.Pat1_TTP_t0 <- readMRI(file.path(path.Pat1, "TTP_t0"), format = "nifti")
Carto3D.Pat1_TTP_t0 <- constCarto3D(nifti.Pat1_TTP_t0, identifier = "Pat1", param = "TTP_t0")
## selection
selectParameter(Carto3D.Pat1_TTP_t0)
#### 2- MRIaggr method ####
## load a MRIaggr object
data("MRIaggr.Pat1_red", package="MRIaggr")
## extract all imaging parameters
res <- selectParameter(MRIaggr.Pat1_red)
## extract the names of the parameters in the slot @ls_descStats
res <- selectParameter(MRIaggr.Pat1_red, type = "ls_descStats")
Run the code above in your browser using DataLab