data(foodAAT)
mysplits<-generateSplits(data=foodAAT,
subsetvars=c("subjectid","is_pull","is_target"),
stratvars="stimid",
splits=1)
half1<-foodAAT[ mysplits[,1],]
half2<-foodAAT[!mysplits[,1],]
Run the code above in your browser using DataLab