myDF:
d1 d2 d3 d4
d5
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.000925938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.000925938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
-0.166910351 0.022304377 -0.00825924 0.008330689 -0.168225938
per the dataframe above,
step 1: do the following
doit=function(x)c(sum_positive=sum(x[-1][x[-1]>0]),sum_negative=sum(x[-1][x[-1]<0]))
pos_neg_pool<-t(apply(myDF,1,doit))
if not first run then append the data to the pos_neg_pool
step2: reshuffle the data by columns then do step1, this step need to run
10000 times;
output will be 23*10000=230,000 rows.
Can anyone point out how to automate this 10000 runs in R?
Thanks,
--
View this message in context:
http://r.789695.n4.nabble.com/re-sampling-of-large-sacle-data-tp2304165p2304165.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.
