# [R] for/if loop

jim holtman jholtman at gmail.com
Wed Jan 28 13:36:52 CET 2009

```Within the loops you are changing the loop variables (pp & rr).  Why
are you doing this?  THis might be causing your problem of what sounds
like an infinite loop.  You probably want to rethink what you are
trying to do in the loop.

On Wed, Jan 28, 2009 at 3:21 AM, SnowManPaddington <wiwiana at gmail.com> wrote:
>
> Hi, it's my first time to write a loop with R for my homework. This loop is
> part of the function. I wanna assign values for hll according to panel
> [ii,1]=pp. I didn't get any error message in this part. but then when I
> further calculate another stuff with hll, the function can't return. I think
> it must be some problem in my loop. Probably something stupid or easy. But I
> tried to look for previous posts in forum and read R language help. But none
> can help.. Thanks!
>
>
>
> for (ii in 1:100){
>        for (pp in 1:pp+1){
>                for (rr in 1:rr+1){
>                        if (panel[ii,1]!=pp)
>                        {
>                        hll(pp,1)=ColSums(lselb1(rr:ii-1,1))
>                        hll(pp,2)=ColSums(lselb2(rr:ii-1,1))
>                        rr=ii
>                        pp=pp+1
>                        }
>                        else
>                        {
>                        hll(pp,1)=ColSums(lselb1(rr:ii,1))
>                        hll(pp,2)=ColSums(lselb2(rr:ii,1))
>                        rr=ii
>                        pp=pp+1}
>                        }
>                        }}}
>
>
> in fact I have the corresponding Gauss code here. But I really don't know
> how to write such loop in R.
>
> rr=1;
> ii=1;
> pp=1;
> do until ii==n+1;
>        if pan[ii,1] ne pp;
>                hll[pp,1]=sumc(lselb1[rr:ii-1,1]);
>                hll[pp,2]=sumc(lselb2[rr:ii-1,1]);
>                rr=ii;
>                pp=pp+1;
>        endif;
>        if ii==n;
>                hll[pp,1]=sumc(lselb1[rr:ii,1]);
>                hll[pp,2]=sumc(lselb2[rr:ii,1]);
>                rr=ii;
>                pp=pp+1;
>        endif;
>        ii=ii+1;
> endo;
>
> --
> View this message in context: http://www.nabble.com/for-if-loop-tp21701496p21701496.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.
>

--
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?

```