Displaying 1 result from an estimated 1 matches for "cwbo".
Did you mean:
cabo
2011 Jan 18
3
error message
...10] "AGR9" "AGR10" "WAGR1" "WAGR2" "WAGR3" "WAGR4" "WAGR5" "WAGR6"
"WAGR7"
[19] "WAGR8" "WAGR9" "WAGR10" "ocbi" "ocbo" "cwbi" "cwbo"
> dim(ago)
[1] 160 25
Here below is the syntax:
> crossed1<-function(df){
+ s1<-df[sample(nrow(df),16,replace=F),]
+ s2<-t(apply(s1[,2:11],1,sample,10))
+ s2<-data.frame(s2)
+ s3<-df[-s1$SubID,]
+ ind<-t(replicate(nrow(s3),sample(10)))
+ s4<-matrix...