if (FALSE) {
fMRI.data <- get_example_fMRI_data()
data("covariates", package="BayesDLMfMRI")
data("ffd", package="BayesDLMfMRI") # used for overlay.
res <- ffdEvidenceFETS(ffdc = fMRI.data,
covariates = Covariates,
m0 = 0, Cova = 100, delta = 0.95,
S0 = 1, n0 = 1, Nsimu1 = 100, Cutpos1 = 30,
r1 = 1, Test = "LTT", Ncores = 15)
plot(res, overlay=ffd, index=1, col.y = heat.colors(50),
ycolorbar = TRUE, ybreaks = seq(0.95, 1, by = 0.001))
}
Run the code above in your browser using DataLab