# NOT RUN {
data(amnesia)
#We only keep the first 100 lines to keep the computations fast.
amnesia<-amnesia[1:100,]
#Construction of the p-values and their support
amnesia.formatted <- fisher.pvalues.support(amnesia)
raw.pvalues <- amnesia.formatted$raw
pCDFlist <- amnesia.formatted$support
ADBH.su.fast <- ADBH(pCDFlist, raw.pvalues)
ADBH.sd.fast <- ADBH(pCDFlist, raw.pvalues, direction="sd")
ADBH.su.crit <- ADBH(pCDFlist, raw.pvalues, ret.crit.consts=TRUE)
ADBH.sd.crit <- ADBH(pCDFlist, raw.pvalues, direction="sd", ret.crit.consts=TRUE)
# }
Run the code above in your browser using DataCamp Workspace