Does it work for FUN=mean?  If yes, you need to print out the results of f 
before you return them to find the anomalous value.
BTW "Error" is not a very good subject line.  I don't see many posts from 
people reporting how well things are going :)


-----Original Message-----
From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On 
Behalf Of mathijsdevaan
Sent: Friday, February 25, 2011 9:31 AM
To: r-help@r-project.org
Subject: [R] Error


Hi, I am running the following script for a different (much larger data
frame):

DF = data.frame(read.table(textConnection("    A  B  C  D  E
1 1  a  1999  1  0
2 1  b  1999  0  1
3 1  c  1999  0  1
4 1  d  1999  1  0
5 2  c  2001  1  0
6 2  d  2001  0  1
7 3  a  2004  0  1
8 3  b  2004  0  1
9 3  d  2004  0  1
10 4  b  2001  1  0
11 4  c  2001  1  0
12 4  d  2001  0  1"),head=TRUE,stringsAsFactors=FALSE))
DF<-DF[order(DF$B,DF$C),]#order by developer_id and year
f<- function(x)
        {
        unlist(lapply(x, FUN = function(z) cumsum(z) - z))
        }
DF<-cbind(DF[,c(1:3)],ave(DF[, c(4:5)],DF$B, FUN = f))

I get the following error:

Error in `[<-.data.frame`(`*tmp*`, i, , value = integer(0)) :
  replacement has 0 items, need 37597770
In addition: Warning message:
In max(i) : no non-missing arguments to max; returning -Inf

The dimensions of the data frame are (50000,108), so the last line of the
script becomes:

DF<-cbind(DF[,c(1:3)],ave(DF[, c(4:108)],DF$B, FUN = f))

Any idea how to solve this problem? Thanks!


--
View this message in context: 
http://r.789695.n4.nabble.com/Error-tp3324531p3324531.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
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.




message may contain confidential information. If you are not the designated 
recipient, please notify the sender immediately, and delete the original and 
any copies. Any use of the message by you is prohibited. 
______________________________________________
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.

Reply via email to