R语言判断一个数是否为偶数