## Not run:
# ## 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)
# ## End(Not run)
Run the code above in your browser using DataLab