added R lesson