[R] Error

[rex.dwyer at syngenta.com]

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-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On Behalf Of mathijsdevaan
Sent: Friday, February 25, 2011 9:31 AM
To: r-help at 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 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.




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.