## load a MRIaggr object
data("MRIaggr.Pat1_red", package = "MRIaggr")
## compute regional values
res <- calcRegionalContrast(MRIaggr.Pat1_red, param = c("T2_FLAIR_t2","T1_t0"), bandwidth = 1.875,
W.spatial_res = c(1.875,1.875,6), W.range = 6,
update.object = TRUE, overwrite = TRUE)
## display
par(mfrow = c(2,4), mar = rep(1.5,4), mgp = c(2,0.5,0))
multiplot(MRIaggr.Pat1_red, param = "T2_FLAIR_t2", num = 1:3,
window = NULL, main = "raw - slice ")
multiplot(MRIaggr.Pat1_red, param = "T2_FLAIR_t2_regional", num = 1:3,
window = NULL, main = "regional - slice ")
Run the code above in your browser using DataLab