Displaying 1 result from an estimated 1 matches for "datanew1".
Did you mean:
datanew
2013 Apr 13
2
Comparison of Date format
...)==2) x1[x3[which.min(x3)],!names(x1)%in%names(x3[which.max(x3)])] else if(length(x3)==1) x1[x3,c("ID","Status",names(x3))] else NULL})) })
?lst1New
#[[1]]
?# ID Status???? Date2
#3? 1????? A? 3-Sep-01
#5? 1????? C 26-Feb-04
#[[2]]
?# ID Status??? Date1
#9? 2????? A 6-Mar-02
?dataNew1<- do.call(rbind,lapply(lst1New,function(x) {colnames(x)[3]<- colnames(DataB)[2];x}))
?res1<- join(dataNew1,DataB,by=c("Date.Accident","ID"),type="right")
?res1
#? Date.Accident ID Status
#1????? 3-Sep-01? 1????? A
#2???? 20-Jan-05? 1?? <NA>
#3???? 26-Feb...