impute.age <- function(age, sex){ corrected.age <- age if(is.na(age) & sex == 1){ corrected.age <- male.mean.age }else if(is.na(age) & sex