hw1 Rcode added