lubridate包
date_test=as.Date('2015-1-31')
date_test %m+% months(2)
[1]"2015-03-31"
具体原因不明
>as.Date('2015-5-5') %m+% months(10)
[1] "2016-03-05"
针对月底的情况：
>as.Date('2015-11-30') %m+% months(2)
[1] "2016-01-30" 并不是1月的月底
> as.Date('2015-12-31') %m+% months(1)
[1] "2016-01-31" 可以得到月底
> as.Date('2015-10-31') %m+% months(1)
[1] "2015-11-30"
> as.Date('2015-10-30') %m+% months(4)
[1] "2016-02-29"
针对以31号为月底的相加后会正确的得到月底，以30号为月底的并不能准确的到月底（相加后等于2月份的除外）
> as.Date('2015-12-31') %m+% months(2)
[1] "2016-02-29" 当超过30天时，针对相加后为2月份的情况，相加可以得到2月月底
> as.Date('2015-12-31') %m+% months(14)
[1] "2017-02-28
floor_date(as.Date('2015-8-8'),'month')
[1] "2015-08-01" 获取本月月首
ceiling_date(as.Date('2015-4-5'),'month')
[1] "2015-05-01" 获取下月月首
利用floor_date及ceiling_date取日期再减一即可