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