## load a MRIaggr object
data("MRIaggr.Pat1_red", package = "MRIaggr")
## compute normalization values
res <- calcNormalization(MRIaggr.Pat1_red, param = c("DWI_t0","T2_FLAIR_t2"),
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,
legend = TRUE, window = NULL, main = "raw - slice ")
multiplot(MRIaggr.Pat1_red, param = "T2_FLAIR_t2", num = 1:3,
norm_mu="contralateral", norm_sigma="contralateral",
legend = TRUE, window = NULL, main = "normalized - slice ")
## extract normalization
selectNormalization(MRIaggr.Pat1_red, type = "global", mu = TRUE, sigma = FALSE)
Run the code above in your browser using DataLab