R/gaussian.R

In ggcostoya/tpcurves2: T-P Curves

# GAUSSIAN FUNCTION

#' Gaussian prediction function, extracted from Angiletta 2006
#'
#' @param x A vector of values (In the context of the package, a vector of Temperature values)
#' @param a
#' @param b
#' @param c
#' @param d
#'
#' @return A vector of predicted values (In the context of the package, a vector of Performance values)
#'
#' @examples
#'
#' @export

gaussian <- function(x,a,b,c,d){

  y <- a*exp(-0.5*((x-b)/c)^d)

  return(y)
}