You can use ifelse() if you want... x <- 1:10 ifelse(x < 5, mean(x), length(x))
Although I do not really see how you are hoping to improve on if (condition) lapply1() else lapply(). Josh On Sat, Jul 30, 2011 at 12:56 PM, Megh Dal <megh700...@yahoo.com> wrote: > Dear all, I am looking for some procedure to apply 'ifelse' condition on > function. I have created an alternative to lapply() function with exactly > same set of arguments named lapply1(), however with different internal codes. > > Therefore I want something like, if (some condition) then call lapply1() > otherwise lapply() function. Ofcourse I can create a complete if()... > else()... like of coding however wondering something may be better available > because the arguments are all common. > > Thanks for your help. > > ______________________________________________ > 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. > -- Joshua Wiley Ph.D. Student, Health Psychology University of California, Los Angeles https://joshuawiley.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.
