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@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.
