you just need the function name; the parameter is being supplied by the lapply:
t(apply(x, 1, rearrange)) On Wed, May 19, 2010 at 7:47 PM, Wu Gong <gho...@gmail.com> wrote: > > I tried to use a separate function to make the code more understandable. But > I failed. I don't know what's wrong with the code. > > x <- as.matrix(x) > > rearrange <- function(.row){ > z <- do.call(rbind, strsplit(.row[-1], '')) > z.col <- t(apply(z, 2, paste, collapse='')) > cbind(.row[1], z.col) > } > > t(apply(x, 1, rearrange(.row))) > > Error in strsplit(.row[-1], "") : object '.row' not found > > I don't know how to pass the value to the function. > > ----- > A R learner. > -- > View this message in context: > http://r.789695.n4.nabble.com/sample-and-rearrange-tp2222747p2223767.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. > -- Jim Holtman Cincinnati, OH +1 513 646 9390 What is the problem that you are trying to solve? ______________________________________________ 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.