Displaying 1 result from an estimated 1 matches for "retsys".
Did you mean:
jetsys
2011 Jan 26
2
applying a set of rules to each row
...08, 31.56,
24.87, 39.55, 22.75, 23.26, 20.71, 19.69, 30.16, 35.88, 22.14,
38.42, 32.99, 18.28, 37.52, 39.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 &...