## load a MRIaggr object
data("MRIaggr.Pat1_red", package = "MRIaggr")
## associate each voxel to its contralateral correspondant
## according T1 parameter and compute the normalized parameters
res <- calcContralateral(MRIaggr.Pat1_red, param = c("DWI_t0","T2_FLAIR_t2"), num = NULL,
type = "mean", param.ref = "T1_t0", distband = 1, lambda = 1, verbose = TRUE)
## display
multiplot(res$data[,c("i","j","k"),drop = FALSE],
contrast = res$data$DWI_t0_contro
)
multiplot(res$data[,c("i","j","k"), drop = FALSE],
contrast = res$data$DWI_t0_contro,
index1 = res$data[res$index_plot$index.plot_lesionR,c("i","j","k"), drop = FALSE],
index2 = res$data[res$index_plot$index.plot_lesionL,c("i","j","k"), drop = FALSE]
)
Run the code above in your browser using DataLab