[R] tank you

From: ronggui <0034058_at_fudan.edu.cn>
Date: Sun 19 Jun 2005 - 23:47:48 EST

thank you.

when i examined the ?split, i have figure out the answer. still,thank you very much.and sorry for my igorance.

On Sun, 19 Jun 2005 09:41:38 -0400
"Liaw, Andy" <andy_liaw@merck.com> wrote:

> 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
> >
> >
> >
>
>
>
> ------------------------------------------------------------------------------
> Notice: This e-mail message, together with any attachment...{{dropped}}



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:52:50 2005

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