
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]]

