I wanted to find the age in the database, I used this answer to solve the problem Get the difference between dates in terms of weeks, months, quarters, and years?
This code I used to find years
age <- function(dob, age.day = today(), units = "years", floor = TRUE) {
calc.age = interval(dob, age.day) / duration(num = 1, units = units)
if (floor) return(as.integer(floor(calc.age)))
return(calc.age)
}
But when I am performing loop using for loop and trying to save value in new column in database customer, I am not able to do so.
for (i in customer$dateofbirth) {
as.Date(i)
customer$age <- age(i)
}
The result I am getting is same value in age column. Where I am going wrong?
See Question&Answers more detail:
os 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…