[R] re-sampling of large sacle data

[Gray Calhoun]

Write a function that incorporates "doit" and the column shuffle.
Let's call it "doitbetter"

replicate(10000, doitbetter())

You'll probably want to read the help for "replicate" to make sure the
defaults are what you want.

--Gray

On Tue, Jul 27, 2010 at 4:43 PM, jd6688 <jdsignature at gmail.com> wrote:
>
> 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 at 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.
>



-- 
Gray Calhoun

Assistant Professor of Economics, Iowa State University
http://www.econ.iastate.edu/~gcalhoun/