Displaying 1 result from an estimated 1 matches for "bwdisc".
Did you mean:
bdisp
2008 May 11
0
loess and locpoly
...:
m=loess(y~x)
y_fitted=predict(m).
But how to get the same in locpoly? I computed like this:
bw=dpill(x, y, blockmax = 5, divisor = 20,trim = 0.01, proptrun = 0.05,
gridsize = n, range(x), truncate = FALSE)
m=locpoly(x, y, drv = 0, degree = 1, gridsize= n, bandwidth=bw, bwdisc = 25,
range(x), binned = FALSE)
fitfn <- approxfun(m$x, m$y)
m_y <- fitfn(x)
but i'm not sure it is right?
Thanks in advanced.
Pawel Teisseyre.