if (FALSE) {
data(abr1)
dat <- preproc(abr1$pos[,200:400], method="log10")
cls <- factor(abr1$fact$class)
tmp <- dat.sel(dat, cls, choices=c("1","2"))
x <- tmp[[1]]$dat
y <- tmp[[1]]$cls
fs.method <- c("fs.anova","fs.rf","fs.rfe")
fs.pars <- valipars(sampling="cv",niter=10,nreps=5)
fs <- feat.mfs(x, y, fs.method, fs.pars) ## with resampling
names(fs)
fs <- fs[1:3]
## save consistency of feature selection
filename <- "fs.csv"
firstline <- paste('\nResults of feature selection', sep='')
save.tab(fs, filename, firstline)
}
Run the code above in your browser using DataLab