渣渣小白学R（每日一题）--判断一个年份是不是闰年

闰年：能被4整除但不能被100整除的年份

runyear = function (year)
{if((year%%4 == 0)&(year%%100 != 0))
   {
    paste(year,"是闰年",sep = "")
   }
 else
   {
   paste(year,"不是闰年")
   }
} 
runyear(2018)
runyear(2000)
runyear(2008)
runyear(2004)

 paste函数：可以连接变量和文字，详情可见博主waple_0820的文章https://blog.csdn.net/waple_0820/article/details/53171784

 “是闰年”的判断中，我加入了sep=“”，运行结果没有空格

“不是闰年”的判断中，没有加，运行结果有空格

运行结果如下：