Re: [R] For Loop help needed

From: Petr PIKAL <petr.pikal_at_precheza.cz>
Date: Fri, 04 Jun 2010 11:32:05 +0200

Hi

r-help-bounces_at_r-project.org napsal dne 03.06.2010 18:18:33:

> One option:
>
> t <- data.frame(x1=c(1,1,0,0,0,1), x2=c(0,0,0,1,0,1),
> Count=c(523,23,2,45,3,433))
> t.sum <- function(df, x1, x2) sum(df[df$x1==x1 & df$x2==x2,]$Count)
> t.sum(t, 1, 0)
> # [1] 546
> t.sum(t, 0, 0)
> # [1] 5

If this is what Khan wants so

aggregate(t$Count, list(interaction(t$x1, t$x2)), sum)

  Group.1   x
1     0.0   5
2     1.0 546
3     0.1  45
4     1.1 433

could be better option

Regards
Petr

>
> Hope this helps a little.
>
> Allan
>
> On 03/06/10 16:18, Geeti Khan wrote:
> > Hi,
> > I have a dataset with three column like this
> > x1 x2 Count
> > 1 0 523
> > 1 0 23
> > 0 0 2
> > 0 1 45
> > 0 0 3
> > 1 1 433
> >
> > I need to create a loop so that when c(x1,x2)=c(1,1), I can add the
> corresponding Counts.When c(x1,x2)=c(1,0), can add the corresponding
counts
> and so on. Can anyone help me????
> >
> >
> >
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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.
> >
>
> ______________________________________________
> 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.



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. Received on Fri 04 Jun 2010 - 09:35:12 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Fri 04 Jun 2010 - 10:30:28 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive