crs4hc(formula, data, a, b, N, my_eps, max_evals, delta, w0)formulaformula)formula)10*length(a).crs4hc. This object is a list of:
data argumentformulax <- c(1,2,3,5,7,10)
y <- c(109,149,149,191,213,224)
df <- data.frame(x=x, y=y)
lowerBounds <- c(1, 0.1)
upperBounds <- c(1000, 2)
mod <- crs4hc(y ~ b1 * (1-exp(-b2*x)), df, lowerBounds, upperBounds)
mod
Run the code above in your browser using DataLab