R/Blocksr.R

`Blocksr` <-
function (x) 
{
y<-Blocks(x)

y <- c(y, rev(y))
        n <- length(y)
    y[seq(from=1, to=n, by=2)]





}
nunesmatt/binhf documentation built on May 25, 2019, 8:18 a.m.