Or rather : n <- sapply(x, function(i) names(i)) tapply(x, n, names) 2010/8/11 Carlos Petti <carlos.pe...@gmail.com>: > A beginning of solution... > > n <- sapply(x, function(i) names(i)) > tapply(x, n, c) > > 2010/8/11 Carlos Petti <carlos.pe...@gmail.com>: >> Thanks. >> >> On the other hand, >> I try to obtain the same result but from this list : >> >> x <- list() >> x$i <- 5 >> x$j <- 9 >> x$k <- 15 >> names(x$i) <- "a" >> names(x$j) <- "b" >> names(x$k) <- "b" >> >> Thanks in advance, >> Carlos >> >> 2010/8/10 Wu Gong <w...@mtmail.mtsu.edu>: >>> >>> Hi Carlos, >>> >>> I give a handmade code, hope it helps. >>> >>> y <- list() >>> y$a <- a >>> y$b <- c(b,c) >>> names(y$a) <- "i" >>> names(y$b) <- c("j","k") >>> >>> >>> Carlos Petti wrote: >>>> >>>> a <- 5 >>>> names(a) <- "a" >>>> b <- 9 >>>> names(b) <- "b" >>>> c <- 15 >>>> names(c) <- "c" >>>> x <- list("i" = a, "j" = b, "j" = c) >>>> >>> >>> >>> ----- >>> A R learner. >>> -- >>> View this message in context: >>> http://r.789695.n4.nabble.com/How-to-invert-a-list-tp2320108p2320433.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. >>> >> >
______________________________________________ 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.