R/Bumpsr.R

`Bumpsr` <-
function(x){

y<-Bumps(x)

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


}

Try the binhf package in your browser

Any scripts or data that you put into this service are public.

binhf documentation built on May 2, 2019, 4:07 p.m.