Tried to correct R print statement