Re: [R] what does this syntax mean?

From: Liaw, Andy <andy_liaw_at_merck.com>
Date: Sun 19 Jun 2005 - 23:41:38 EST


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@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
>
>
>



R-help@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 Received on Sun Jun 19 23:47:58 2005

This archive was generated by hypermail 2.1.8 : Fri 03 Mar 2006 - 03:32:51 EST