R/superLogistic.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"superLogistic" <-
function (sumT, par, lambda) 
{
    ## par is a list, elements theta_1, theta_2, theta_3 
   
    for (i in 1:length(par)) {
        theta_1 <- par[[i]][1]
	theta_2 <- par[[i]][2] 
	theta_3 <- par[[i]][3]
	sumT <- sumT + (lambda + theta_1) / (theta_2 + exp( - theta_3) )
    }
    sumT
}