[R] how to pass "arguments" to a function within a function?

[new ruser]

An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: https://stat.ethz.ch/pipermail/r-help/attachments/20070510/2c77cd7d/attachment.pl