Attemping R print statement