Try: foo2 <- function(x, a) cbind(x,a)[,2]
On 7/23/06, Gregor Gorjanc <[EMAIL PROTECTED]> wrote: > Hello! > > I am writting a function, which should recycle one of its arguments if > length of the argument is approprate i.e. something like > > foo <- function(x, a) > { > n <- length(x) > if(length(a) < n) { # recycle a > oldA <- a > a <- vector(length=n) > a[1:n] <- oldA > } > ## ... > return(a) > } > > foo(c(1, 2), a=c(1, 2)) > foo(c(1, 2), a=c(1)) > > I am now wondering if there is any general/generic functions for such task. > > Thanks! > > -- > Lep pozdrav / With regards, > Gregor Gorjanc > > ---------------------------------------------------------------------- > University of Ljubljana PhD student > Biotechnical Faculty > Zootechnical Department URI: http://www.bfro.uni-lj.si/MR/ggorjan > Groblje 3 mail: gregor.gorjanc <at> bfro.uni-lj.si > > SI-1230 Domzale tel: +386 (0)1 72 17 861 > Slovenia, Europe fax: +386 (0)1 72 17 888 > > ---------------------------------------------------------------------- > "One must learn by doing the thing; for though you think you know it, > you have no certainty until you try." Sophocles ~ 450 B.C. > > ______________________________________________ > 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 > and provide commented, minimal, self-contained, reproducible code. > ______________________________________________ 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 and provide commented, minimal, self-contained, reproducible code.