Hi, # x ... your frame attach(x) sum(Total[Year==1997 & Tus > 0])
I hope this helps Best, Matthias > -----Urspr�ngliche Nachricht----- > Von: Luis Rideau Cruz [mailto:[EMAIL PROTECTED] > Gesendet: Montag, 26. Juli 2004 14:52 > An: [EMAIL PROTECTED] > Betreff: [R] aggregate function > > > Hi all, > I have the folowing frame(there are more columns than shown), > 1 2 3 4 5 > Year Total Tus Whi Norw > 1994 1.00 1830 0 355 > 1995 1.00 0 0 0 > 1995 1.00 0 0 0 > 1995 1.00 4910 4280 695 > 1997 1.00 0 0 110 > 1997 0.58 0 0 0 > 1997 1.00 0 0 0 > 1994 1.00 0 0 0 > 1997 1.00 0 40 70 > 1998 1.00 0 0 1252 > 1999 1.04 0 74 0 > 1999 1.00 0 0 0 > 1999 1.02 0 0 0 > 1999 1.00 0 0 0 > 1999 1.00 0 0 171 > 1999 1.00 1794 0 229 > 1999 1.00 0 3525 0 > 1997 1.00 1335 1185 147 > 1997 1.00 4925 1057 4801 > 1997 1.00 0 6275 1773 > > I try to get sum("Total") by "Year" in which Tus>0, > sum("Total") by "Year" in which Whi>0,,,and so on. > > I have done something like this; > > a<-as.list(numeric(3)) > for (i in 3:5) > { > a[[i]]<-aggregate(frame[,"Total"],list(Year=frame$"Year", > > Tus=frame$"i">0),sum) } > > But I get > > "Error in FUN(X[[as.integer(1)]], ...) : arguments must have > same length" > > Also by doing one by one > > aggregate(frame[,"Total"],list(Year=frame$"Year", > > Tus=frame$"Tus">0),sum) > > > The result is something like; > > Year Tus x > 1994 FALSE 49.69 > 1995 FALSE 49.35 > 1996 FALSE 56.95 > 1997 FALSE 57.00 > 1998 FALSE 57.00 > 1999 FALSE 58.09 > 2000 FALSE 56.97 > 2001 FALSE 57.95 > 2002 FALSE 57.10 > 2003 FALSE 56.16 > 2000 TRUE 1.00 > 2002 TRUE 1.00 > 2003 TRUE 2.01 > > > Help > > > Thank you > > Luis Ridao Cruz > Fiskiranns�knarstovan > N�at�n 1 > P.O. Box 3051 > FR-110 T�rshavn > Faroe Islands > Phone: +298 353900 > Phone(direct): +298 353912 > Mobile: +298 580800 > Fax: +298 353901 > E-mail: [EMAIL PROTECTED] > Web: www.frs.fo > > ______________________________________________ > [EMAIL PROTECTED] mailing list > https://www.stat.math.ethz.ch/mailman/listinfo> /r-help > PLEASE > do read the posting guide! > http://www.R-project.org/posting-guide.html > ______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
