Displaying 1 result from an estimated 1 matches for "returnnew".
Did you mean:
returned
2006 May 01
4
efficiency in merging two data frames
...if (return$month[[i]]<-tempmon) {
return$fyy[[i]]<-return$year[[i]];
return$fyq[[i]]<-4-(tempmon-return$month[[i]])%/%3;
}
else{
return$fyy[[i]]<-return$year[[i]]+1;
return$fyq[[i]]<-(return$month[[i]]-tempmon-1)%/%3;
}
return$GVKEY[[i]]<-id$GVKEY[temp][[1]];
}
returnnew=merge(return,account,by.x<-c("GVKEY","fyy","fyq"),by.y<-c("GVKEY","fyy","fyq"))