使わなかったコード

#個人に分けてデータを管理 （村上）
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="L