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 <[email protected]> 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]] > >______________________________________________ >[email protected] 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. ______________________________________________ [email protected] 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.
