# NOT RUN {
# }
# NOT RUN {
data(LoBraExample)
method= c('bf', 'levene', 'bartlett')
alpha =0.05
criteria=c(1,1)
ldos<-screening(ldo, method, alpha, criteria)
components <- ldos@selectedPeaks[,"levene"]
components <- names(components)[components]
selectedLDO <- selectComponents(ldo, components)
# }
Run the code above in your browser using DataLab