## load a MRIaggr object
data("MRIaggr.Pat1_red", package = "MRIaggr")
## selection
res <- selectTable(MRIaggr.Pat1_red, type = "lesion")
res <- selectTable(MRIaggr.Pat1_red, type = "reperfusion")
res <- selectTable(MRIaggr.Pat1_red, type = "hypoperfusion")
Run the code above in your browser using DataLab