R help - Mar 2012 - If function error: missing value where TRUE/FALSE needed

Hello!
I am trying to get a logic estatement in R using the if function, but it is all
the time comming and error, I have tryied different methods but nothing is
working
the sentence is the following:

dispersal[1] <-  if (any (relativenes[1] < cost)) ((relativenes[1]-
cost)/(relativenes[1]- cost*cost)) else 0
            for (i in 2: time){
            dispersal[i] <-  if (any (relativenes[i] < cost))
((relativenes[i]- cost)/(relativenes[i]- cost*cost)) else 0   }


 dispersal[1] <-  if (relativenes[1] < cost) dispersal[1] <-
((relativenes[1]- cost)/(relativenes[1]- cost*cost)) else dispersal[1]<- 0
            for (i in 2: time){
            dispersal[i] <-  if  (relativenes[i] < cost)) dispersal[i]
<-((relativenes[i]- cost)/(relativenes[i]- cost*cost)) else dispersal[i]
<- 0   }

dispersal[1] <-  if (relativenes[1] < cost)  {dispersal[1] <-
((relativenes[1]- cost)/(relativenes[1]- cost*cost))} else {dispersal[1]<- 0}
            for (i in 2: time){
            dispersal[i] <- if (relativenes[i] < cost) {dispersal[i]
<-((relativenes[i]- cost)/(relativenes[i]- cost*cost))} else {dispersal[i]
<- 0}}
           
 Thanks Charo
                     
            

 		 	   		  
	[[alternative HTML version deleted]]

Hi

It is strange. I get completely different error.
> dispersal[1] <-  if (any (relativenes[1] < cost)) ((relativenes[1]- 
cost)/(relativenes[1]- cost*cost)) else 0
Error: object 'relativenes' not found
> for (i in 2: time){dispersal[i] <-  if (any (relativenes[i] < cost)) 
((relativenes[i]- cost)/(relativenes[i]- cost*cost)) else 0   }
Error in 2:time : NA/NaN argument

It is probably due to fact that I do not have relativness or cost 
variables available in my R version.

I can only guess that some relativnes values are NA and the comparison 
results in NA which is treated by if as an inappropriate input so there is 
missing value error. 

But without data and its structure it is only a guess.

Regards
Petr

> 
> [R] If function error:  missing value where TRUE/FALSE needed
> 
> 
> Hello!
> I am trying to get a logic estatement in R using the if function, but it 
> is all the time comming and error, I have tryied different methods but 
> nothing is working
> the sentence is the following:
> 
> dispersal[1] <-  if (any (relativenes[1] < cost)) ((relativenes[1]- 
cost)/
> (relativenes[1]- cost*cost)) else 0
>             for (i in 2: time){
>             dispersal[i] <-  if (any (relativenes[i] < cost)) 
> ((relativenes[i]- cost)/(relativenes[i]- cost*cost)) else 0   }
> 
> 
>  dispersal[1] <-  if (relativenes[1] < cost) dispersal[1] <- 
((relativenes
> [1]- cost)/(relativenes[1]- cost*cost)) else dispersal[1]<- 0
>             for (i in 2: time){
>             dispersal[i] <-  if  (relativenes[i] < cost))
dispersal[i]
<-
> ((relativenes[i]- cost)/(relativenes[i]- cost*cost)) else dispersal[i] 
<- 0   }
> 
> dispersal[1] <-  if (relativenes[1] < cost)  {dispersal[1] <- 
> ((relativenes[1]- cost)/(relativenes[1]- cost*cost))} else 
{dispersal[1]<- 0}
>             for (i in 2: time){
>             dispersal[i] <- if (relativenes[i] < cost) {dispersal[i]
<-
> ((relativenes[i]- cost)/(relativenes[i]- cost*cost))} else {dispersal[i] 
<- 0}}
> 
>  Thanks Charo
> 
> 
> 
> 
>    [[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at 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.