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))
fit
Mit 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.