R Learning samples