[R] what does this syntax mean?

[Liaw, Andy]

That's a call to the replacement function "split<-"(), which is defined as:

> get("split<-.default")
function (x, f, value) 
{
    ix <- split(seq(along = x), f)
    n <- length(value)
    j <- 0
    for (i in ix) {
        j <- j%%n + 1
        x[i] <- value[[j]]
    }
    x
}

Andy

> From: ronggui
> 
> i study the code of function ave,but i can understand one 
> line of the syntax.
> 
> > ave
> function (x, ..., FUN = mean)
> {
>     n <- length(list(...))
>     if (n) {
>         g <- interaction(...)
>         split(x, g) <- lapply(split(x, g), FUN)
>     }
>     else x[] <- FUN(x)
>     x
> }
> 
> my question is : what does "split(x, g) <- lapply(split(x, 
> g), FUN)" mean?
> 
> thank you!
> 
> 
> 
> -- 
> Department of Sociology
> Fudan University,Shanghai
> Blog:http://sociology.yculblog.com
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! 
> http://www.R-project.org/posting-guide.html
> 
> 
>