# 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
DBR.su.fast <- DBR(pCDFlist, raw.pvalues)
DBR.su.crit <- DBR(pCDFlist, raw.pvalues, ret.crit.consts=TRUE)
# }
Run the code above in your browser using DataLab