R/modelfunction_asymp.R

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

# Asymptotic Model
# 
# Asymptotic Model
# 
# expression : Asym+(R0-Asym)*exp(-exp(lrc)*input)
# 
# @param input numeric vector of data values
# @param parms numeric vector, parameters with given names: "Asym", "R0",
# "lrc"
# @seealso \code{\link{SSasymp}}
# @references Jose Pinheiro and Douglas Bates
# @keywords math
# @examples
# 
# x <- rnorm(20)
# y <- modelfunction_asymp(input = x, parms = c(Asym = 0.1, R0 = 0.2, lrc = 0.3) )
# plot(x,y)
#' @importFrom stats SSasymp 
modelfunction_asymp <- function(input, parms) {
  return(SSasymp(
    input,
    Asym = parms["Asym"],
    R0 = parms["R0"],
    lrc = parms["lrc"]
  ))
}