R/dsdx_exp.R

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

# Leibniz's notation for computing the curvic length on exponential model
#
# Leibniz's notation for computing the curvic length on exponential model
#
# expression : sqrt(1 + (b * (exp(input * c) * c))^2)
#
# @param input numeric vector of data values
# @param parms numeric vector, parameters with given names: "a", "b", "c"
# @keywords math
# @examples
#
# x <-  seq(0.1,1,length=20)
# parms <- c(a = 0.2, b = 0.3, c = 0.4)
# integrate(function(x) { dsdx_exp(input = x, parms = parms ) }, lower = 0, 
# upper = 0.5)
#
#' @importFrom stats integrate
dsdx_exp <- function(input, parms) {
  .value <- sqrt(1 + (parms["b"] * (exp(input * parms["c"]) * parms["c"]))^2)
  .value
}