My data is similar to below -
xchoh<-data.frame(id=c(1,2), DOB=c("1981-12-05","1981-05-12"), DOE=c("2000-04-02","2017-05-12&