R/nicerange.R
In ftsa: Functional Time Series Analysis

nicerange <- function(x, beta = 0.1)
{
    ab <- range(x)
    del <- ((ab[2] - ab[1]) * beta)/2
    return(c(ab + c(-del, del)))
}

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

ftsa documentation built on May 29, 2024, 2:47 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the ftsa package in your browser