Adding some R sample code.