## load a MRIaggr object
data("MRIaggr.Pat1_red", package = "MRIaggr")
## outline the area of interest
res <- outlineMRIaggr(MRIaggr.Pat1_red, param = "DWI_t0",
num = 1:3, sequential = TRUE, overwrite = TRUE, update.object = TRUE)
multiplot(MRIaggr.Pat1_red, param = "userMask",
num = 1:3)
## outline an edge of interest
res <- outlineMRIaggr(MRIaggr.Pat1_red, param = "DWI_t0", index1 = "MASK_DWI_t0",
fill = FALSE, num = 1:3, sequential = TRUE, overwrite = TRUE, update.object = TRUE)
multiplot(MRIaggr.Pat1_red, param = "userMask", num = 1:3)
## define an new area as the union of the outlined area and the initial lesion mask
res <- outlineMRIaggr(MRIaggr.Pat1_red, param = "DWI_t0", index1 = "MASK_DWI_t0",
operator_index1 = "union", num = 3, sequential = TRUE,
overwrite = TRUE, update.object = TRUE)
multiplot(MRIaggr.Pat1_red, param = "userMask", num = 3)
## define an new area as the intersection of the outlined area and the initial lesion mask
res <- outlineMRIaggr(MRIaggr.Pat1_red, param = "DWI_t0", index1 = "MASK_DWI_t0",
operator_index1 = "intersection", num = 3, sequential = TRUE,
overwrite = TRUE, update.object = TRUE)
multiplot(MRIaggr.Pat1_red, param = "userMask", num = 3)
## define an new area as the difference between the outlined area and the initial lesion mask
res <- outlineMRIaggr(MRIaggr.Pat1_red, param = "DWI_t0", index1 = "MASK_DWI_t0",
operator_index1 = "difference", num = 3, sequential = TRUE,
overwrite = TRUE, update.object = TRUE)
multiplot(MRIaggr.Pat1_red, param = "userMask", num=3)
Run the code above in your browser using DataLab