follow-up: How to "merge" cel.containers ?
0
0
Entering edit mode
@laurent-gautier-9
Last seen 9.6 years ago
On Mon, May 06, 2002 at 10:28:41AM +0200, julien.sylvestre@wotan.ens.fr wrote: > OK. Thanks to your explanations and tips that really helped me. > > I still have a minor problem when working with cel containers, which I agree appear more flexible. > > How can i merge cel.containers (like 2 cel.containers, with each one containing 2 chips normalized in a pairwise fashion) ? > Is there a convenient function like 'union' for plobs that allows one to do that easily ? No... (not yet ?)... I admit it can appear cumbersome for novice users. (try class?container and class?Cel.container). The function below should do the job. union.container.Cel <- function(...) { n <- sum(unlist(lapply(list(...), length))) union <- new("Cel.container", x=vector("list", length=n), content="Cel", locked=FALSE) offset <- 0 for (i in 1:length(list(...))) { if (i>1) offset <- offset + length(list(...)[[i-1]]) for (j in 1:length(list(...)[[i]])) #show(list(...)[[i]]) union[[offset+j]] <- list(...)[[i]][[j]] } return(union) } Example: data(listcel) listcel2 <- listcel u <- union.container.Cel(listcel, listcel2) Hopin' it helps, Laurent > > Thanks. > > JS. > -------------------------------------------------------------- Laurent Gautier CBS, Building 208, DTU PhD. Student D-2800 Lyngby,Denmark tel: +45 45 25 24 85 http://www.cbs.dtu.dk/laurent
• 779 views
ADD COMMENT

Login before adding your answer.

Traffic: 831 users visited in the last hour
Help About
FAQ
Access RSS
API
Stats

Use of this site constitutes acceptance of our User Agreement and Privacy Policy.

Powered by the version 2.3.6