This is for my r training