R/logist3.R

In forsearch: Diagnostic Analysis Using Forward Search Procedure for Various Models

#' @export
logist3 <-
function (x, a, b, c) 
{
#                                logist3

# VALUE 3-parameter logistic function
#
xx <- exp(-(x - b)/c)
y <- a/(1 + xx)

return(y)
}