Added R solution for 001