[R] The condition has length > 1 and only the first element will be used

[Pablo Cerdeira]

Ok thanks, but I have found the solution: "ifelse".

Here goes a working version of the code:

mod = function(x) {
  ifelse(x < 0,x*(-1),x)
}
f = function(x) {
  f <- mod(x)/x
}
x <- seq(-1,1,0.01)
x
y <- f(x)
y
plot(f,xlim = c(-1,1))
remove(x,y,f,mod)

best regards


On Tue, Aug 3, 2010 at 8:03 AM, Pablo Cerdeira <pablo.cerdeira em gmail.com> wrote:
> Hi All,
>
> I'm trying to run the following script in R, but I'm getting a warning saying:
>
> Warning message:
> In if (z < 0) { :
>  the condition has length > 1 and only the first element will be used
>
> As you can see, I'm sending a vector x to the function f without any
> problem. The function f calculates the y value for each x.
>
> But the function f needs to convert the x to positive values (the mod
> function). And when it tries to convert, it always uses the first
> value of x.
>
> What I'm doing wrong here?
>
> mod = function(x) {
>  if (x < 0) {
>    mod <- x*(-1)
>  }
>  else {
>    mod <- x
>  }
> }
> f = function(x) {
>  f <- mod(x)/x
> }
> x <- seq(-1,1,0.01)
> x
> y <- f(x)
> y
> plot(f,xlim = c(-1,1))
> remove(x,y,f,mod)
>
> best regards,
>
> --
> Pablo de Camargo Cerdeira
> pablo em fgv.br
> pablo.cerdeira em gmail.com
> +55 (21) 3799-6065
>



-- 
Pablo de Camargo Cerdeira
pablo em fgv.br
pablo.cerdeira em gmail.com
+55 (21) 3799-6065