R/lp_filters.R
localpolynomials.Rd
Apply Local Polynomials Filters
localpolynomials( x, horizon = 6, degree = 3, kernel = c("Henderson", "Uniform", "Biweight", "Trapezoidal", "Triweight", "Tricube", "Gaussian", "Triangular", "Parabolic"), endpoints = c("LC", "QL", "CQ", "CC", "DAF"), ic = 4.5, tweight = 0, passband = pi/12 )
input time-series.
horizon (bandwidth) of the symmetric filter.
degree of polynomial.
kernel uses.
methode for endpoints.
ic ratio.
timeliness weight.
passband threshold.
the target signal
Proietti, Tommaso and Alessandra Luati (2008). “Real time estimation in local polynomial regression, with application to trend-cycle analysis”.
lp_filter().
lp_filter()
x <- retailsa$AllOtherGenMerchandiseStores trend <- localpolynomials(x, horizon = 6) plot(x) lines(trend, col = "red")