R programmin course hw1