Hi Brian, This works very well. Still trying to develop some skill with R. So can't say I understand your function completely as yet, but will work on it. I had thought that your function might only work for two columns (because of the "function(x,y)" part), but the example below suggests it will work for any number of columns.
Appreciate your showing this to me. Thanks, Paul Demog <- data.frame(PFS = as.Date(c("2006-07-22", NA, "2007-12-16", "2008-01-19", "2009-05-05", "2006-04-29", "2006-06-18", NA)), DOD = as.Date(c("2006-07-23", "2008-07-09", "2007-12-16", "2008-01-19", "2009-05-05", "2006-04-29", "2006-06-18", NA)), LKDA = as.Date(c(NA, NA, NA, NA, NA, NA, NA, "2008-03-25"))) coalesce <- function(...) { dots <- list(...) ret <- Reduce(function (x,y) ifelse(!is.na(x),x,y), dots) class(ret) <- class(dots[[1]]) ret } Demog$Test <- with(Demog, coalesce(PFS, DOD, LKDA)) ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.