Of course functions can be used inside ifelse.  They should return vectors.

Be careful of the effect of recycling:

ifelse(c(F,T,F,T,F,T),1:3,10:20)
[1] 10  2 12  1 14  3

with functions:

> f<- function(x) x/mean(x)
> ifelse(c(F,T,F,T,F,T),sqrt(1:3),f(10:20))
[1] 0.6666667 1.4142136 0.8000000 1.0000000 0.9333333 1.7320508

          -s

On Mon, Jun 15, 2009 at 10:39 AM, Grześ <gregorio99@gmail.com> wrote:

>
> Could you tell me, if it's possible to create ifelse and put function
> inside, for example:
>
> code{
> ifelse ((is.na(vek)), call_fun_1(arguments), call_fun_2(arguments))
>
> call_fun_1 <- function(arguments)
> { sth...
> }
> }
> --
>

	[[alternative HTML version deleted]]


