[R] custom function insite dlys::mutate

[Jeff Newmiller]

You are comparing a 21-element vector with a 1-element vector, which gives you 21 answers. Which one of those answers are you actually interested in?

I am not sure what you are trying to accomplish here, so cannot offer further advice.

On March 30, 2020 6:21:45 AM PDT, SIMON Nicolas <Nicolas.SIMON using ap-hm.fr> wrote:
>Hi,
>
>I tried to use mutate from dplyr with a personal function to create a
>new variable of a data.frame.
>
>All examples I found are such as myfunction(x){...}.
>
>In my script, the function calls:
>- one variable coming from the data.frame
>- variables coming from lists or constant outside the data.frame
>
>My function is something like:
>
>var1 <- seq(0,20,1)
>dat <- data.frame(var1)
>var2 <- c(0,2,4,8)
>var3 <- 44.44
>var4 <- 0.5
>
>Myfunction <- function(var1, var2, var3,var4){
>   obs <- 0
>   obs1 <- 0
>   for (i in 1:length(var2)) {
>         tt <- var2[i]
>         if ( var1 > tt ){
>             obs1 <- var3 * exp(-var4*var1)
>         }
>         else obs1 <- 0.0
>         obs <- obs + obs1
>   }
>  return(obs)
>}
>dat2 <- mutate(dat, obs = Myfunction(var1=var1,var2=var2,var3=var3))
>
>Apparently the condition " if ( var1 > tt ) " cannot be evaluated
>correcty.
>
>Could you please give me an advice to write it properly?
>
>
>
>Best regards
>Nicolas
>
>
>	[[alternative HTML version deleted]]
>
>______________________________________________
>R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>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.

-- 
Sent from my phone. Please excuse my brevity.