X <- c(1,2,4,5,7,12)
Y <- c(1.97, 2.32, 2.67, 2.71, 2.86, 3.09)
# lm fit
model <- lm(Y ~ log(X) )
# nls fit
model <- nls(Y ~ NLS.logCurve(X, a, b) )
# drm fit
model <- drm(Y ~ X, fct = DRC.logCurve() )
Run the code above in your browser using DataLab