R/modelfunction_exp.R

In Dahaniel/DoOR.functions: Integrating Heterogeneous Odorant Response Data into a Common Response Model: A DoOR to the Complete Olfactome

# exponential Model
# 
# exponential Model
# 
# expression : a + b * exp (c * input)
# 
# @param input numeric vector of data values
# @param parms numeric vector, parameters with given names: "a", "b", "c"
# @author Shouwen Ma <\email{shouwen.ma@@uni-konstanz.de}>
# @seealso \code{\link{SSexpo}}
# @keywords math
# @examples
# 
# x <- rnorm(20)
# y <- modelfunction_exp(input = x, parms = c(a = 0.1, b = 0.2, c = 0.3) )
# plot(x,y)
# 
modelfunction_exp <- function(input, parms) {
  return(SSexpo(input, a = parms["a"], b = parms["b"], c = parms["c"]))
}