Add R sample code