Ich glaube jetzt habe ich es.
Code: Alles auswählen
fit <- nls(y ~ 18000/(1 + exp((xmid - x)/scal)),
data = df,
start = list(xmid=1, scal = 1))
fitMit der Erklärung zu den Startparametern habe ich noch zu knabbern, aber da wird sich schon eine brauchbare Lektüre finden.
Vielen Dank für deine Hilfe und die Zeit die du dir genommen hast.