R/wt.tri.R

Defines functions wt.tri

wt.tri <- function(x)
{
    if(abs(x)>1)
    {
        return(0)
    }
    else
    {
        return(1 - abs(x))
    }
}

Try the ftsa package in your browser

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

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