inst/BNR/JFWERcontrol/00.setup.R

In pneuvial/sanssouci: Post Hoc Multiple Testing Inference

library("sansSouci")

simFlavor <- c("equi", "equi-perm", "equi-flip")[1]

sname0 <- "JFWERcontrol"
ptag <- sprintf("sansSouci_%s", packageVersion("sansSouci"))
sname <- sprintf("%s,%s,%s", sname0, simFlavor, ptag)


deps <- c(0, 0.2, 0.4)  ## correlation coefficient
pi0s <- c(0.8, 0.9, 0.99, 0.999) 
SNRs <- c(0, 1, 2, 3, 4, 5)

alphas <- c(0.25)

m <- 1e3
B <- 1e3
nbSimu <- 1e4

pname <- sprintf("m=%s,B=%s,nbSimu=%s", m, B, nbSimu)
resPath <- "resData"
path <- file.path(resPath, sname, pname)
path <- R.utils::Arguments$getWritablePath(path)

configs <- expand.grid(SNR=SNRs, dep=deps, pi0=pi0s)
#configs <- configs[rev(1:nrow(configs)), ]