sink() code snippets in r

example for sink() function in r