Найти дату рождения, используя возраст и дату смерти

Question

person_died_at <- c(22)
person_date_died <- c("2015-05-10")

Мне нужно сказать, что человек умер в день его рождения и рассчитать дату рождения, используя преобразование в Date, POSIXlt.

Answer 1

person_died <- as.POSIXlt("2015-05-10")
names(unclass(as.POSIXlt("2015-05-10")))
[1] "sec"    "min"    "hour"   "mday"   "mon"    "year"   "wday"   "yday"  
         "isdst"  "zone"   "gmtoff"
a$year <- a$year - 22
person_birthdate <- a
person_birthdate
 "1993-05-10 CDT"

Answer 2

Использование as.POSIXlt

person_died_at <- 22
person_date_died <- "2015-05-10"

temp <- as.POSIXlt(person_date_died, tz = "UTC")
temp$year <- temp$year - person_died_at
temp
#[1] "1993-05-10 UTC"