Displaying 1 result from an estimated 1 matches for "rtdt".
Did you mean:
rtd
2011 Jan 26
2
applying a set of rules to each row
...7)), .Names = c("DOB", "srvCompDT",
"retirePlan", "ageFedStart"), row.names = c(NA, 200L), class =
"data.frame")
rrDT <- function(retSys, ageFedStart, birthDT, serviceCompDT){
if(retSys == "CSRS") {
if(ageFedStart < 25) rtDT <- dates(birthDT+(365.25*55))
else if (ageFedStart >= 25 & ageFedStart < 30) rtDT <-
dates(serviceCompDT+(365.25*30))
else if (ageFedStart >= 30 & ageFedStart < 40) rtDT <-
dates(birthDT+(365.25*60))
else if (ageFedStart >= 40 & ageFedStar...