问题描述
我尝试按照以下R示例使用三种不同的方法来计算年龄:
- 高效准确的年龄计算... LINK
这是我的脚本示例:
date_conversion_test <- copy(RawData[,dob := dob])
date_conversion_test[,givendate := Sys.Date()][,arithmetic := as.numeric((givendate - dob)/365.25)]
date_conversion_test[,lubridate := interval(start = dob,end = givendate)/yr]
date_conversion_test[,eeptools := age_calc(dob = dob,enddate = Sys.Date(),units = "years")]
我收到此错误:
> date_conversion_test[,eeptools := age_calc(dob,units = "years")]
Error in if (any(enddate < dob)) { :
missing value where TRUE/FALSE needed
如何更正它以使脚本语法正确以确保eeptools
部分正常运行?
以下是一些其他信息:
> dput(head(date_conversion_test))
structure(list(dob = structure(c(6583,724,3574,1189,782,2349),class = "Date"),givendate = structure(c(18522,18522,18522),arithmetic = c(32.6872005475702,48.7282683093771,40.9253935660507,47.4551676933607,48.5694729637235,44.2792607802875),lubridate = c(32.6872005475702,44.2792607802875
),enddate = structure(c(18522,18522
),class = "Date")),row.names = c(NA,-6L),class = c("data.table","data.frame"),.internal.selfref = <pointer: 0x0000029362031ef0>)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)