[R] Error

[mathijsdevaan]

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.