
"outlineMRIaggr"(object, param, index1 = NULL, num = NULL, hemisphere = "both", numeric2logical = FALSE, xlim = NULL, ylim = NULL, legend = FALSE, palette = "terrain.colors", col = NULL, breaks = 25, fill = TRUE, n = 50, sequential = TRUE, min_dist = 1, operator_index1 = "none", col.outline = c("blue","red","grey"), pch = 20, cex = c(0.75,1,0.75),
name_newparam = "userMask",
verbose = optionsMRIaggr("verbose"), update.object = FALSE, overwrite = FALSE)
MRIaggr
. REQUIRED.NULL
.NULL
.NULL
leading to automatic setting of the x limits.NULL
leading to automatic setting of the y limits.NULL
.NULL
leading to automatic generation of the colors using the breaks
and palette
arguments.min_dist
, then the definition of the region ends. numeric. Only active if sequential
is TRUE
."none"
"intersection"
"difference"
or "union"
.object
? logical.object@data
, can it be overwritten ? logical.[,c("i","j","k")]
: the coordinates of the observations.
[,"index"]
: the index of the observation in object
.
[,"edge"]
: whether each observation is on an edge.
[,"surface"]
: whether each observation is in the interior.
[,"userMask"]
: whether each observation belong to index1
(if no not defined, always FALSE
).
num
argument can be found in the details section of initNum
.Information about the index1
argument can be found in the details section of initIndex
(argument index
).
Information about the hemisphere
argument can be found in the details section of selectContrast
.
Information about the palette
and legend
arguments can be found in the details section of initCol
.
FUNCTION:
This function uses the locator
function to obtain the coordinates of the cursor. See outline
for more details.
It will display slice by slice the parameter map and on each slice a region should be drawn.
Press Echap and 1 to restart the draw on the same slice.
Press Echap and 0 to skip a slice.
## 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