Smooth of a time serie

Thomas,
First of all, thanks for the help, but it isn't exactly what I'm looking
for. smooth() doesn't perform the smooth the way I want it to do.
I want, precisely, the 4253H method. R doesn't give the option to do that.

Thanks,
Henrique.