data(abr1)
dat <- abr1$pos
## number of featres
p <- ncol(dat)
## predefined feature lengths. The returned will be descending order
## vector with the first one is p.
(vec <- get.fs.len(p, fs.len=c(1,2,3,4,5,6,7,8,9,10)))
## use all features as feature lengths
(vec.full <- get.fs.len(p, fs.len="full"))
## use "half"
(vec.half <- get.fs.len(p, fs.len="half"))
## use "power2"
(vec.power2 <- get.fs.len(p, fs.len="power2"))
Run the code above in your browser using DataLab