Преобразовать число в дату по месяцу с 1800-01-01?

Question

У меня есть ncdf файл, который можно скачать здесь. Этот набор данных содержит две переменные (TA и DMI). Значение TA представляет дату с единицами МЕСЯЦЕВ с 1800-01-01 00:00:00. Как преобразовать значение TA в дату (as.Date)?

Вот мой код:

x<-open.ncdf('dmi.cdf')x$
dmi<-get.var.ncdf(x, varid = 'DMI')
ta<-get.var.ncdf(x, varid = 'TA')
date<-as.Date(ta, origin=c('1800-01-01'))

Здесь я приведу результат из моего кода для 12 первой строки моего набора данных. Я должен быть месяцем, а не днем.

 > ta[1:12]
 [1] 853.0192 854.0198 855.0205 856.0211
 [5] 857.0218 858.0225 859.0231 860.0238
 [9] 861.0244 862.0251 863.0257 864.0264

 > as.Date(ta[1:12], origin=c('1800-01-01'))
 [1] "1802-05-04" "1802-05-05" "1802-05-06" "1802-05-07"
 [5] "1802-05-08" "1802-05-09" "1802-05-10" "1802-05-11" 
 [9] "1802-05-12" "1802-05-13" "1802-05-14" "1802-05-15"

Результат, который я ожидал ниже (то есть, но год, я не уверен, что это правильно, 1802)

 [1] "1802-01-01" "1802-02-01" "1802-03-01" "1802-04-01"
 [5] "1802-05-01" "1802-06-01" "1802-07-01" "1802-08-01"
 [9] "1802-09-01" "1802-10-01" "1802-11-01" "1802-12-01"