#個人に分けてデータを管理（村上） alldata<-data.frame() for(s in 1:22){ top<-120*(s-1)+1 end<-s*120 top1<-240*(s-1)+1 end1<-s*240 tmp<-exp2[top:end,] tmp1<-df7[top1:end1,] df8<-merge(tmp, tmp1[,5:6], by="LeftImage", all=T) df9<-merge(df8, tmp1[
