> a<-read.table("a")
> b<-read.table("b")
> c<-merge(a,b,by.x=1, by.y=1)
> c