[R] a function

[li li]

Dear all,
   I need to write the following function in R. Can anyone give me some
hint?
Thank you!  Please see the attachment for the function.
     Hannah
-------------- next part --------------
A non-text attachment was scrubbed...
Name: question to R-heip.pdf
Type: application/pdf
Size: 24266 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20100205/cdc0dc2c/attachment.pdf>