test <- copy(sire)
## approximate year lengths: here 20 % have an extra day added
test$dg_yrs <- get.yrs(test$dg_date)
summary(test$dg_yrs)
dg_date2 <- as.Date(test$dg_yrs)
summary(as.numeric(dg_date2 - test$dg_date))
## using actual year lengths
test$dg_yrs <- get.yrs(test$dg_date, year.length = "actual")
summary(test$dg_yrs)
dg_date2 <- as.Date(test$dg_yrs)
summary(as.numeric(dg_date2 - test$dg_date))
Run the code above in your browser using DataLab