gamma function in r example