# NOT RUN {
# }
# NOT RUN {
wd <- tempdir()
data(LoBraExample)
ldos<-screening(ldo, method= c('levene'), alpha =0.05, criteria=c(1,1))
filename<- file.path(wd, "screeningresults.pdf")
grDevices::pdf(filename, width=16, height=8)
plotLDOScreening(ldos)
grDevices::dev.off();
# }
Run the code above in your browser using DataLab