data(abr1)
dat <- abr1$pos[,110:500]
x <- preproc(dat, method="log10")
y <- factor(abr1$fact$class)
dat <- dat.sel(x, y, choices=c("1","2"))
x.1 <- dat[[1]]$dat
y.1 <- dat[[1]]$cls
pars <- valipars(sampling="cv",niter=2,nreps=4)
res <- frankvali(x.1,y.1,fs.method = "fs.rfe",fs.len = "power2",
cl.method = "knn",pars = pars)
res
summary(res)
boxplot(res)
Run the code above in your browser using DataLab