On 10/31/06, Robert Lischke <[EMAIL PROTECTED]> wrote: > Hi there, > > is there a way to make the following code generic, so that i can paste() > the columns in tmp1 depending on the dimensions given in embed()? > > > tmp1 <- embed(as.vector(shrinkTable$AOIname), dimension = 2); > > tmp1 > [,1] [,2] > [1,] "AOI4" "AOI1" > [2,] "AOI6" "AOI4" > [3,] "AOI4" "AOI6" > > tmp2 <- paste(tmp1[, 2], tmp1[, 1], sep = ">"); > > tmp2 > [1] "AOI1>AOI4" "AOI4>AOI6" "AOI6>AOI4" > > for dimension = 3 this would look like this: > > > tmp1 <- embed(as.vector(shrinkTable$AOIname), dimension = 3); > > tmp1 > [,1] [,2] [,3] > [1,] "AOI6" "AOI4" "AOI1" > [2,] "AOI4" "AOI6" "AOI4" > > tmp2 <- paste(tmp1[ ,3], tmp1[, 2], tmp1[, 1], sep = ">"); > > tmp2 > [1] "AOI1>AOI4>AOI6" "AOI4>AOI6>AOI4" >
Try do.call like this: do.call(paste, c(as.data.frame(tmp1), sep = ">")) ______________________________________________ [email protected] 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.
