weighted-average code snippets in r

how to compute weighted average in r in r