Hodrick-Prescott filter example

eye <- diag( length(y) )
d <- diff( eye, d=2 )
z <- solve( eye + lambda * crossprod(d),  y )

Could someone, please, write me an example how to apply the
Hodrick-Prescott in R? Previously (in this list) someone mentioned it is

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._