妹子，你忘记加载包了。所以ymd函数找不到。
library(lubridate)

那个函数是在看不懂，也存在未知变量，如new_dates.

自己写了个。
a<-function(x){
date<-as.POSIXct(x,format = "%Y-%m-%d", tz = "UTC")
if(as.numeric(format(date, "%Y"))%%400==0) print("YES, Leap year.")
else if(as.numeric(format(date, "%Y"))%%100==0) print("NO.")
else if(as.numeric(format(date, "%Y"))%%4==0) print ("YES, Leap year.")
else print("NO.")
}

a("2013-8-1")
#[1] "NO."

啊，我可真够笨的。。。。那那个x<1是什么意思呢？

啊，我可真够笨的。。。。那那个x<1是什么意思呢？

啊，我可真够笨的。。。。那那个x<1是什么意思呢？

啊，我可真够笨的。。。。那那个x<1是什么意思呢？