[R] A. Mani : Avoiding loops

[A. Mani]

On Friday 19 August 2005 11:54, Sean O'Riordain wrote:
> Hi,
> I'm not sure what you actually want from your email (following the
> posting guide is a good way of helping you explain things to the rest
> of us in a way we understand - it might even answer your question!
>
> I'm only a beginner at R so no doubt one of our expert colleagues will
> help me...
>
> > fred <- data.frame()
> > fred <- edit(fred)
> > fred
>
>   A B C D E
> 1 1 2 X Y 1
> 2 2 3 G L 1
> 3 3 1 G L 5
>
> > fred[,3]
>
> [1] X G G
> Levels: G X
>
> > fred[fred[,3]=="G",]
>
>   A B C D E
> 2 2 3 G L 1
> 3 3 1 G L 5
>
> so at this point I can create a new dataframe with column 3 (C) ==
> "G"; either explicitly or implicitly...
>
> and if I want to calculate the sum() of column E, then I just say
> something like...
>
> > sum(fred[fred[,3]=="G",][,5])
>
> [1] 6
>
>
> now naturally being a bit clueless at manipulating stuff in R, I
> didn't know how to do this before I started... and you guys only get
> to see the lines that I typed in and got a "successful" result...
>
> according to section 6 of the "Introduction to R" manual which comes
> with R, I could also have said
>
> > sum(fred[fred$C=="G",]$E)
>
> [1] 6
>
> Hmmm.... I wonder would it be reasonable to put an example of this
> type into section 2.7 of the "Introduction to R"?
>
>
> cheers!
> Sean
>
> On 18/08/05, A. Mani <a_mani_sc_gs at vsnl.net> wrote:
> > Hello,
> >         I want to avoid loops in the following situation. There is a
> > 5-col dataframe with col headers alone. two of the columns are
> > non-numeric. The problem is to calculate statistics(scores) for each
> > element of one column. The functions depend on matching in the other
> > non-numeric column.
> >
> > A  B  C  E  F
> > 1  2  X  Y  1
> > 2  3  G  L  1
> > 3  1  G  L  5
> > and so on ...30000+ entries.
> >
> > I need scores for col E entries which depend on conditional implications.
> >
> >
> > Thanks,
> >
Hello,
      Sorry about the incomplete problem. Here is a better version for the
problem: (the measure is not simple)
The data frame is like
  col1       col2            col3       col4        col5
  <num>  <nonum>   <nonum>      <num>   <num>
       A           B             C                  E           F   
There are repeated strings in col3, col2.
Problem : Calculate  Measure(Ci) = [No. of repeats of Ci *100] + [If (Bi, Ci) 
is same as (Bj, Cj) and 6>= Ej - Ei >=3 then add 100 else  10] .


Actually it is to stretched further by adding similar blocks.

 How do we use *apply or
something else in the situation  ?


In prolog it is extremely easy, but here it is not quite...


A. Mani
Member, Cal. Math. Soc