I am trying to do the following to accomplish the tasks, can anybody to
simplify the solutions.

Thanks,

for (i in 1:10000){
 d<-apply(s,2,sample)
  pos_neg_tem<-t(apply(d,1,doit))
 if (i>1){
   pos_neg_pool<-rbind(pos_neg_pool,pos_neg_tem)
   
 }else{
  
  pos_neg_pool<- pos_neg_tem
}}
-- 
View this message in context: 
http://r.789695.n4.nabble.com/re-sampling-of-large-sacle-data-tp2304165p2304221.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to