Integrate Function R