Re: [R] apply on large arrays

2008-02-14 Thread Erich Neuwirth
Home Phone: +61 7 3286 7700 > mailto:[EMAIL PROTECTED] > http://www.cmis.csiro.au/bill.venables/ > > -Original Message- > From: Erich Neuwirth [mailto:[EMAIL PROTECTED] > Sent: Thursday, 14 February 2008 5:08 PM > To: Venables, Bill (CMIS, Cleveland) >

Re: [R] apply on large arrays

2008-02-13 Thread Bill.Venables
(CMIS, Cleveland) Sent: Thursday, 14 February 2008 10:30 AM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: Re: [R] apply on large arrays Your code is tab1 <- with(pisa1, table(CNT,GENDER,ISCOF,ISCOM)) tab2 <- apply(tab1, 1:4, function(x) ifelse(su

Re: [R] apply on large arrays

2008-02-13 Thread Bill.Venables
+61 4 8819 4402 Home Phone: +61 7 3286 7700 mailto:[EMAIL PROTECTED] http://www.cmis.csiro.au/bill.venables/ -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Erich Neuwirth Sent: Thursday, 14 February 2008 9:52 AM To: r-help Subject: [R] ap

[R] apply on large arrays

2008-02-13 Thread Erich Neuwirth
I have a big contingency table, approximately of size 60*2*500*500, and I need to count the number of cells containing a count of 1 for each of the factors values defining the first dimension. Here is my attempt: tab1<-with(pisa1,table(CNT,GENDER,ISCOF,ISCOM)) tab2<-apply(tab1,1:4,function(x)ifel