Рассчитать возраст, используя два датума разных форматов

Question

У меня проблема с подсчетом возраста всех моих участников.

У меня дата рождения записана только с точки зрения месяца и года (XX / XXXX), и у меня есть точная дата, когдаданные были записаны (XX / XX / XXXX).

Я хотел использовать функцию age_calc из пакета eeptools для расчета возраста.К сожалению, что-то не работает.Я подозреваю, что это потому, что одна дата является точной, тогда как другая не указывает точную дату.

Это то, что я пытался:

df$birthdate <- as.Date(df$birthdate)
df$visitdate <- as.Date(df$visitdate)
age <- age_calc(df$birthdate,enddate=df$visitdate, unit="year")

Ответ, который я получаю: «Оба доби enddate должен быть объектами класса Date ".

Так что я думаю изменить дату рождения на всегда первый день месяца, чтобы заставить его работать.К сожалению, я не знаю, как это сделать.Кто-нибудь может помочь?Есть ли лучший способ решения этой проблемы?

Заранее спасибо!Lukas

Answer 1

Вам нужно использовать paste0(), чтобы добавить день к дате:

as.Date(paste0(df$brthdat, "-01"))

Итак:

df$brthdat <- as.Date(paste0(df$brthdat, "-01"))
df$visitdate <- as.Date(df$visitdate)

library(eeptools)
age <- age_calc(df$birthdate,enddate=df$visitdate, unit="year", precise = FALSE)