added R lesson (rough)