Works fine on my machine:
> DF
A B C D E
1 1 a 1999 0 0
2 1 b 1999 0 0
3 1 c 1999 0 0
4 1 d 1999 0 0
5 2 c 2001 0 1
6 2 d 2001 1 0
7 3 a 2004 1 0
8 3 b 2004 0 1
9 3 d 2004 1 1
10 4 b 2001 0 2
11 4 c 2001 1 1
12 4 d 2001 1 2
here's my session info:
> sessionInfo()
R version 2.12.1 (2010-12-16)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)
locale:
[1] en_US.UTF-8/en_US.UTF-8/C/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] phyloch_1.4.48 XML_3.2-0 colorspace_1.0-1 phangorn_1.3-1 ape_2.6-2
[6] quadprog_1.5-3 plyr_1.4
loaded via a namespace (and not attached):
[1] gee_4.13-16 grid_2.12.1 lattice_0.19-17 nlme_3.1-97 tools_2.12.1
On Friday, February 25, 2011 at 8:31 AM, mathijsdevaan wrote:
> 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.
>
[[alternative HTML version deleted]]
______________________________________________
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.
